📄 playwma.asp
字号:
<%
numeration = request("numeration")
title = request("title")
%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style type="text/css">
div {font-size:12px}
</style>
<SCRIPT language=jscript.encode src="yj.js"></SCRIPT>
</head>
<body topmargin=0 leftmargin=0>
<DIV ALIGN='CENTER' STYLE='VERTICAL-ALIGN:MIDDLE'>
<div style="position:absolute;top:10px;left:10px;visibility:visible" id="loading">
<font color="blue" id="mystr">请稍候,正在加载网页.....</font></div>
<div id="moviebody" style="positon:absolute;visibility:hidden">
<SCRIPT language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</SCRIPT>
<script language=javascript>
var m=5;
var n=Math.floor(Math.random()*m+1) ;
document.write('<div align="center"><table width=471 height=272 border=0 cellspacing=0 cellpadding=0 background="images/' + n + '.gif">');
</script>
<tr valign="top">
<td height="170" colspan="3">
<table width="422" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td valign="bottom" height="34"> </td>
</tr>
<tr>
<td height="60"><div align="center"><iframe src="http://www.e58.net/free/news97.htm" frameborder="0" scrolling="no" marginwidth="0" marginheight="0" width="468" height="60"></iframe></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="64">
<div align="center" VALIGN=BOTTOM>
<b><font size=3 class=3d3>声 明</font></b><br>
<font color="#FFFFFF">本站所有歌曲版权归<font color="#FF0000">原唱歌手</FONT><font color="#FFffff">以及<font color="#FF0000">唱片公司</FONT><font color="#FFffff">所有<br></font>
<font color="#FFFFFF">请您在试听后马上删除，假如本站的行为侵犯了您的权益<br></font>
<font color="#FFFFFF">请您马上通知本站 本站QQ：273043 如不能播放请按F5刷新或重新打开<br></font>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="bottom" height="64" align="bottom">
<div align="center">
<SCRIPT language="javascript">
var mtvtop = "asx.asp?numeration=";
var goto1 = "<%=numeration%>";
str = mtvtop + goto1;
</Script>
<SCRIPT LANGUAGE="VBScript">
dim lngMP70
function Listen(mtvtop,goto1)
On Error Resume Next
lngMP70 = IsObject(CreateObject("WMPlayer.OCX"))
lngMP70 = false
' Windows Media Player 7 Code
If (lngMP70) Then
document.write "<OBJECT ID=MediaPlayer "
document.write " CLASSID=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6"
document.write " standby=""Loading Microsoft Windows Media Player components..."" "
document.write " TYPE=""application/x-oleobject"" width=""310"" height=""64"">"
document.write "<PARAM NAME=""url"" VALUE=""" + str+ """>"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "<PARAM NAME=""uiMode"" VALUE=""full"">"
document.write "</OBJECT>"
' Windows Media Player 6.4 Code
Else
document.write "<OBJECT ID=MediaPlayer "
document.write " CLASSID=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
document.write "CODEBASE=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
document.write " standby=""Loading Microsoft Windows Media Player components..."" "
document.write " TYPE=""application/x-oleobject"" width=""310"" height=""64"">"
document.write "<PARAM NAME=""FileName"" VALUE=""" + str+ """>"
document.write "<PARAM NAME=""ShowDisplay"" VALUE=""false"">"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "<PARAM NAME=""PlayCount"" VALUE=""3"">"
document.write "<PARAM NAME=""ShowStatusBar"" VALUE=""1"">"
document.write "</OBJECT>"
End If
end function
window.focus()
Listen mtvtop,goto1
</SCRIPT>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="bottom" align="center">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD width="100%" align="center">
<font style="COLOR: #664455; FONT-FAMILY: Impact; FONT-SIZE: 14pt">www.168cc.com</font></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
<Script Language="VBScript">
defaulttitle=document.title
loading.style.visibility="hidden"
moviebody.style.visibility="visible"
</Script>
<Script Language="JavaScript">
MediaPlayer.Open(str);
</Script>
<SCRIPT LANGUAGE="JScript" FOR=MediaPlayer EVENT=Error()>
alert("播放器发生错误,请联系管理员!或尝试按[F5]键刷新!");
</SCRIPT>
<SCRIPT LANGUAGE="JScript" FOR=MediaPlayer EVENT=Buffering()>
document.title="正在缓冲歌曲文件..."+"<%=title%>";
setTimeout("document.title=defaulttitle",2000);
</SCRIPT>
<SCRIPT LANGUAGE="JScript" FOR=MediaPlayer EVENT=PlayStateChange()>
if (lngMP70) document.title="正在播放歌曲文件..."+"<%=title%>";
else document.title="正在准备播放歌曲文件..."+"<%=title%>";
</SCRIPT>
</div>
<Script Language="VBScript">
dim def_w,def_h
def_w = document.body.clientWidth
def_h = document.body.clientHeight
if document.body.clientWidth < 471 then
window.resizeBy 471-document.body.clientWidth,0
end if
if document.body.clientHeight < 272 then
window.resizeBy 0,272-document.body.clientHeight
end if
</Script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -