'设置参数值
Public Sub setParameter(parameter, parameterValue)
If parameters.Exists(parameter) = True Then
parameters.Remove(parameter)
End If
parameters.Add parameter, parameterValue
End Sub

'Microsoft.XMLHTTP
'Get/Post方法请求url,获取请求内容
Public Function RequestUrl(url,method,data)
Set XmlObj = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
XmlObj.open method,url, false
XmlObj.send(data)
If XmlObj.Readystate=4 Then
RequestUrl = XmlObj.responseText
Else
Response.Write("xmlhttp请求超时！") 
Response.End()
End If
Set XmlObj = nothing
End Function

=============================================  

互相学习电话微信：18611436777（加微信注明事由）