📄 search.asp
字号:
<%
'============================================================
'星鸿娱乐网→音乐小偷
'文件名：说明.txt
'版 本：1.0
'编写日期：2004-9-7
'更改造成的技术性问题，本站不负责
'------------------------------------------------------------
'Copyright (C) 2002-2004 0YZ.net. All rights reserved.
'提供: http://www.0yz.net, 制作：http://www.0yz.net
'============================================================
%>
<html>
<head>
<TITLE>星鸿娱乐网→音乐频道</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
<script language="javaScript" SRC="js/js.js"></script>
</head>
<%
Server.ScriptTimeOut=180
Function main
dim lsstart,lsend,lsstr,lstemp
on error resume next
page=request("page")
keyword=request("keyword")
stype=request("stype")
if page="" then
page=1
url="http://music.pcdown.net/Search.asp?keyword="&keyword&"&stype="&stype&""
else
url="http://music.pcdown.net/Search.asp?page="&page&"&keyword="&keyword&"&stype="&stype&""
end if
lsstr=getHTTPPage(url)
lsstart=instr(lsstr,"<td bgcolor=""#333333""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
lsend=instr(lsstr,"<td width=""192"" height=""100"" align=""center""><img src=""indeximg/end.gif"" width=""150"" height=""70""></td>")
lstemp=mid(lsstr,lsstart,lsend-lsstart)
lstemp=replace(lstemp,"../","")
lstemp=replace(lstemp,"indeximg/","http://music.pcdown.net/indeximg/")
lstemp=replace(lstemp,"images/","http://music.pcdown.net/images/")
lstemp=replace(lstemp,"value=""请输入关键字"" size=13","onfocus=""this.value=''"" value=""请输入关键字"" size=13")
lstemp=replace(lstemp,"<option value=MusicWords>歌词搜索</option>","")
lstemp=replace(lstemp,"<option value=SpecialIntro>简介搜索</option>","")
lstemp=replace(lstemp,"index/mzy_","Artlist.asp?id=")
lstemp=replace(lstemp,"special/msp_","speciallist.asp?id=")
lstemp=replace(lstemp,"musiclist/mmc_","musiclist.asp?id=")
lstemp=replace(lstemp,".htm","")
lstemp=replace(lstemp,"playlist.asp","http://music.pcdown.net/playlist.asp")
lstemp=replace(lstemp,"width=471,height=272,menubar=no,top=250,left=250","width=470,height=122,top=168,left=168")
if err.number<>0 then
Response.Write("<br><br><br><br><br><br><br><br><br><br><br><br> ")
Response.Write("<font size=""5"" color=""#FF9933"">对不起，网站正在升级维护中，请稍后再访问！</font>")
Response.Write("<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>")
else
response.write lstemp
end if
end function
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
End function
Function PostHTTPPage(url,strForm)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "POST",url,false
http.setRequestHeader "Content-Length",len(strForm)
http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
Http.send(strForm)
if Http.readystate<>4 then
exit function
end if
PostHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
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
%>
<!--#include file="top.asp"-->
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr>
<td bgcolor="#000000"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr >
<td ><table width="100%" border="0" cellspacing="0" cellpadding="0">
</table></td>
</tr>
</table></td>
</tr><tr>
<%=main%>
<table border="1" width="776" align="center">
<tr>
<td bgcolor="#F4FAFF">
<font color="#FF9933"><b>特别声名</b>:</font><font color="#999999">:本站歌曲均为网络上所收集<span lang="zh-cn">，</span>版权归歌手和唱片公司所有。请在下载后24小时内删除，并购买正版CD支持你喜爱的歌手。如果本站有侵害到您权益的地方
，请来信告知。我们会立即删除侵害到您权益的内容。对以上引起的一切法律纠纷，本站无权利承担!</font></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -