<%
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&"
留言内容: "&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 "
") 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! | |
|
Copyright © 2001-2007 ymlaser.com All Right Reserved.
Tel: +86 769-22705851
ICP 05014344
