www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/play_showgeci.asp
<!--#include file="connkkp.asp"-->
<!--#include file="function.asp"-->
<%
dim id
dim rs,sql
id=trim(request.QueryString("id"))
if id="" then
errmsg="<li>请选择歌曲！</li>"
call error()
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where id="&cstr(id)
rs.open sql,conn,1,1
if rs.EOF then
errmsg="<br><li>服务器出错！请联系管理员</li>"
call error()
Response.End
else
MusicName=rs("MusicName")
songwords=rs("songwords")
LockWords=rs("LockWords")
addwordsuser=rs("addwordsuser")
shenhe=rs("shenhe")
end if
rs.close
%>
<html>
<head><title>查看歌词 - <%=Singer%> - <%=MusicName%></title>
<LINK href="../Images/Play.Css" rel=stylesheet type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
background-color: #E1F0FB;
}
-->
</style></head>
<body leftmargin="10" topmargin="0">
<div align="left">
<table border="0" cellpadding="6" cellspacing="0" style="font-size:9pt; border-collapse:collapse" bordercolor="#111111" width="100%">
<tr>
<td height=1 valign="bottom" width="867">
<font color="#FF9900">
<span style="font-weight: bold"><font style="font-size: 9pt">歌词：<%=MusicName%> </font><font face="Arial" size="2">xydj舞曲音乐网收集整理
</font></span> </font></td>
</tr>
<tr>
<td height=50 align=center width="867"><p align="left">
<font style="font-size: 10.8pt">
<%if isnull(trim(songwords)) then%>
</font></p>
<p> </p>
<p> </p>
<p align="center">
<p> </p>
<input type=button name=addword<%if LockWords=false then%> onClick="window.open('../User/Play_Addword.asp?id=<%=id%>','_self','')"<%end if%> value="没有歌词？我来添加...<%if LockWords=true then%>(已锁定)<%end if%>">
</td>
<%else%>
<br>
<%if shenhe=true then%>
</font></p>
<p align="center">
<p> </p>
<p align=right>本首歌词已由<b><%=addwordsuser%></b>添加了，管理员审核中...</p>
<%else%>
<p align="left">
<font style="font-size: 10.8pt">
<%=htmlencode3(songwords)%></font></p>
<p> </p>
<p align=right>本首歌词由<b><%=addwordsuser%></b>提供</p>
<%end if%>
<%end if%>
</tr>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%></body>
</html>