PostHttpPage用asp是实现模拟登录效果的代码
2018-09-06 11:15
阅读：446
==================================================
函数名：PostHttpPage
作用：登录
==================================================
FunctionPostHttpPage(RefererUrl,PostUrl,PostData)
DimxmlHttp
DimRetStr
SetxmlHttp=CreateObject(Msxml2.XMLHTTP)
xmlHttp.OpenPOST,PostUrl,False
XmlHTTP.setRequestHeaderContent-Length,Len(PostData)
xmlHttp.setRequestHeaderContent-Type,application/x-
xmlHttp.setRequestHeaderReferer,RefererUrl
xmlHttp.SendPostData
IfErr.Number<>0Then
SetxmlHttp=Nothing
PostHttpPage=$False$
ExitFunction
EndIf
PostHttpPage=bytesToBSTR(xmlHttp.responseBody,GB2312)
SetxmlHttp=nothing
EndFunction
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：PostHttpPage用asp是实现模拟登录效果的代码
文章链接：http://soscw.com/index.php/essay/9181.html
文章标题：PostHttpPage用asp是实现模拟登录效果的代码
文章链接：http://soscw.com/index.php/essay/9181.html
评论
亲，登录后才可以留言！