www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/play_addword.asp
<!--#include file="connkkp.asp"-->
<%
id=Request("id")
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=errmsg+"<br>"+"<li>服务器出错！请联系管理员"
call error()
Response.End
else
MusicName=rs("MusicName")
songwords=rs("songwords")
LockWords=rs("LockWords")
end if
rs.close
%>
<head><title>添加歌词：<%=Singer%>==<%=MusicName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
background-color: #E1F0FB;
}
-->
</style><body topmargin="0" leftmargin="0">
<LINK href="../Images/Play.Css" rel=stylesheet type=text/css>
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-style:solid; border-collapse: collapse" width="100%" height="1" cellpadding="3" bordercolor="#E1F0FB">
<tr>
<td width="100%" height="1">
<p align="left"><font color="#FF9900">
<span style="font-size: 10.8pt; font-weight: 700">歌曲名称：</span></font><%=MusicName%> <br><font color="#FF9900">
<span style="font-size: 10.8pt; font-weight: 700">歌手：</span></font><%=Singer%></td>
</tr>
<form name=form action="../User/Play_Saveword.asp?id=<%=id%>" method="POST">
<tr>
<td width="100%" height="1"><%if LockWords=true then%><p align="left">
<font color="#FF9900"><span style="font-size: 10.8pt; font-weight: 700">感谢各位网友为本站添砖加瓦<%else%></span></font><font color="#FF9900"><p align="center">
</font><span style="font-size: 10.8pt; font-weight: 700">
<font color="#FF9900">
<TEXTAREA name=songwords rows=23 cols=53 style="border-style: solid; border-width: 1; font-size:10.8pt"><%if not isnull(trim(songwords)) then%><%=htmlencode1(songwords)%><%end if%></TEXTAREA><%end if%></font></span></td>
</tr>
<tr>
<td width="100%" height="1"><%if LockWords=true then%><p align="left">
<font color="#FF9900"><span style="font-size: 10.8pt; font-weight: 700">歌词已锁定，无法修改！<%else%></span></font><p align="center">
<span style="font-size: 10.8pt"><b><font color="#FF9900">
<input type=submit name=submit value="确定添加" style="font-size: 10.8pt; border-style: solid; border-width: 1; background-color:#c6e3f7">
</font><font color="#FF9900">
<input type=reset name=reset value="重 来" style="border-style: solid; border-width: 1; font-size:10.8pt"><%end if%></font></b></span></td>
</tr>
</form>
</table>
</center>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%>