8,906
社区成员
发帖
与我相关
我的任务
分享
Response.CharSet="utf-8"
private function BinToString(bin,encoding)
dim obj
set obj=Server.CreateObject("Adodb.Stream")
obj.Type=1:obj.Mode=3:obj.Open
obj.Write bin
obj.Position=0:obj.Type=2:obj.Charset=encoding
BinToString=obj.ReadText
obj.Close:set obj=nothing
end function
Set oHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
ohttp.open "get","http://www.gxcaipiao.com.cn/xml/notice_12.xml",false
ohttp.setRequestHeader "Referer","http://www.gxcaipiao.com.cn/notice/notice_12.html"''''''''''''''''''''''''''''''
ohttp.send(null)
response.Write "<textarea style='height:500px;width:100%'>"& BinToString(ohttp.ResponseBody,"gb2312")&"</textarea>"