📄 songmedia.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
%>
<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="VBScript">                                    
on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n'); 
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))
if not RealPlayerG2 and RealPlayer5 and RealPlayer4 then
		if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
			window.location = "http://www.i-movie.cn/tools/RealOnePlayer2GOLD.exe"
		end if
end if

Sub player_OnBuffering(lFlags,lPercentage)
	if (lPercentage=100) then
		StartPlay=false
		if (FirstPlay) then
			FirstPlay=false
		end if	
		exit sub
	end if
End Sub
Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
select case player.GetLastErrorRMACode()
		case -2147221496
			window.alert(ERR_FileNotFind)
		case -2147221433,-2147221428,-2147221417,-2147217468
			window.alert(ERR_NotLocateServer)
		case else
			window.alert(ERR_UnkownError)
	end select
End Sub
      </script>
<object id="video1" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" height="60"
    width="773">
      <param name="controls" value="StatusBar,ControlPanel">
      <param name="console" value="Clip1">
      <param name="autostart" value="true">
      <param name="src" valuetype="ref" value="http://www2.137yy.com/<%=source%>">
      <param name="_ExtentX" value="7276">
      <param name="_ExtentY" value="1588">
      <param name="SHUFFLE" value="0">
      <param name="PREFETCH" value="0">
      <param name="NOLABELS" value="0">
      <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="http://www2.137yy.com/<%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1"
controls="ControlPanel,StatusBar" height="60" width="275" autostart="true"></object></div>
<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>
<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 + -