asp.net发送邮件

发布时间：2016-07-04 11:48:09编辑：丝画阁阅读（226）

'发送邮件
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