<%bt="在线订单"%> <% select case request("dz") '+-----------------------------------+ ' 处理添加的数据 '+-----------------------------------+ case "addok" set rs=server.CreateObject("Adodb.recordset") sql="select * from [order]" rs.open sql,conn,3,2 rs.addnew rs("xz") = chkk(checkstr(request.Form("xz")),"您的性质") '姓名 rs("name") = wtx(checkstr(request.Form("name"))) '姓名 rs("lxr") = chkk(checkstr(request.Form("lxr")),"联系人") '姓名 rs("xb") = chkk(checkstr(request.Form("xb")),"性别") '姓名 rs("tel") = chkk(checkstr(request.Form("tel")),"电话") '姓名 rs("add") = wtx(checkstr(request.Form("add"))) '邮件 rs("mail") = wtx(checkstr(request.Form("mail"))) '邮件 rs("qq") = wtx(checkstr(request.Form("qq"))) 'QQ rs("kf") = 0 'QQ rs.update response.write "" sub mail() dim mailname,mailpass,mailform,mailsmtp mailname="jay35@163.com" mailpass="mz654321" mailform="jay35@163.com" mailsmtp="smtp.163.com" email="jayfr@139.com" '收件人 email2="mzvi@qq.com" '收件人 title="有订单了!" '标题 mailbody="有一个网站订单
性质:"&rs("xz")&"
联系人:"&rs("lxr")&"("&rs("xb")&")
电话:"&rs("tel")&"" '邮件内容 fjr="哈哈" '发件人 Set Jmail=server.createobject("Jmail.Message") Jmail.Charset ="gb2312" JMail.ContentType = "text/html" Jmail.Silent =true Jmail.Priority = 3 Jmail.MailServerUserName = mailname Jmail.MailServerPassword = mailpass Jmail.From = mailform Jmail.FromName =""&fjr&"" Jmail.Subject =""&title&"" Jmail.AddRecipient ""&email&"" Jmail.AddRecipient ""&email2&"" Jmail.Body = mailbody Jmail.Send(mailsmtp) Set Jmail=nothing end sub call mail() rs.close set rs=nothing end select %> <%=webname%>

   Call us:0816-2277265 | 我要询价
网站首页
关于我们
服务项目
案例展示
新闻动态
客户服务
联系我们
请您填写您的联系方式,我们的客服人员将与您取得联系。如果您已经准备好网站建设策划书/方案,请加我们的QQ,发送方案给我们。
您的性质: 公司   工作室   个人
公司名称: 不是公司请留空
联系人:
性别: 先生  女士
电话:
地址:
E-mail:
QQ: