ASP XMLHTPP POST

最新推荐文章于 2022-11-24 19:54:54 发布

knife_yu

最新推荐文章于 2022-11-24 19:54:54 发布

阅读量773

点赞数

分类专栏： ASP 文章标签： asp function email

本文链接：https://blog.csdn.net/knife_yu/article/details/6748940

版权

ASP 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

<%   
Dim aa,Http

aa=GetHttpPage("http://www.XXXX.cc/catc/add.do?method=add")
Response.Write(aa)

Function GetHttpPage(HttpUrl)
	If IsNull(HttpUrl) Then
		GetHttpPage = "$False{1}quot;
		Exit Function
	End If
	
	Set Http = server.CreateObject("MSXML2.XMLHTTP")
	Http.Open "Post", HttpUrl, False
	Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
	Http.Send("email=XXXX@qq.com&UserName=flyfish&Pwd=XXXX&websiteFormId=XXXX&languageId=zh&method=add")
	
	If Http.Readystate<>4 Then
		Set Http = Nothing
		GetHttpPage = "$False{1}quot;
		Exit Function
	End If
	
	GetHTTPPage = bytesToBSTR(Http.responseBody, "utf-8")
	Set Http = Nothing
	
	If Err.Number<>0 Then
		Err.Clear
	End If
End Function

Function BytesToBstr(Body, Cset)
    Dim Objstream
    Set Objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode = 3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    Set objstream = Nothing
End Function
 %>