⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 pre_play.asp

📁 音乐类型的好网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
dim theurl,title,suffix
suffix = " -- " & Request("title")
numeration = Request("numeration")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where numeration="&numeration,conn,1,3
If Not Rs.Eof Then
	title = Rs("title") & suffix
	If instr(Rs("url"),"http://") <> 1 And Rs("class") <> "DJ舞曲2" Then
		theurl = "http://www.520y.com/nihao/" & Rs("url")
	Else
		theurl = Rs("url")
	End If
Else
	Response.Write "错误的请求!"
	Response.End
End If
If instrrev(theurl,".swf") = len(theurl)-3 Then
	Call pre_flash()
	Response.End
End If
%>
<html>
<head>
<Script>
function clicked(url) {
    url = "http://" + url.substring(7,url.length);
    window.open(url,"realplayer")
	close();
}
</Script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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>&nbsp;</td>
        </tr>
        
      <tr> 
        <td valign="bottom" height="34">&nbsp;</td>
        </tr>
        <tr> 
          
        <td height="60"><div align="center"><iframe src="http://www.e58.net/free/news99.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"> 


<center>
<object id=ramp classid="CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" width="310" height="64" >
    <param name="SRC" value="firstrun.asp?no=<%=rs("numeration")%>">
    <param name="CONTROLS" value="ControlPanel,StatusBar">
    <param name="CONSOLE" value="cons">
	<param name="autostart" value="true">
	<param name="loop" value="true">
    <embed src="firstrun.asp?no=<%=rs("numeration")%>" type="audio/x-pn-realaudio-plugin" width="310" height="64" controls="All" console="cons" > 
    </embed></object>
</center>
<Script Language="VBScript">
window.focus()
</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>
</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 + -