<%
if request.QueryString("action")="ok" then
if request.Form("uCode")<>"" then
ycode=server.HTMLEncode(request.Form("uCode"))
ycode=server.URLEncode(ycode)
getCode=Cstr(Session("GetCode"))
if ycode<>getCode then
response.Write ""
response.End()
else
if request.Form("uComp")<>"" then
Lcomp=nohtml(Server.HTMLEncode(request.Form("uComp")))
else
response.Write ""
response.End()
end if
if request.Form("uCont")<>"" then
Lcont=nohtml(Server.HTMLEncode(request.Form("uCont")))
else
response.Write ""
response.End()
end if
if request.Form("uTel")<>"" then
Ltel=nohtml(Server.HTMLEncode(request.Form("uTel")))
end if
if request.Form("uMbile")<>"" then
Lphone=nohtml(Server.HTMLEncode(request.Form("uMbile")))
end if
if request.Form("uMail")<>"" then
Lmail=nohtml(Server.HTMLEncode(request.Form("uMail")))
else
response.Write ""
response.End()
end if
if request.Form("uAddr")<>"" then
Laddr=nohtml(Server.HTMLEncode(request.Form("uAddr")))
end if
if request.Form("uCent")<>"" then
Lcen=nohtml(Server.HTMLEncode(request.Form("uCent")))
end if
Ordfo="Contact : "&Lcont&Chr(10)&"Telephone : "&Ltel&Chr(10)&"Phone : "&Lphone&Chr(10)&"Address : "&Laddr&Chr(10)&"Content : "&Lcen&Chr(10)
if webmail2<>"" then
mailUrl=webmail2
else
mailUrl=webmail
end if
eTit="From:"&Lmail
eCent=checkspace(Ordfo)
dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname=Lcomp '这里是发件人名称，可以从数据库或表单中取值
jmail.from="mengql@peerhi.com" '这里是发件人邮箱，可以从数据库或表单中取值，但格式一定要正确 ：我填写的还是自己的163邮箱
Jmail.AddRecipient(""&mailUrl&"")'这里是邮件要到达的邮箱地址
jmail.subject=eTit '这是邮件标题，该值可以从数据库或表单中取值
jmail.Body =eCent '这是邮件内容
jmail.mailserverusername="mengql@peerhi.com" '我选用的是163邮箱
jmail.mailserverpassword="PINhua2015" '163邮箱密码
jmail.maildomain="smtp.mxhichina.com" '邮件发送服务器域名
sendok=jmail.send("smtp.mxhichina.com") 'smtp服务器名称
if sendok then
Session("GetCode")=""
response.Write ""
response.End()
else
Session("GetCode")=""
response.Write ""
response.End()
end if
end if
else
response.Write ""
response.End()
end if
else
response.Write ""
response.End()
end if
%>