updateuser.asp

来自「借阅系统,可以很方便的管理书籍」· ASP 代码 · 共 25 行

<% response.buffer=true%>
<html>
<body bgcolor=black>
<%
username=request.form("username")
password=request.form("password1")
set rst=server.createobject("adodb.recordset")
strconn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wsm.mdb")
strsql="select * from user1 "
rst.open strsql,strconn,1,3
if not rst.EOF then
rst("username")=username
rst("password")=password
rst.Update 
response.write"<p align=center><font size=5 color=red>用户资料修改成功</font></p>"
 response.write"<p align=center><a href='管理员页面.htm'>返回管理员操作页面</a></p>"

else
end if
rst.close

%>
</body>
</html>