xmlhttpret_str="http://asdasdas.com/a.php?&id=2" sss=GetBody(ret_str)Response.Write sss Function GetBody(Url) Dim objXML On Error Resume Next Set objXML = CreateObject("Microsoft.XMLHTTP") With objXML .Open "Get", Url, False, "", "" .Send GetBody = .ResponseBodyEnd With 'GetBody=replace(GetBody,"localhost","localhost")GetBody=BytesToBstr(GetBody,"GB2312") 'GetBody=replace(GetBody,"href=","href=http://www.sunpo.net") 'GetBody=replace(GetBody,chr(34),"") Set objXML = Nothing End Function'使用Adodb.Stream处理二进制数据 Function BytesToBstr(strBody,CodeBase) dim objStream set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write strBody objStream.Position = 0 objStream.Type = 2 objStream.Charset = CodeBase BytesToBstr = objStream.ReadText objStream.Close set objStream = nothing End Function
sss=GetBody(ret_str)Response.Write sss
Function GetBody(Url)
Dim objXML
On Error Resume Next
Set objXML = CreateObject("Microsoft.XMLHTTP")
With objXML
.Open "Get", Url, False, "", ""
.Send
GetBody = .ResponseBodyEnd With
'GetBody=replace(GetBody,"localhost","localhost")GetBody=BytesToBstr(GetBody,"GB2312")
'GetBody=replace(GetBody,"href=","href=http://www.sunpo.net")
'GetBody=replace(GetBody,chr(34),"")
Set objXML = Nothing
End Function'使用Adodb.Stream处理二进制数据
Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function