<% IF not(Session("KEY")="1") THEN response.redirect "welcome.html" response.end END IF '========================================== ' ' SuperCMS新闻文章内容管理系统 V 1.0 ' ' 官方网址：http://www.supercms.cn ' www.supercms.net ' '========================================== '程序名称： SuperCMS新闻文章内容管理系统 '英文名称：Super Content Management System '作 者： 创意小子 '联系 Q Q： 77801933 ' '程序创建时间：2005-6-10 '程序完成时间：2005-8-1 '========================================== '请尊重作者版权不要删除以上信息 ' '力争做国内最好最实用的开源网站内容管理系统 ' '特别感谢玄鸟科技提供的大力支持 ' http://www.superbtec.com '========================================== %> <% dim rs1,sql1 dim rs2,sql2 dim rs3,sql3 if request.QueryString("action")="add" then set rs1=server.createobject("adodb.recordset") rs1.open "select * from admin",conn,3,2 rs1.addnew rs1("oskey")=request("oskey") rs1("Username")=request("Username") rs1("Passwd")=md5(request("Passwd")) rs1.update rs1.close response.write "" response.end end if if request.QueryString("action")="edit" then set rs2=server.createobject("adodb.recordset") rs2.open "select * from admin where id="+request("id"),conn,3,2 if trim(request("Passwd"))="" then password=rs2("passwd") else password=md5(request("Passwd")) end if rs2("oskey")=request("oskey") rs2("Username")=request("UserName") rs2("Passwd")=password rs2.update rs2.close session.abandon response.write "" response.end end if if request.QueryString("action")="del" then set rs3=server.createobject("adodb.recordset") rs3.open "delete * from admin where id="+request("id"),conn,1,1 rs3.open sql3,conn,1,1 rs3.close response.write "" response.end end if conn.close response.redirect "ManageAdmin.html" %>