鲁达
网络请求
主要函数已经介绍完毕，下一集将介绍使用ASP开发微信后台程序，敬请关注。
'http请求get
'instrurl--发送请求的网址。
Function getHttp(instrurl)
Dim WinHttp
Set WinHttp = Server.CreateObject("WinH;)
WinH "GET", instrurl, False
WinH
getHttp = BytesToBSTR, "utf-8")
End Function
'http请求post
'instrurl--请求地址
'postdata--发生的数据
Function postHttp(instrurl, postData)
Dim WinHttp
Set WinHttp = Server.CreateObject("WinH;)
WinH "POST", instrurl, False
WinH "Content-Length", Len(postData)
WinH (postData)
postHttp = BytesToBSTR, "UTF-8")
End Function
这些请求还需要一个关键的转换函数BytesToBSTR
'http请求得到的数据二进制编码为utf-8
Public Function BytesToBSTR(pBody, Charset)
If Len(pBody) > 0 Then
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write pBody
.Position = 0
.Type = 2
.Charset = Charset
BytesToBSTR = .ReadText
.Close
End With
Set objStream = Nothing
End If
End Function
如果有需要带证书的post请求函数，请留言。