www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/play_saveword.asp

    <!--#include file="connkkp.asp"-->
<!--#include file="function.asp"-->
<%
founderr=false
id=request("id")
songwords=trim(request("songwords"))
set rs=server.createobject("adodb.recordset")
if id="" then
	errmsg=errmsg+"<br><li>请先选择歌曲！</li>"
	founderr=true
else
	sql="select * from MusicList where id="&id
	rs.open sql,conn,1,3
	if not rs.EOF then
		if rs("LockWords")=true then
			errmsg=errmsg+"<br><li>歌词已锁定，无法修改！</li>"
			founderr=true
		end if
		if trim(songwords)="" then
			rs("songwords")=null
		else
			rs("songwords")=htmlencode2(songwords)
		end if
		rs("AddWordsUser")=membername
		rs("LockWords")=true
		rs("shenhe")=true
		rs.update
	else
	errmsg=errmsg+"<br><li>选择歌曲错误！</li>"
	founderr=true
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
if founderr=true then
	call error()
else
	Response.Redirect "../User/Play_showgeci.asp?id="&id
end if
%>