ASP模拟POST请求异步提交数据的方法
有时需要获取远程网站的某些信息，而服务器又限制了GET方式，只能通过POST数据提交，这个时候我们可以通过asp来实现模拟提交post数据，网上有挺多这样的例子的。下面的是我自己写的比较简洁易懂的函数。
首先，需要一个编码设置的函数，因为asp一般为gbk的，而标准的网站现在大都使用utf-8的。所以需要转换。
functionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
Endfunction
其次就是用组件实现post数据的提交了，我这里使用了MSXML2.SERVERXMLHTTP.3.0。当然也可以使用其他的。
functionPostHTTPPage(url,data)
dimHttp
setHttp=server.createobject("MSXML2.SERVERXMLHTTP.3.0")
Http.open"POST",url,false
Http.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
Http.send(data)
ifHttp.readystate<>4then
exitfunction
Endif
PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
sethttp=nothing
iferr.number<>0thenerr.Clear
Endfunction
使用的时候就是这样子：
PostHTTPPage("www.nhooo.com","str1=a&str2=b&str3=c")