📄 song_old.asp

📁 青岛dj站程序,带后台管理名字和密码都是:admin
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
if request("id")<>"" then
	if isnull(session("DJ58User")) or isnull(session("HappyMusicPwd")) or session("DJ58User")="" or session("HappyMusicPwd")="" then
		errmsg="<li>请登陆！只有会员才能听歌。</li>"
		call error()
		response.end
	else
		set rs=server.createobject("adodb.recordset")
		sql="select * from user where UserName='"&Session("DJ58User")&"' and PassWord='"&Session("HappyMusicPwd")&"'"
		rs.Open sql,conn,1,3
		if not rs.eof then
			rs("Listens")=rs("Listens")+1
			rs.Update
		else
			errmsg="<li>会员不存在！请联系管理员或重新注册。</li>"
			call error()
			response.end
		end if
		rs.close
	end if
	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&"--"&WebTitle&"</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
%>
<body topmargin=0 leftmargin=0 bgcolor=#006AAA>
<table border="0" width="275" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><img border="0" src="player/top_left.gif" width="6" height="18"><img border="0" src="player/top.gif" width="248" height="18"><a href='javascript:window.close();'><img border="0" src="player/close.gif" width="21" height="18"></a></td>
  </tr>
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="6"><img border="0" src="player/left.gif" width="6" height="66"></td>
          <td width="248">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="50%">
                  <table border="0" width="100%" cellspacing="0" cellpadding="0">
                    <tr>
                      <td colspan="2"></td>
                    </tr>
                    <tr>
                      <td width="100%">
<object id=video1 classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" height=66 width=248>
              <param name="controls" value="StatusBar,ControlPanel">
              <param name="console" value="Clip1">
              <param name="autostart" value="true">
              <param name="src" value="<%=source%>">
              <embed src="<%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height=66 width=248 autostart=true>
              </embed></object></td></tr>
</table></td></tr></table></td><td width="21"><img border="0" src="player/right.gif" width="21" height="66"></td>
</tr></table></td></tr><tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<td width="33%"><img border="0" src="player/below_left.gif" width="6" height="32"></td>
<td width="33%"><img border="0" src="player/below.gif" width="248" height="32"></td>
<td width="34%"><img border="0" src="player/below_right.gif" width="21" height="32"></td></tr></table></td></tr></table>
</body></html>
⌨️ 快捷键说明

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