📄 detail.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"))
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"))

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/detail.php?name="&name&"&format="&format&"&start="&start&"&force="&force&"&flag="&flag&"&thistime="&thistime&"&ra="&ra&"&q="&q&"&p="&p&"&T="&T&"&ISDN="&ISDN&"&start2="&start2&""
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,"/iask/ring/","/mp3/")
body = replace(body,"T","a")
body = replace(body,"http://wap.sina.com.cn/cgi-bin/ad/service.cgi?","/")
body = replace(body,"[&#25910;&#36153;]","")

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