📄 playlist.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"></script>
</head>
<body alink="#FF0000" leftMargin=0 topMargin=0 scroll=no onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="js/js.js"></script>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
Server.ScriptTimeOut=180
Function play
dim lsstart,lsend,lsstr,lstemp
id=request("id")
lsstr=getHTTPPage("http://music.pcdown.net/exobudpl.asp?id="&id&"")
lsstart=instr(lsstr,"mkList(""")
lsend=instr(lsstr,""",""")
lstemp=mid(lsstr,lsstart,lsend-lsstart)
lstemp=replace(lstemp,"mkList(""","")
lstemp=replace(lstemp,"2772/2439580980~984jkad`f90/","8269/WWW772CN_AutoReNameXPowerdByYesoul_kaldsKLAKF93/") 'www.772.cn的地址，注意修改
response.write lstemp
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
%>
<BODY bgColor=#000000 leftMargin=0 topMargin=0 oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="119">
<tr>
<td width="468" height="60"><img src="http://www.0yz.net/music/images/music.gif"></td>
</tr>
<tr>
<td width="100%" height="51">
<object id="mPlayer1" width=470 height=40
classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" type=application/x-oleobject standby="Loading Windows Media Player components...">
<param name="URL" value=<%=play%>
<param name="rate" value="1">
<param name="balance" value="0">
<param name="currentPosition" value="0">
<param name="defaultFrame" value="">
<param name="playCount" value="100">
<param name="autoStart" value="-1">
<param name="currentMarker" value="0">
<param name="invokeURLs" value="-1">
<param name="baseURL" value="">
<param name="volume" value="100">
<param name="mute" value="0">
<param name="uiMode" value="full">
<param name="stretchToFit" value="0">
<param name="windowlessVideo" value="-1">
<param name="enabled" value="-1">
<param name="enableContextMenu" value="0">
<param name="fullScreen" value="0">
<param name="SAMIStyle" value="">
<param name="SAMILang" value="">
<param name="SAMIFilename" value="">
<param name="captioningID" value="">
<param name="enableErrorDialogs" value="0">
<param name="_cx" value="12435">
<param name="_cy" value="1640">
</object></td>
</tr>
</table>
</td>
</tr>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -