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")
%>