<!--#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%>