📄 play.asp
字号:
<%
SongUrl=request("checked")
dim SongUrlArray(20)
randomize
SongUrl=trim(SongUrl)
if instr(SongUrl,",")=0 then
SongUrlArray(0)=SongUrl
else
SongUrl=replace(SongUrl," ","")
SongUrlArrayNew=split(SongUrl,",")
FoundNew=1
end if
if FoundNew=1 then
s=""
for intI=0 to ubound(SongUrlArrayNew)
s=s & SongUrlArrayNew(intI) & vbCrLf
next
else
s=SongUrl
end if
s=s&" "&vbCrLf
response.contenttype="audio/x-pn-realaudio"
response.addheader "Content-Disposition","inline; filename=playsong.ram"
response.write s
source="playsong.ram"
response.end
%>
<html>
<head>
<title> 71520音乐网 www.71520.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/music.css" rel="stylesheet" type="text/css">
</head>
<body background="images/bg.gif" leftmargin=0 topmargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=310 border=0>
<TBODY>
<TR>
<TD width=10 height="34"><IMG height=34 src="img/play_r1_c1_1.gif" width=10></TD>
<TD vAlign=top width=370 background=img/play_r1_c1_bg.gif> <TABLE height=23 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=21> <marquee scrollamount="3" width="100%" height="16">
<font color="#000000">正在播放: <%=musicname%> </font>
</marquee></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=100><IMG height=34 src="img/play_r1_c5.gif" width=100
border=0></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=310 border=0>
<TBODY>
<TR>
<TD><IMG height=66 src="img/play_5.gif" width=5></TD>
<TD align=middle> <OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=66
id=video1 width=300>
<param name="_ExtentX" value="7938">
<param name="_ExtentY" value="1746">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="<%=source%>">
<param name="CONTROLS" value="StatusBar,ControlPanel">
<param name="CONSOLE" value="Clip1">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000"><embed src="<%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height="66" width="300" autostart="true"> </OBJECT></TD>
<TD><IMG height=66 src="img/play_6.gif"
width=5></TD>
</TR>
</TBODY>
</TABLE><script>
<!--
document.write(unescape("%3Cscript%20src%3D%22http%3A//www.2vg.net/star/count.asp%3Fstyle%3D0%22%3E%0D%0A%3C/script%3E%20"));
//-->
</script>
</BODY>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -