<!--#include file="Const.Asp"-->
<!--#include file="Top.Asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<!--#include file="error.ini"-->
<%
set rs=server.createobject("adodb.recordset")
act=request("act")	
if act="suoding" then
		sql="select lockwords from MusicList where id="&request("id") 
		rs.open sql,conn,1,3
		if not rs.EOF then
			if rs("lockwords")=true then
				rs("lockwords")=false
			else
				rs("lockwords")=true
			end if
			rs.update
		end if
		rs.close
	
elseif act="shenhe" then
		sql="select shenhe from MusicList where id="&request("id") 
		rs.open sql,conn,1,3
		if not rs.EOF then
			if rs("shenhe")=true then
				rs("shenhe")=false
			else
				rs("shenhe")=true
			end if
			rs.update
		end if
		rs.close
	else
		conn.close
		set conn=nothing
		errmsg=errmsg+"<li>操作错误！请联系管理员</li>"
		call error()
		Response.End
	end if	
	
	set rs=nothing
	conn.close
	set conn=nothing
	
%>
<body topmargin="0" leftmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
    <TR>
      <TD height=50></TD>
    </TR>
  </TBODY>
</TABLE>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
    <tr class="title">
      <td width="100%" Class="title">
          <table border="0" cellpadding="0" cellspacing="0" width="100%">
            <tr>
              <td width="100%" class=tdbg height="80" align="center">
                <b><img src="Images/OK.gif" width="150" height="47"></b>
                <p><a href="Admin_Word.Asp"><b>返 回</b> </a>
              </td>
            </tr>
          </table>
      </td>
    </tr>
  </table>
</body>                    
</html>           
<html></html>