usermodify.asp

庐江二中

<%PageName="UserModify"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="session.asp"-->
<!--#include file="INC/CHAR.INC"-->
<!--#include file=function.asp -->
<%
if session("XPUser")="" or isnull(session("XPUser")) or session("XPPwd")="" or isnull(session("XPPwd")) then
errmsg="<li>你尚未登陆！</li>"
call error()
Response.end
end if
username=session("XPUser")
Password=session("XPPwd")

sql="select * FROM Users where username='"&username&"' and password='"&password&"'"
rs.open sql,conn,1,1
if rs.eof then
errmsg="<br><li>操作错误。请重新登陆！</li>"
call error()
Response.end
else
id=rs("id")
Sex=rs("Sex")
Email=rs("Email")
oicq=rs("oicq")
MyIntro=rs("sign")
UserWebName=rs("UserWebName")
UserWebUrl=rs("UserWebUrl")
rs.close
end if
%>
<!--#include file="top2.asp"-->
<table cellpadding=1 cellspacing=0 border=1 width=<%=TableWidth%> bgcolor=<%=MainBgColor%> align=center>
<FORM name=reg2 action="UserSave.asp" method=post>
<TR>
<td align=center width=100%>
<table border=0 cellpadding=0 cellspacing=0 width=200>
<tr>
<td><br>
<fieldset width=20%>
<legend align=center>□□□会员修改资料□□□</legend>
<table border=0 cellpadding=0 cellspacing=0 width=400 bgcolor=<%=MainCColor%>>
<tr>
<TD width=30% align=right>**注 册 名</TD>
<TD><%=Username%></TD>
</TR>
<TR>
<TD align=right>**密 码：</TD>
<TD><INPUT type=password maxLength=16 size=13 name=password value="<%=password%>"></TD>
</TR>
<TR>
<TD align=right>**密码确认：</TD>
<TD><INPUT type=password maxLength=16 size=13 name=password2 value="<%=password%>"></TD>
</TR>
<TR>
<TD align=right>**Email地址：</TD>
<TD><INPUT maxLength=50 size=20 name=Email value="<%=email%>"></TD>
</TR>
<TR>
<TD align=right>性 别：</TD>
<TD>
<INPUT type=radio<%if sex=1 then%> checkED<%end if%> value="1" name=sex size="20"> 男孩
<INPUT type=radio<%if sex=0 then%> checkED<%end if%> value="0" name=sex size="20"> 女孩</TD>
</TR>
<TR>
<TD align=right>OICQ号码：</TD>
<TD><INPUT maxLength=20 size=20 name=OICQ value="<%=oicq%>"></TD>
</TR>
<tr>
<td align="right">主页名称：</td>
<td><input type="text" name="UserWebName" value="<%=UserWebName%>" size="20"></td>
</tr>
<tr>
<td align="right" height="20">主页地址：</td>
<td><input type="text" name="UserWebUrl" value="<%=UserWebUrl%>" size="20"></td>
</tr>
<TR>
<TD align=right>签 名：</TD>
<TD><TEXTAREA name=MyIntro rows=5 wrap=PHYSICAL cols=40><%if MyIntro<>"" and not isnull(MyIntro) then%><%=htmlencode1(MyIntro)%><%end if%></TEXTAREA></TD>
</TR>
<TR align=center>
<TD colspan=2 height=30><INPUT value="确 定" name=Submit type=submit> <INPUT type=reset value="取 消" name=Submit2></TD>
</TR>
</TABLE>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
</FORM>
</table>
<%set rs=nothing%>
<!--#include file="copyright.asp"-->