📄 lylist.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='歌词搜索'><p>"

' 此程序由盛世華納-文学网(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"))
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/lylist.php?q="&q&"&start="&start&"&p="&p&"&T="&T&"&UA=Opera&ISDN="&ISDN&""
wstr=getHTTPPage(url)           
start=Instr(wstr,"<p>")
over=Instr(wstr,"<anchor><prev/>")
body=mid(wstr,start,over-start)
body = replace(body,"<p>","")
body = replace(body,".php",".asp")
body = replace(body,"<anchor><prev/>","")

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 + -