j.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>


<%


' 此程序由盛世華納-文学网(wap.159dh.cn)开发，更多免费
' 程序将在近期开发，欢迎使用。请保留这段说明注释,不要修改版权.谢谢.


q=server.urlencode(request("q"))
p=server.urlencode(request("p"))
T=server.urlencode(request("T"))
start=server.urlencode(request("start"))
force=server.urlencode(request("force"))
flag=server.urlencode(request("flag"))
thistime=server.urlencode(request("thistime"))
ISDN=server.urlencode(request("ISDN"))
name=server.urlencode(request("name"))
format=server.urlencode(request("format"))
ra=server.urlencode(request("ra"))
start2=server.urlencode(request("start2"))
url=server.urlencode(request("url"))
cacheflag=server.urlencode(request("cacheflag"))
sname=server.urlencode(request("sname"))
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
 t = GetBody(Path)
End function
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,"utf-8") 
set http=nothing 
if err.number<>0 then 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 




Dim Url,Html,start,over,body,wap,wstr,str
Url="http://3g.sina.com.cn/iask/ring/j.php?name="&name&"&format="&format&"&start="&start&"&force="&force&"&flag="&flag&"&thistime="&thistime&"&ra="&ra&"&q="&q&"&p="&p&"&T="&T&"&UA=Opera&ISDN="&ISDN&"&start2="&start2&"&url="&url&"&cacheflag="&cacheflag&"&sname="&sname&""
wstr=getHTTPPage(url)           
start=Instr(wstr,"<wml>")
over=Instr(wstr,"<anchor>")
body=mid(wstr,start,over-start)
body = replace(body,"<wml>","")
body = replace(body,"<anchor>","")

body = replace(body,"&#29233;&#38382;&#25628;&#32034;","下载中...")
if body="" then
Response.write "很遗憾，远程数据丢失，无法为您服务，请稍候关注"
else

Response.write body
end if

%>

<!--#INCLUDE file="hotmonet.inc"-->
</p></card></wml>