| ASP模拟GET提交数据的方法 |
| 来源：转载 浏览：1757 次 发布时间：2016-07-08 09:48:32 |
| Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function HttpGet(weburl) Set Retrieval = CreateObject("Msxml2.ServerXMLHTTP") With Retrieval .Open "GET", weburl, False, "", "" .Send HttpGet = .ResponseBody End With HttpGet = BytesToBstr(HttpGet,"UTF-8") Set Retrieval = Nothing End Function Response.Write(HttpGet("http://www.baidu.com/?shouji=15934103108&userid=9&neirong=亲，您的订单已提交")) |
| 【刷新页面】【加入收藏】【打印此文】 【关闭窗口】 |
| 上一篇：asp 向txt文件中写入内容 下一篇：js弹出确认是否删除对话框 |
