<%
'response.charset="gb2312"

id=request("id")
ym=Request.ServerVariables("SERVER_NAME")
dk=Request.ServerVariables("SERVER_PORT")

httpu=ym
if dk<>"80" then
httpu=ym&":"&dk
end if

Url="http://"&httpu&"/lianbo/lianbo_dj.asp?id="&id&""


FunctIon GetHttpPage(url) '取网页源码
DIm Http 
Set Http=Server.Createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
If Http.readystate<>4 Then 
ExIt functIon 
End If 
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 
Set Http=NothIng 
If err.number<>0 Then err.Clear 
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


softcode=GetHttpPage(url)
'response.write softcode
%>
 

<%=softcode%>