📄 list.asp

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

💻 ASP

字号:

<% @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>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>

<% 
Response.Write "<card title='铃声mp3搜索'><p>"

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


q=server.urlencode(request("q"))
p=server.urlencode(request("p"))
if p="" then p="0"
T=server.urlencode(request("T"))
if T="" then T="1165137448"
np=request("np")
if np<>"" then 
start=np*5
else
start=server.urlencode(request("start"))
end if
if start="" then start="0"
force=server.urlencode(request("force"))

flag=server.urlencode(request("flag"))
if flag="" then flag="1"
thistime=server.urlencode(request("thistime"))

ISDN=server.urlencode(request("ISDN"))
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/list.php?q="&q&"&start="&start&"&force="&force&"&flag="&flag&"&thistime="&thistime&"&p="&p&"&T="&T&"&ISDN="&ISDN
wstr=getHTTPPage(url)           
start=Instr(wstr,"<p>")
over=Instr(wstr,"<a href=""index.php?")

body=mid(wstr,start,over-start)

body = replace(body,"<p>","")
body = replace(body,"php","asp")
body = replace(body,"<a href=""index.php?","")

if body="" then
Response.write "很遗憾，远程数据丢失，无法为您服务，请稍候关注"
else

Response.write body
end if
%>
<!--#INCLUDE file="hotmonet.inc"-->
</p></card></wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -