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 & "
" & oauth_http.responseText
End If
Set oauth_http=nothing 
  End Function

你可能感兴趣的:(asp)