VBS get,post函数
Function gethttp(gethttp_url)
Dim http_get
Set http_get=Server.CreateObject("MSXML2.ServerXMLHTTP")
http_get.Open "GET",gethttp_url,False,"",""
http_get.Send
gethttp = http_get.responseText
Set http_get=nothing
End Function
Function posthttp(posturl,params)
Dim oauth_http
Set oauth_http=Server.CreateObject("MSXML2.ServerXMLHTTP")
oauth_http.Open "POST",posturl,False,"",""
oauth_http.Send(params)
If oauth_http.Status = "200" Then
posthttp = oauth_http.responseText
Else
posthttp = http.Status & "<br />" & oauth_http.responseText
End If
Set oauth_http=nothing
End Function