<% dim name1,tel,address,clzt,act act=Trim(Request.Form("act")) if act="ok" then dim RefreshIntervalTime RefreshIntervalTime = 60 If Not IsEmpty(Session("visit")) and isnumeric(Session("visit")) and int(RefreshIntervalTime) > 0 Then if (timer()-int(Session("visit")))*1000 < RefreshIntervalTime * 1000 then Response.write ("") Response.write ("刷新过快,请稍候") Session("visit") = timer() Response.end end if End If Session("visit") = timer() realname=trim(Request.Form("realname")) sex=trim(Request.Form("sex")) tel=trim(Request.Form("tel")) tel2=trim(Request.Form("tel2")) postcode=trim(Request.Form("postcode")) address=trim(Request.Form("address")) product=Trim(Request.Form("product")) content=Trim(Request.Form("content")) qq=trim(Request.Form("qq")) sendtime=trim(Request.Form("sendtime")) mail=Trim(Request.Form("mail")) pronum=Trim(Request.Form("pronum")) if Trim(Request.Form("pay_type"))="" then pay_type="货到付款" else pay_type=Trim(Request.Form("pay_type")) end if set rs=server.createobject("adodb.recordset") sqltext="select * from lyb" rs.open sqltext,conn,3,3 rs.addnew rs("realname")=realname rs("sex")=sex rs("tel")=tel rs("tel2")=tel2 rs("address")=address rs("clizt")="未处理" rs("product")=product rs("content")=content rs("postcode")=postcode rs("pay_type")=pay_type rs("qq")=qq rs("mail")=mail rs("sendtime")=sendtime rs("pronum")=pronum rs("REFERER")=Request.ServerVariables("HTTP_REFERER") rs("ip")=request.ServerVariables("REMOTE_ADDR") rs.update rs.close set rs=nothing dim frommail,mailname,mailword,UserMail,UsertelMail set rse=server.createobject("adodb.recordset") sqltexte="select * from email" rse.open sqltexte,conn,1,1 frommail=rse("frommail") mailname=rse("mailname") mailword=rse("mailword") mailsmtp=rse("mailsmtp") UserMail= rse("UserMail") UsertelMail= rse("UsertelMail") %> <% ipp=Request.ServerVariables("REMOTE_ADDR") Sub SendAction(subject, email, sender, content) Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" JMail.From = strMailUser JMail.FromName = sender JMail.Subject =subject JMail.MailServerUserName = strMailUser JMail.MailServerPassword = strMailPass JMail.Priority = 3 ' FriendEmail=UserMail '接收人邮件地址 ' FriendEmail1=UsertelMail '接收人邮件地址 JMail.AddRecipient(UserMail) if usertelmail <> "" then JMail.AddRecipient(UsertelMail) 'JMail.AddRecipient(email) end if JMail.Body = content JMail.Send(strMailAddress) End Sub Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "订购产品:" & realname strContent = "订购产品:" & product & VbCrLf & "产品数量:" & pronum & VbCrLf & "姓名:" & realname & VbCrLf & "性别:" & sex & VbCrLf & "手机:" & tel & VbCrLf & "固话:" & tel2 & VbCrLf & "qq:" & qq & VbCrLf & "E-mail:" & mail & VbCrLf & "送货时间:" & sendtime & VbCrLf & "送货方式:" & pay_type & VbCrLf & "邮编:" & postcode & VbCrLf & "地址:" & address & VbCrLf & "留言:" &content& VbCrLf & "来路IP:" & ipp & VbCrLf & "订单时间:" & now() strSender = realname '姓名 ' strEmail = UserMail '收件箱 strMailAddress = mailsmtp'发件箱smtp strMailUser = frommail'发件箱地址 strMailPass = mailword'发件箱密码 Call SendAction (strSubject,strEmail,strSender,strContent) call closeconn() backurl="dingdan.htm" conn.close set conn=nothing 'response.write "