saveadmin.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim Admin,Pass,Act
admin=rst("admin")
pass=rst("password")
act=rst("action")

Dim RsAdmin,SqlAdmin
if act="add" then
if admin="" then response.write"<script language=javascript>alert('管理员用户名不能为空');history.back(-1);</script>"
if pass="" then response.write"<script language=javascript>alert('管理员密码不能为空');history.back(-1);</script>"

set rsadmin=server.createobject("adodb.recordset")
sqladmin="select * from bbradmin"
rsadmin.open sqladmin,conn,1,3
rsadmin.addnew
rsadmin("bbrname")=admin
pass=md5(pass,cBBRMd5Byte)
rsadmin("bbrpass")=pass
rsadmin("flag")=rst("flag")
rsadmin.update
response.write"<script language=javascript>alert('管理员添加成功！');this.location.href='admin_pass.asp';</script>"
elseif act="修改" then

if Not isNum(rst("adminid")) then
   Call AlertInfo("参数传递有误，请不要尝试破解本程序！2","help.asp",1)
end if
set rsadmin=server.createobject("adodb.recordset")
sqladmin="select * from bbradmin where adminid="&rst("adminid")
rsadmin.open sqladmin,conn,1,3
rsadmin("bbrname")=admin
if rsadmin("bbrpass")=pass then
   rsadmin("bbrpass")=pass
else
   pass=md5(pass,cBBRMd5Byte)
   rsadmin("bbrpass")=pass
end if
rsadmin("flag")=rst("flag")
rsadmin.update
response.write"<script language=javascript>alert('管理员修改成功！');this.location.href='admin_pass.asp';</script>"
elseif act="删除" then

if Not isNum(rst("adminid")) then
   Call AlertInfo("参数传递有误，请不要尝试破解本程序！2","help.asp",1)
end if
set rsadmin=server.createobject("adodb.recordset")
sqladmin="select * from bbradmin where adminid="&rst("adminid")
rsadmin.open sqladmin,conn,1,3
rsadmin.delete
rsadmin.update
response.write"<script language=javascript>alert('管理员删除成功！');this.location.href='admin_pass.asp';</script>"
else
response.write"<script language=javascript>alert('错误的修改操作！');history.back(-1);</script>"
response.end
end if
rsadmin.close
set rsadmin=nothing
%>