xgadmin.asp

多用户个人主页系统(ASP)

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

<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="md5.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("password")<>"" then
rs("pwd")=md5(trim(request("password")))
end if
if request("qx")<>0 then
rs("qx")=int(request("qx"))
end if
if request("password")<>"" 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%>