asp数据修改保存代码

<%
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 ("

不存在此用户名！

处理文件

<%
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("