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

📄 songreal.asp

📁 疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<%
if request("id")<>"" then
set rs=server.createobject("adodb.recordset")
	id=request("id")
	sql="select * from MusicList where id="&id
	rs.open sql,conn,1,3
	if rs.eof then
		errmsg="<li>对不起！该歌曲不存在，可能已经被管理员删除。</li>"
		call error()
		Response.End 
	else
		rs("hits")=rs("hits")+1
		rs.Update
		source=rs("ListenUrl")
		MusicName=rs("MusicName")
	end if
	rs.Close
	response.write "<html><head><title>舞曲名称:"&MusicName&" —【疯狂DJ站】</title></head>"
elseif request("checked")<>"" then
	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"
        set rs=server.createobject("adodb.recordset")
	if FoundNew=1 then
		for intI=0 to ubound(SongUrlArrayNew)
			sql="select hits from MusicList where ListenUrl='"&SongUrlArrayNew(intI)&"'"
			rs.open sql,conn,1,3
			if not rs.eof then
				rs("hits")=rs("hits")+1
				rs.update
			end if
			rs.close
		next	
	else	
		sql="select hits from MusicList where ListenUrl='"&SongUrlArray(0)&"'"
		rs.open sql,conn,1,3
		if not rs.eof then
		
			rs("hits")=rs("hits")+1
			rs.update
		end if
		rs.close
	end if
	canend="ok"

else
	errmsg= "<li>请选择歌曲！</li>"
	call error()
	Response.End 
end if
if canend="ok" then response.end
set rs=nothing
conn.close
set conn=nothing
%>

<STYLE type=text/css>TD {
	FONT-SIZE: 12px; COLOR: #ffffff
}
A {
	COLOR: #ffffff; TEXT-DECORATION: none
}
</STYLE>
<link href="css.css" rel="stylesheet" type="text/css">
<div align="center">
<BODY leftMargin=0 topMargin=0>
<script language="javascript">
kstatus();
function kstatus(){
  self.status=" 我就喜欢【仙居在线_音乐网】，请向您的朋友们推荐 www.137yy.Com ！";
  setTimeout("kstatus()",0);
}
</script>
<img src="js/tu.gif">
<script language="javascript">
<!--
var str
str="http://www2.137yy.com/<%=source%>";

document.write ("<OBJECT id=Player2 name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border=\"0\" width=760 height=65 type=application/x-oleobject standby=\"Loading Windows Media Player components...\">\n")
document.write ("<param name=\"AudioStream\" value=\"-1\">\n")
document.write ("<param name=\"AutoSize\" value=\"0\">\n")
document.write ("<param name=\"AutoStart\" value=\"-1\">\n")
document.write ("<param name=\"AnimationAtStart\" value=\"-1\">\n")
document.write ("<param name=\"AllowScan\" value=\"-1\">\n")
document.write ("<param name=\"AllowChangeDisplaySize\" value=\"-1\">\n")
document.write ("<param name=\"AutoRewind\" value=\"0\">\n")
document.write ("<param name=\"Balance\" value=\"10\">\n")
document.write ("<param name=\"BaseURL\" value>\n")
document.write ("<param name=\"BufferingTime\" value=\"5\">\n")
document.write ("<param name=\"CaptioningID\" value>\n")
document.write ("<param name=\"ClickToPlay\" value=\"-1\">\n")
document.write ("<param name=\"CursorType\" value=\"0\">\n")
document.write ("<param name=\"CurrentPosition\" value=\"-1\">\n")
document.write ("<param name=\"CurrentMarker\" value=\"0\">\n")
document.write ("<param name=\"DefaultFrame\" value>\n")
document.write ("<param name=\"DisplayBackColor\" value=\"0\">\n")
document.write ("<param name=\"DisplayForeColor\" value=\"16777215\">\n")
document.write ("<param name=\"DisplayMode\" value=\"0\">\n")
document.write ("<param name=\"DisplaySize\" value=\"4\">\n")
document.write ("<param name=\"Enabled\" value=\"-1\">\n")
document.write ("<param name=\"EnableContextMenu\" value=\"0\">\n")
document.write ("<param name=\"EnablePositionControls\" value=\"-1\">\n")
document.write ("<param name=\"EnableFullScreenControls\" value=\"0\">\n")
document.write ("<param name=\"EnableTracker\" value=\"-1\">\n")
document.write ("<param name=\"Filename\" value='" + str + "'>\n")
document.write ("<param name=\"InvokeURLs\" value=\"-1\">\n")
document.write ("<param name=\"Language\" value=\"-1\">\n")
document.write ("<param name=\"Mute\" value=\"0\">\n")
document.write ("<param name=\"PlayCount\" value=\"0\">\n")
document.write ("<param name=\"PreviewMode\" value=\"0\">\n")
document.write ("<param name=\"Rate\" value=\"1\">\n")
document.write ("<param name=\"SAMILang\" value>\n")
document.write ("<param name=\"SAMIStyle\" value>\n")
document.write ("<param name=\"SAMIFileName\" value>\n")
document.write ("<param name=\"SelectionStart\" value=\"0\">\n")
document.write ("<param name=\"SelectionEnd\" value=\"0\">\n")
document.write ("<param name=\"SendOpenStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendWarningEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendErrorEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendKeyboardEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseClickEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseMoveEvents\" value=\"0\">\n")
document.write ("<param name=\"SendPlayStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"ShowCaptioning\" value=\"0\">\n")
document.write ("<param name=\"ShowControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowAudioControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowDisplay\" value=\"0\">\n")
document.write ("<param name=\"ShowGotoBar\" value=\"0\">\n")
document.write ("<param name=\"ShowPositionControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowStatusBar\" value=\"-1\">\n")
document.write ("<param name=\"ShowTracker\" value=\"-1\">\n")
document.write ("<param name=\"TransparentAtStart\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderWidth\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderColor\" value=\"0\">\n")
document.write ("<param name=\"VideoBorder3D\" value=\"0\">\n")
document.write ("<param name=\"Volume\" value=\"0\">\n")
document.write ("<param name=\"WindowlessVideo\" value=\"0\">\n")
document.write ("<embed type=\"application/x-mplayer2\" pluginspage=\"http://www.microsoft.com/windows/mediaplayer/download/default.asp\" Name=\"Player\" width=\"300\" height=\"60\" border=\"0\" SHOWSTATUSBAR=\"-1\" SHOWCONTROLS=\"0\" SHOWGOTOBAR=\"0\" SHOWDISPLAY=\"-1\" INVOKEURLS=\"-1\" AUTOSTART=\"1\" CLICKTOPLAY=\"0\" DisplayForeColor=\"12945678\">\n")
document.write ("</OBJECT>\n")
//--></script><script src="http://vod.137yy.com/123/cutecounter_v1.6/mystat.asp?style=no"></script>
<SCRIPT LANGUAGE=JavaScript src='http://c09.caishow.com/cooperation/adCode/printSpecialJS.asp?f=5562'></SCRIPT>
<table width="773" border=0 align="center" cellpadding=0 cellspacing=0>
<tr><td><script language="JavaScript1.1" src=http://u.137yy.com/vdonglink.asp?user=137yy&classid=6&style=1></script></div></td></tr></table><script src="http://137yy.com/cutecounter_v1.6/mystat.asp?style=no"></script>
<div align=center>
<br><script language="JavaScript">
<!--
color = "#fff000";
 val = Math.random() + "000";
 val1 = val.substring(2, 3 );
 if( val1 % 2 == 0 )
 document.write("<a href=http://u.137yy.com/ target=_blank><font size=3 id=eb668 color=#D20000><b>加 入 翻一翻 文本链, 让你的网站火起来</b></font></a>" );
 else
 document.write("<a href=http://u.137yy.com/ target=_blank><font size=3 id=eb668 color=#D20000><b>加 入 翻一翻 文本链, 让你的网站火起来</b></font></a>" );
  
  setTimeout( dscchange, 3000);
  
     function dscchange()
    {
     if( color == "#fff000" )
      color = "#ff0000";
     else
         color = "#fff000"; 
        document.all.eb668.color= color;
        setTimeout( dscchange, 100);
    }
//-->
</script><br><iframe align="center" width="776" height="2080" src="http://www.caishow.com/default.asp?f=5562&menu=yes" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -