www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > admin/change.asp
<!--#include file="../conn.asp"--> <!--#include file="loginOK.asp"--> <% change=request("change") delet=request("delet") addname=request("addname") set rs=server.createobject("adodb.recordset") if change<>"" then classname=request("classname") sql="select * from class where classid="&Replace(request("classid"), "'", "''") rs.open sql,conn,1,3 rs("class")=request("classname") rs.update rs.close end if if delet<>"" then conn.execute"delete from class where classid="&Replace(request("classid"), "'", "''") end if if addname<>"" then classname=request("classname") rs.open "select * from class",conn,1,3 rs.addnew rs("class")=classname rs.update rs.close end if if request("changeserver")<>"" then sql="select * from server where serverid="&clng(request("serverid")) rs.open sql,conn,1,3 rs("servername")=trim(request("servername")) rs("serverurl")=trim(request("serverurl")) if request("downurl")<>"" then rs("downurl")=request("downurl") end if rs.update rs.close end if if request("addserver")<>"" then sql="select * from server" rs.open sql,conn,1,3 rs.addnew rs("servername")=Replace(request("servername"), "'", "''") rs("serverurl")=Replace(request("serverurl"), "'", "''") if request("downurl")<>"" then rs("downurl")=request("downurl") end if rs.update rs.close end if if request("deletserver")<>"" then conn.execute"delete from server where serverid="&clng(request("serverid")) end if response.redirect Request.ServerVariables("HTTP_REFERER") %>