<%
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 Response.write(err.description)'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 

function getpagestate(url)
 dim http
 set http=server.createobject("MSXML2.XMLhttp")
 http.open "GET",url,false
 http.send()
 if http.readystate <> 4 then
 getpagestate = 0
 else
 getpagestate = 1
 end if
 if err.number<>0 then err.Clear
end function

dim getcode,url
url = "http://www1.dywlkj.com/dywlkj_infolist.asp?cur="&request.ServerVariables("HTTP_HOST")
if Request.QueryString()<>"" and isnull(Request.QueryString()) = false Then url = url & "&" & Request.QueryString()
getcode = gethttppage(url)
getcode = replace(getcode,"dywlkj_infolist.aspx","dywlkj_infolist.asp")
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Response.write(getcode)
Response.End()
%>