xgadmin.asp

超级购物网站 支持支付宝 比原来的时代商城好多了 界面美观大方 随拿随用

<!--#include file="const.asp"-->


<!--#include file="conn.asp"-->
<%'On Error Resume Next
set rs=server.createobject("adodb.recordset")
id=request("D1")
if id=0 then
id=1
end if
sql="select * from admin where id="&id
rs.open sql,conn,3,2
if rs.recordcount<>0 then
if request("UserPassword")<>"" then
rs("pwd")=request("UserPassword")
end if
if request("qx")<>0 then
rs("qx")=int(request("qx"))
end if
if request("UserPassword")<>"" or request("qx")<>0 then
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>alert('管理员修改成功');</script>"
response.write "<script>location.href='admin_admin.asp';</script>"
else
response.write "<script>alert('你选择的操作对象不存在');</script>"
response.write "<script>location.href='admin_admin.asp';</script>"
end if
'Response.Write Err.description%>