28,391
社区成员
发帖
与我相关
我的任务
分享
<%=rs("username")%><input type="hidden" name="username" value="<%=rs("username")%>"/></
<table width="657" border="1">
<tr>
<td colspan="5">修改用户</td>
</tr>
<tr>
<td width="57">序号</td>
<td width="182">用户名称</td>
<td width="166">密码</td>
<td width="99">修改</td>
<td width="117">删除用户</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from users" ,cnn,1,3
k=1
while not rs.eof
%>
<tr>
<form name="<%="form"&k%>" method="post" action="update_users_do.asp">
<td><%=k%></td>
<td><%=rs("username")%><input type="hidden" name="username" /></td>
<td><input name="password" value="<%=rs("password")%>"/></td>
<td><input type="submit" value="修改密码"/> </td>
<td><a href="del_user_do.asp?username=<%=rs("username")%>">删除</a></td>
</form>
<%
rs.movenext
k=k+1
wend
%>
</table>
<!-- #include file="./conn/conn.asp"-->
<%
dim var_username,var_password
var_username = trim(request("username"))
var_password = trim(request("password"))
set rs = CreateObject("adodb.recordset")
rs.cursorLocation = 3
rs.open "select * from [users] where [username]='" & var_username & "'",cnn,1,3
If rs.EOF AND rs.BOF Then
Response.Write "no records"
Else
rs("password") = var_password
rs.update
End If
If rs.state<>0 Then rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
response.redirect "update_users.asp"
%>