saveadmin.asp

购物系统(本版为正式商业版

<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx6<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<!--#include file="../md5.asp"-->
<%dim action,admin,adminid
action=request.QueryString("action")
adminid=request.QueryString("id")
admin=trim(request("admin"))
if trim(request("qx"))<>"" then
qx1=trim(request("qx"))
else
qx1=0
end if
if trim(request("qx2"))<>"" then
qx2=trim(request("qx2"))
else
qx2=0
end if
if trim(request("qx3"))<>"" then
qx3=trim(request("qx3"))
else
qx3=0
end if
if trim(request("qx4"))<>"" then
qx4=trim(request("qx4"))
else
qx4=0
end if
if trim(request("qx5"))<>"" then
qx5=trim(request("qx5"))
else
qx5=0
end if
if trim(request("qx6"))<>"" then
qx6=trim(request("qx6"))
else
qx6=0
end if
if trim(request("qx7"))<>"" then
qx7=trim(request("qx7"))
else
qx7=0
end if
if trim(request("qx10"))<>"" then
qx10=trim(request("qx10"))
else
qx10=0
end if
if trim(request("qx8"))<>"" then
qx8=trim(request("qx8"))
else
qx8=0
end if
if trim(request("qx9"))<>"" then
qx9=trim(request("qx9"))
else
qx9=0
end if
if trim(request("qx11"))<>"" then
qx11=trim(request("qx11"))
else
qx11=0
end if
if trim(request("qx12"))<>"" then
qx12=trim(request("qx12"))
else
qx12=0
end if
if trim(request("qx13"))<>"" then
qx13=trim(request("qx13"))
else
qx13=0
end if
if trim(request("qx14"))<>"" then
qx14=trim(request("qx14"))
else
qx14=0
end if
if trim(request("qx15"))<>"" then
qx15=trim(request("qx15"))
else
qx15=0
end if
if trim(request("qx16"))<>"" then
qx16=trim(request("qx16"))
else
qx16=0
end if
if trim(request("qx17"))<>"" then
qx17=trim(request("qx17"))
else
qx17=0
end if
if trim(request("qx18"))<>"" then
qx18=trim(request("qx18"))
else
qx18=0
end if
if trim(request("qx19"))<>"" then
qx19=trim(request("qx19"))
else
qx19=0
end if
if trim(request("qx20"))<>"" then
qx20=trim(request("qx20"))
else
qx20=0
end if
qx=qx1&","&qx2&","&qx3&","&qx4&","&qx5&","&qx6&","&qx7&","&qx8&","&qx9&","&qx10&","&qx11&","&qx12&","&qx13&","&qx14&","&qx15&","&qx16&","&qx17&","&qx18&","&qx19&","&qx20
select case action
'//修改数据
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin where adminid="&adminid,conn,1,3
rs("admin")=admin
if trim(request("password"))<>"" then
rs("password")=md5(trim(request("password")))
end if
rs("flag")=int(request("flag"))
rs("qx")=qx
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End
'//添加新数据
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_admin",conn,1,3
rs.addnew
rs("admin")=trim(request("admin2"))
rs("password")=md5(trim(request("password2")))
rs("flag")=int(request("flag2"))
rs("qx")=qx
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('添加成功！');history.go(-1);</script>"
response.End
'//删除数据
case "del"
conn.execute ("delete from shop_admin where adminid="&request.QueryString("id"))
response.Redirect "manageadmin.asp"
end select
%>