<%
if session("username")<>"admin" then
response.write ""
session("passed")=false
else
%>
用户修改
<%
dim uid
uid=request.querystring("userid")
sql="select * from users where id=" & uid
'定义recordset对象
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.write ("
不存在此用户名!
")
else
%>
<%end if%>
<%
end if
%>
处理文件
用户管理
<%
userid = request.querystring("userid")
oripwd = request.form("oripwd")
pwd = request.form("pwd")
'判断是否存在此用户
set rs = server.createobject("adodb.recordset")
'sql = "select * from users where id = '"&userid&"'"
'rs.open sql,conn,1,1
rs.open "select * from users where id="&userid,conn,1,3
if rs.eof then
response.write("
不存在此用户名!
")
response.write("")
elseif (rs("userpwd")<>md5(oripwd)) then
response.write("
密码错误!
")
response.write("")
else
sql = "update users set userpwd= '"&md5(trim(pwd))&"' where id = "&userid
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
response.write("