📄 index.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
lsstr=getHTTPPage("http://music.pcdown.net/index.htm")
lsstart=instr(lsstr,"<td bgcolor=""#333333""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
lsend=instr(lsstr,"<map name=""Map3"">")
lstemp=mid(lsstr,lsstart,lsend-lsstart)
lstemp=replace(lstemp,"indeximg/","http://music.pcdown.net/indeximg/")
lstemp=replace(lstemp,"cdpic/","http://music.pcdown.net/cdpic/")
lstemp=replace(lstemp,"bgcolor=""39599C""","bgcolor=""#D1E6F7""")
lstemp=replace(lstemp,"<font color=""FFFF00"">","<font color=""000000"">")
lstemp=replace(lstemp,"<font color=""FFFFff"">","<font color=""000000"">")
lstemp=replace(lstemp,"http://music.pcdown.net/indeximg/line4.gif","images/line4.gif")
lstemp=replace(lstemp,"http://music.pcdown.net/indeximg/main1.gif","images/main1.gif")
lstemp=replace(lstemp,".htm","")
lstemp=replace(lstemp,"playsong.asp","http://music.pcdown.net/playsong.asp")
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,"musiclist/mmc_","musiclist.asp?id=")
lstemp=replace(lstemp,"special/msp_","speciallist.asp?id=")
lstemp=replace(lstemp,"http://www.cds21cn.net/soft/mpsetup_9x.exe","http://www.letsgo8.com/software/soft.asp?id=6856")
lstemp=replace(lstemp,"http://www.cds21cn.net/soft/realone2.exe","http://www.letsgo8.com/software/soft.asp?id=9884")
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>
<font color="#800000"><b>特别声名</b>::本站歌曲均为网络上所收集<span lang="zh-cn">，</span>版权归歌手和唱片公司所有。请在下载后24小时内删除，并购买正版CD支持你喜爱的歌手。如果本站有侵害到您权益的地方
，请来信告知。我们会立即删除侵害到您权益的内容。对以上引起的一切法律纠纷，本站无权利承担!</SCRIPT></font></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -