📄 modusermain.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=images/font.css rel=stylesheet type=text/css>
<title>轻舞飞扬--BBS</title>
<style type="text/css">
<!--
body {
background-image: url(images/background.gif);
}
.style4 {font-family: Georgia, "Times New Roman", Times, serif}
.style9 {color: #0000FF; font-size: 18px; }
-->
</style></head>
<body>
<table width="337" border="3" align="center" cellpadding="1">
<tr>
<td><img src="images/qwfy.png" width="660" height="130"></td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFFFcc">
<%if session("userid")=0 then%>
<%
response.write " <a href=logmain.asp>登陆</a> |"
response.write " <a href=regmain.asp>注册</a>"
%>
<%else%>
<%
set conn=server.createobject("adodb.connection")
conn.open session("constr")
sqlstr="select * from t_user where f_id=" & session("userid")
set rs=conn.execute(sqlstr)
response.write rs("f_name")&" |"
response.write " <a href=modusermain.asp>修改资料</a> |"
response.write " <a href=logout.asp>退出</a>"
%>
<%end if%>
</td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFCC99">
<a href=default.asp>首页</a>→修改资料
</td>
</tr>
<tr>
<td align=center valign=center bgcolor="#FFFFcc">
<%
set conn=server.createobject("adodb.connection")
conn.open session("constr")
sqlstr="select * from t_user where f_id=" & session("userid")
set rs=conn.execute(sqlstr)
%>
<script language=vbscript>
sub datacheck()
if form1.name.value=empty then
msgbox "姓名不能为空！"
exit sub
end if
if form1.password1.value=empty then
msgbox "密码不能为空！"
exit sub
end if
if form1.password2.value=empty then
msgbox "确认密码不能为空！"
exit sub
end if
if form1.password1.value<>form1.password2.value then
msgbox "两次密码不一致！"
exit sub
end if
form1.submit
end sub
sub imagechange()
form1.userimage.src="images\"& form1.imageid.options(form1.imageid.selectedindex).value & ".gif"
end sub
</script>
<p align=center>修改资料</p>
<form name=form1 action="moduser.asp" method="post">
<table border=1 align=center>
<tr>
<td>用户名</td>
<td><input type="text" name="name" value=<%=rs("f_name")%>>*</td>
</tr>
<tr>
<td>新密码</td>
<td><input type="password" name="password1">*</td>
</tr>
<tr>
<td>新密码确认</td>
<td><input type="password" name="password2">*</td>
</tr>
<tr>
<td>性别</td>
<td>
<select size=1 name=sex>
<option value=男 selected>男
<option value=女>女
<option value=保密>保密
</select>
</td>
</tr>
<tr>
<td>EMail</td>
<td><input type="text" name="email" value=<%=rs("f_email")%>></td>
</tr>
<tr>
<td align=center colspan=2>
<input type="button" value="确定" onclick=datacheck> <input type="reset">*表示必填内容
</td>
</tr>
</table>
</form>
<script language=vbscript>
sub initform()
for i=0 to form1.imageid.options.length-1
if form1.imageid.options(i).value="<%=rs("f_imageid")%>" then
form1.imageid.selectedindex=i
end if
next
for i=0 to form1.sex.options.length-1
if form1.sex.options(i).value="<%=rs("f_sex")%>" then
form1.sex.selectedindex=i
end if
next
end sub
initform()
</script>
</td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#CC6633">
<span class="style9">版权所有@<span class="style4">corner</span></span></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -