小偷程序之GET方法 'Get方式提交数据并返网页内容 '参数：A_strURL - 网页地址及参数格式：[url]http://xxx.com/xxx.asp?A1=a1&A2=a2&A3=a3....[/url] 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                 .close         End With         if err.number<>0 then         Response.write err.description         Response.End()         end if         Set MM_objBytesStream = Nothing         Set MM_objHttp = Nothing End Function [Blog.Const.Net.Cn] 永久链接地址:知识库 小偷程序之GET方法