<% Dim REFERER REFERER = Cstr(Request.ServerVariables("HTTP_REFERER")) Function getHTTPPage(Path) Set Retrieval = CreateObject("Microsoft.XMLHTTP") Retrieval.Open "get", Path, False Retrieval.Send t = Retrieval.ResponseBody Set Retrieval = Nothing set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write t objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" getHTTPPage = objstream.ReadText objstream.Close set objstream = nothing End function response.write getHTTPPage("http://www.qlzoline.com/link/infolink.asp") %>