📄 changeuserinfo.asp
字号:
<%@ language="vbscript" %>
<%if request("username")="" or request("password")="" then
response.write "fill username and password!"
response.write "<a href='changeuserinfo.htm'>try agan!<a>"
response.end
else
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from user_info where username='"&trim(request("username"))&"' and password='"&trim(request("password"))&"' "
rs.open sql,conn
if rs.bof and rs.eof then
response.write "can't find you?"
response.write "<a href='changeuserinfo.htm'>try again!<a>"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用户信息修改</title>
</head>
<body bgcolor="#FFFAD9">
<p align="center"><strong><font color="#0000FF"><big>用户信息修改 </big></font></strong></p>
<form method="POST" action="updateuserinfo.asp">
<input type="hidden" name="username" value="<%=request("username")%>"><div align="center"><center><table
border="1" width="65%" borderColorDark="#FFFFFF" borderColorLight="#000000"
cellspacing="0" bgcolor="#CFCFFE">
<tr>
<td width="31%" align="center">用户名</td>
<td width="69%"><%=rs("username")%>
</td>
</tr>
<tr>
<td width="31%" align="center">密 码</td>
<td width="69%"><input type="password" name="password" size="20"
value="<%=rs("password")%>"></td>
</tr>
<tr>
<td width="31%" align="center">校验密码</td>
<td width="69%"><input type="password" name="verpsw" size="20" value="<%=rs("password")%>"></td>
</tr>
<tr>
<td width="31%" align="center">E-mail</td>
<td width="69%"><input type="text" name="email" size="20" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td width="31%" align="center">性 别</td>
<td width="69%"><select name="sex" size="1">
<option value="先生">先 生</option>
<option value="小姐">小 姐</option>
<option value="不告诉你">不告诉你</option>
<option selected value="<%=rs("sex")%>"><%=rs("sex")%></option>
</select></td>
</tr>
<tr>
<td width="31%" align="center">出生年月</td>
<td width="69%"><input type="text" name="born" size="20" value="<%=rs("born")%>"></td>
</tr>
<tr>
<td width="31%" align="center">主 页</td>
<td width="69%"><input type="text" name="homepage" size="20" value="<%=rs("homepage")%>"></td>
</tr>
<tr>
<td width="31%" align="center">城 市</td>
<td width="69%"><input type="text" name="city" size="20" value="<%=rs("city")%>"></td>
</tr>
<tr>
<td width="31%" align="center">电 话</td>
<td width="69%"><input type="text" name="phone" size="20" value="<%=rs("phone")%>"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2"><div align="left"><p> 签
名（不能超过120字）</td>
</tr>
<tr>
<td width="100%" align="center" colspan="2"><div align="left"><p> <textarea
rows="4" name="signs" cols="33"><%=rs("signs")%></textarea></td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value="更 改"
name="B1"></p>
</center></div>
</form>
<%rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -