<%
'Post方式提交数据并返网页内容
'参数：A_strURL - 网页地址
'　　　A_strData - 提交内容，格式：A1=a1&A2=a2&A3=a3....
Function PostWebData(byval A_strUrl,byval A_strData)
        Dim MM_objBytesStream
        dim MM_objHttp

        Set MM_objHttp = Server.CreateObject("Microsoft.XMLHTTP")
        Set MM_objBytesStream = Server.CreateObject("ADODB.Stream")
        MM_objHttp.Open "POST", A_strUrl, False, "", ""
        MM_objHttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
        MM_objHttp.Send (A_strData)
        With MM_objBytesStream
                .Type = 2
                .Open
                .WriteText MM_objHttp.Responsebody
                .Position = 0
                .Charset = "GB2312"
                .Position = 2
                GetWebData=.ReadText
                .close
        End With
        Set MM_objBytesStream = Nothing
        Set MM_objHttp = Nothing
End Function

'Get方式提交数据并返网页内容
'参数：A_strURL - 网页地址及参数格式：http://xxx.com/xxx.asp?A1=a1&A2=a2&A3=a3....
Function GetWebData(byval A_strUrl)
        Dim MM_objBytesStream
        dim MM_objHttp
        Set MM_objHttp = Server.CreateObject("Microsoft.XMLHTTP")
        Set MM_objBytesStream = Server.CreateObject("ADODB.Stream")
        MM_objHttp.Open "Get", A_strUrl, False, "", ""
        MM_objHttp.Send
        With MM_objBytesStream
                .Type = 2
                .Open
                .WriteText MM_objHttp.Responsebody
                .Position = 0
                .Charset = "GB2312"
                .Position = 2
                GetWebData=.ReadText