发布时间:2016-07-04 11:48:09编辑:丝画阁阅读(232)
'发送邮件
Set https = Server.CreateObject("MSXML2.XMLHTTP")
With https
.Open "Post", "http://zx_xxxx.xxxxx.cn/hzp_manage/api/api_sendMail.asp", False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=utf-8"
.Send "c=17l&d="&now()&"&o="&sDate&"&p="&Sumzj&"&n="&SitWebName&"&u="&SitWebUrl&"&p1="&BuyName&"&p2="&songhuofangshi(0)&"&p3="&songhuofangshi(1)&"&p4="&LxRen&"&p5="&LxTel&"&p6="&Email&"&p7="&LxAddree&"&p8="&Trim(request("Post"))&"&p9="&Content&"&p10="&ddtime
GetBody = .ResponseBody
End With
Set https = Nothing
'发送订单
If PayArea<>"" Then
set rsusarea=server.CreateObject("adodb.recordset")
rsusarea.open "xxx * from SetDeliArea xxx Id="&PayArea&";",conn,1,1
PayArea=rsusarea("Name")
End If
rs2o_uip=GetUserIp
Set https = Server.CreateObject("MSXML2.XMLHTTP")
With https
.Open "Post", "http://www.ppay.com/index.php?s=Home/Inter/index", False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=utf-8"
.Send "c=17l&d="&Now()&"&o="&sDate&"&p="&FormatNumber(Trim(Request("Sumzj")),2)&"&n="&SitWebName&"&u="&SitWebUrl&"&p1="&BuyName&"&p2="&PayArea&"&p3="&rsus("P_ShName")&"&p4="&rsus("P_MobTel")&"&p5="&rsus("P_Address")&"&p6="&rsus("P_Post")&"&p7="&rsus("P_Email")&"&p8="&rsus("P_LxTel")&"&p9="&rsus("P_BzBuild")&"&p11="&rs2o_uip&"&p12="&Proinfo&"&p10="&rsus("P_BestTime")&"&p13="&Trim(Request("Content"))&"&p14="&PayModea(0)&"&p15="&PayMoneny
End With
关键字:
上一篇:asp.net一个公共函数文件
本站部分内容来源网络及网友上传,本站未必能一一鉴别其是否为公共版权或其版权归属,如果您认为侵犯您的权利,本站将表示非常抱歉!
请您速联系本站,本站一经核实,立即删除。删文删帖联系【2789291421@qq.com】