📄 showmusic.asp

📁 青岛dj站程序,带后台管理名字和密码都是:admin
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="style.asp"-->
<%
id=request.QueryString("id")
founderr=false
if id="" then
	errmsg=errmsg+"<br><li>对不起！请选择歌曲！</li>"
	call error()
	Response.End 
end if
set rs=server.createobject("adodb.recordset")
sql = "SELECT MusicName,ListenUrl,Specialid,hits,Classid,musictype FROM MusicList WHERE id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg=errmsg+"<br><li>对不起！请正确选择歌曲。</li>"
	founderr=true
else
	MusicName=rs("MusicName")
	ListenUrl=rs("ListenUrl")
	Specialid=rs("Specialid")
	hits=rs("hits")
	Classid=rs("Classid")
	musictype=rs("musictype")
end if
rs.close

if Specialid<>"" and not isnull(Specialid) then
	sql = "SELECT name FROM Special WHERE Specialid="&Specialid
	rs.open sql,conn,1,1
	if not rs.eof then
		SpecialName=rs("name")
	end if
end if
rs.close

set rs=nothing
conn.close
set conn=nothing
if founderr=true then
	call error()
else
	call ShowMusic
end if

sub ShowMusic
%>
<html>
<head>
<title>歌曲：<%=MusicName%>==<%=WebTitle%></title>
<script src=JS/Js.js></script>
</head>
<body bgcolor="#C0C0C0">
<div align="center">
<table border="1" width="100%" cellspacing="1" cellpadding="0" bgcolor="#E1E1E1" height="1" style="border-collapse: collapse" bordercolor="#01235C">
  <tr>
    <td width="96%" height=16 bgcolor="#171A1C">歌曲：<%=MusicName%>  </td>
  </tr>
  <tr>
    <td width="95%" height=1 bgcolor="#3F464E">专辑：<a href="ShowSpecial.asp?Specialid=<%=Specialid%>" target=_blank><%=SpecialName%></a></td>
</tr>
  <tr>
    <td align="center" bgcolor="#3F464E" height="1">
    <p align="left">点击：<%=hits%></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#000000" height="1">
    <%
                             
                              if musictype=1 then
                              %>
                              <a href="javascript:open_window('songreal.asp?id=<%=id%>','Listen','width=280,height=360')">
                              <img src="images/playreal.gif" border="0" alt="试听 使用RealPlayer播放" ></a>
                              <%else if musictype=2 then%>
                              <a href="javascript:open_window('songmedia.asp?id=<%=id%>','Listen','width=280,height=360')">
                              <img src="images/playmedia.gif" border="0" alt="试听 使用MediaPlayer播放" ></a>
                              <%else if musictype=3 then%>
                              <a href="javascript:open_window('songflash.asp?id=<%=id%>','Listen','width=280,height=360')">
								<img src="images/playflash.gif" border="0" alt="试听 使用Flash6.0播放" ></a>
                              <%end if%><%end if%><%end if%>

    &nbsp; <a href="javascript:open_window('WriteSMusic.asp?id=<%=id%>','WriteSMusic','width=420,height=145')">点歌</a> &nbsp; <a href="UserCollect.asp?action=add&id=<%=id%>" target="Collect">收藏</a></td>
  </tr>
</table>
</div>
</body>
</html>
<%end sub%>
⌨️ 快捷键说明

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