<%
dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<%
if Request("work")="add" then
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
Response.Write ""
else
session("verifycode")=""
set rs=server.createobject("adodb.recordset")
sql="select * from Book"
rs.open sql,conn,3,3
rs.addnew
rs("B_Company") =Request("B_Company")
rs("B_Name") =Request("B_Name")
rs("B_Tel") =Request("B_Tel")
rs("B_Mob") =Request("B_Mob")
rs("B_Mail") =Request("B_Mail")
rs("B_Content") =Request("B_Content")
rs.update '更新数据表记录
dim Realname,Company,Content,Tel,Mail,Mob
Tel=Request("B_Tel")
Mail=Request("B_Mail")
Content=Request("B_Content")
Company=Request("B_Company")
Realname=Request("B_Name")
Mob=Request("B_Mob")
'本程序需要Jmail4.3以上服务器组件支持
'--------系统用户授权判断------------------------------------
Dim CanOK
CanOK=1 '测试需要,暂时关闭了前面的验证,正式使用的时候可以删除这一行
'---------------------------------------------------------------
Response.Write("
")
Response.Write("
")
'接收表单提交的邮件信息---------------------------------
Subject = "粤铭激光英文站客户反馈信息" '邮件主题,必填
Body = "公司名称: "& Company &""&vbCrLf&vbCrLf
Body = Body&"
联系人:"& Realname &""&vbCrLf
Body = Body & "
联系电话|手机:"& Tel &" - "& Mob &""&vbCrLf
Body = Body & "
邮箱:"& Mail &""&vbCrLf
Body = Body & "
留言内容: "&Content&""&vbCrLf
Sender = "ec@ymlaser.com" '发件人邮箱,设定一个缺省的邮箱
SenderName = "YUEMING LASER" '发件人姓名
AddRecipient = "ec@ymlaser.com" '收件人邮箱,必填
AddRecipientBCC =request("misong") '密送邮箱
AddRecipientCC =request("chaosong") '抄送邮箱
GoUrl ="index.asp" '邮件发送完的返回URL地址,可选
if AddRecipient="" or Subject="" then response.write "邮件无标题或者没有收件人!" :response.end
'设定邮件发送服务器SMTP的信息------------------------------
Dim SmtpServer,Username,Password
SmtpServer="smtp.263xmail.com" '自己修改:SMTP服务器地址
Username ="ec@ymlaser.com" '自己修改:服务器认证用户名
Password ="YMLASER888@" '自己修改:服务器认证密码
'开始发送邮件----------------------------
if CanOK=1 then
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true '日志记录
msg.silent = true '错误打开
msg.Charset = "gb2312" '中文编码设定
msg.ContentType = "text/html" '是否html邮件
msg.Subject = Subject '邮件主题
msg.Body = Body '邮件内容
msg.From = Sender '发件人邮箱
msg.FromName = SenderName '发件人姓名
msg.AddRecipient AddRecipient '收件人邮箱
msg.AddRecipientBCC AddRecipientBCC '密送邮箱
msg.AddRecipientCC AddRecipientC '抄送邮箱
msg.MailServerUserName = "ec@ymlaser.com" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
msg.MailServerPassword = "YMLASER888@" '输入smtp服务器验证密码 (用户Email帐号对应的密码)
msg.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
if not msg.Send(SmtpServer) then
Response.write "Make a mistake! Please contact with the website manager
"
Response.write "
" & msg.log & "
"
end if
set msg=nothing
else
response.write "
Has not been authorized the utility program the user,Returns!
"
response.end
end if
end if
response.write("")
End IF
%>
| Please earnestly fill in the following information, by facilitates us and you relates! |
|