📄 changeinfo.asp
字号:
<!--#include file="../chkuser.asp" -->
<!--#include file="../sys/inc/prompt.inc" -->
<!--#include file="top.asp" -->
<%
call conned()
state="修改资料"
dim username
username=session("memberusername")
if username="" then
errmsg="该用户名不存在或者您已经超过规定时间，请重新登陆"
call error2()
response.end
end if
call userinfo()
'------------------显示用户信息
sub userinfo()
set rs=server.createobject("adodb.recordset")
sql="Select * from [Userinfo] where busername='"&trim(username)&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>该用户名不存在或者您已经超过规定时间，请重新登陆！。"
call error()
response.end
else
call top()
%>
<body bgcolor="#FFFFFF">
<form method="post" action="changeinfo2.asp" name="name">
<p align="center"> </p>
<table border=1 cellpadding=4 cellspacing=0
width="500" align="center" bordercolor=#0099cc>
<tr>
<td class=td align=middle colspan="2" height="32">
<p align="center"><b><% = rs("busername")%> 修改资料</b></p>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>用户名称：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<% =rs("busername")%><input type=hidden name=username size=20 maxlength=20 value="<% =rs("busername")%>" >
(用户名称不可以更改） </div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>您的密码：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=password name=password size=20 maxlength=12 value="<% =rs("bpassword")%>" >
<font color="#FF3333">*</font> 字母或数字</div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>确认密码：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=password name=password2 size=20 maxlength=12 value="<% =rs("bpassword")%>" >
<font color="#FF3333">*</font> </div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>真实姓名：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=text name=rlword size=20 maxlength=20 value="<% =rs("brlword")%>" >
<font color="#FF3333">*</font> </div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>地区：</td>
<td class=td2 align=middle>
<div align="left">
<select class=pt9 name=address size=1
style="BACKGROUND-COLOR: rgb(255,255,255)">
<option value="北 京">北 京</option>
<option value="上 海">上 海</option>
<option value="天 津">天 津</option>
<option value="重 庆">重 庆</option>
<option value="河 北">河 北</option>
<option value="山 西">山 西</option>
<option value="内 蒙">内 蒙</option>
<option value="辽 宁">辽 宁</option>
<option value="吉 林">吉 林</option>
<option value="黑 龙 江">黑 龙 江</option>
<option value="江 苏">江 苏</option>
<option value="浙 江">浙 江</option>
<option value="安 徽">安 徽</option>
<option value="福 建">福 建</option>
<option value="江 西">江 西</option>
<option value="山 东">山 东</option>
<option value="河 南">河 南</option>
<option value="湖 北">湖 北</option>
<option value="湖 南">湖 南</option>
<option value="广 东">广 东</option>
<option value="广 西">广 西</option>
<option value="海 南">海 南</option>
<option value="四 川">四 川</option>
<option value="贵 州">贵 州</option>
<option value="云 南">云 南</option>
<option value="西 藏">西 藏</option>
<option value="陕 西">陕 西</option>
<option value="甘 肃">甘 肃</option>
<option value="青 海">青 海</option>
<option value="宁 夏">宁 夏</option>
<option value="新 疆">新 疆</option>
<option value="台 湾">台 湾</option>
<option value="港澳地区">港澳地区</option>
<option value="海 外">海 外</option>
</select>
<font color="#FF3333">*</font></div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>形象：<img id=face src="face/1.gif" width="32" height="32" align="absmiddle"></td>
<td class=td2 align=middle>
<div align="left">
<select name=myface size=1 onChange="document.images['face'].src=options[selectedIndex].value;" style="BACKGROUND-COLOR: #99CCFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000">
<%for i=1 to 100 %>
<option value='face/<%=i%>.gif'>Image<%=i%></option>
<%next%>
</select>
<font color="#FF3333">*</font></div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>Oicq：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=text name=oicq size=20 maxlength=20 value="<% =rs("boicq")%>" >
</div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>您的性别：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type="radio" name="sex" value="1" checked>
帥哥
<input type="radio" name="sex" value="0">
美眉 <font color="#FF3333">*</font></div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>邮箱地址：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=text name=e_mail size=30 value="<% =rs("bmail")%>" >
<font color="#FF3333">*</font> </div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>主页地址：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type=text name=homeurl size=30 maxlength=50 value="<% =rs("burl")%>">
</div>
</td>
</tr>
<tr>
<td class=td1 align=middle
width=483>信息公开：</td>
<td class=td2 align=middle
width=483>
<div align="left">
<input type="checkbox" name="ispublic" value="1" checked>
其它网友可以看到我的信息 </div>
</td>
</tr>
<tr>
<td class=td align=middle colspan="2">
<div align="center">
<input type="submit" value="填好了，继续！" name="submit">
</div>
</td>
</tr>
<tbody> </tbody>
</table>
<p><br>
</p>
</form>
<!--#include file="../foot.inc"-->
</body>
</html>
<%
end if
rs.close
set rs=nothing
end sub
'====================================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'====================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -