asp页面中,读取其它域名的页面内容,该怎么取?
树_皮 2008-03-20 01:54:17 asp页面中,提交一个其它域名的页面,处理结果后,再返回一个值。这样在asp中怎么写?
如:我现在有个页面:www.bbb.com/ok.asp ,在这个ok.asp 页面中,我想读取 www.aaa.com/read.asp?id=1 的页面内容;
read.asp 这个页面我处理结果后,返回一个值给 ok.asp 这个页面,这该怎么处理? 如果是同一个域名网站可能写个函数就可以了,但不同的域名之间这个该怎么写?
用下面的函数就是太耗内存,有没有不占资源的办法?
Function GetBody(Url)
Dim objXML
On Error Resume Next
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "Get", Url, False, "", ""
objXML.Send
GetBody = objXML.ResponseBody
GetBody =BytesToBstr(GetBody,"GB2312")
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