📄 editreg.asp
字号:
<!--#include file="head.asp"-->
<% If session("wzname")<>"" Then%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
<TBODY>
<TR vAlign=top>
<TD width=200 bgColor=#f4f4f4>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=350>
<TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%"
align=center border=0>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
<TABLE id=AutoNumber4
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width="90%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD width="100%" align=middle bgcolor="#F5E8C1"><IMG height=40
src="image/vreg.gif" width=175></TD>
</TR>
<TR>
<TD align=middle><IMG height=8 alt="" src="image/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD align=left>
三载同窗数卷书,一朝高考俱登科,四年深造出栋梁,十年相约看黄河。少年以后都将成为国家的栋梁之材,遍布与祖国的大江南北,也许很难再聚到一起。但我们有校友录,大家在闲暇时可以来看看,絮絮以往的同学情,师生情,校友录因为刚建好不久,肯定还有很多不足之处,希望留下您的宝贵意见,我将尽量改善它,通过我们大家的共同努力来使它更加完善,更加完美,如果您有什么更好的建议,也请与我们联系,我们将根据情况来采纳。
</TD>
</TR>
<TR>
<TD height="66" align=middle bgcolor="#F6E9C5"><div align="center"><IMG height=8 alt="" src="image/stu.htm"
width=1 name=""><img src="image/cm_2004_4_23_032.jpg" width="162" height="211"></div></TD>
</TR></TBODY></TABLE>
<TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%"
align=center border=0>
<TBODY>
<TR>
<TD width="100%" height="108" align=middle bgcolor="#F6E9C5"><div align="center"><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""><img src="image/cm_2004_4_22_021.jpg" width="162" height="211"></div></TD>
</TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD>
<TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1
name=""></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=8 bgColor=#f4f4f4></TD></TR>
<TD>
<TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=52>
<TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%"
border=0>
<TBODY>
<TR>
<TD class=6 width=495 background=image/type_bg.gif
height=28><IMG height=12 src="image/type01.gif" width=12
align=absMiddle> <span style="color: #CC3300">当前位置:</span> <A
href="index.asp">网站首页 - </A><span style="color: #FF6699"><B>编辑资料</B></span></TD>
<TD width=100 background=image/type_bg.gif>
<DIV align=center><IMG
alt=更多教科研信息 src="image/more.gif"
border=0></DIV></TD></TR><TR>
<TD colSpan=2>
<DIV align=center><form name="form1" method="post" action="editreg2.asp">
<%dim sql,ue
Set rs = Server.CreateObject("ADODB.Recordset")
ue=session("wzname")
set rs=conn.execute ("select * from user where username='"&ue&"'")
dim shengxiao,blood,love,job,userclass,userquestion
dim usertype,bjname,userface,usersex,usergroup
usersex=rs("usersex")
usertype=rs("usertype")
userface=rs("userface")
job=rs("job")
love=rs("love")
blood=rs("blood")
userquestion=rs("userquestion")
userclass=rs("userclass")
shengxiao=rs("shengxiao")
%>
<TABLE cellSpacing=0 cellPadding=1 width="98%" border=0>
<TBODY>
<TR bgcolor="#3399FF">
<TD bgcolor="#F4E5B7"><div align="left" class="style1"> <span class="style5"> 振云中学校友录注册提示<br>
这儿不是一般的娱乐场所,我们要将这里打造成学校最先进的档案庫,能及时让你找到同学的最新联系方式,这是我们不变的宗旨,也得到了学校的支持,这里的资料完全保密,请大家放心、如实、详细的填写资料,特别是姓名一定要填写真实,否则将被删除,因为这里是校友录</span></div></TD>
</TR>
<TR>
<TD><table width="100%" border="1" cellspacing="1" bordercolor="#FFCC00">
<tr>
<td>你的类型: <b> </b>
<select name="usertype" size="1">
<option value="2" <%if usertype="2" then%>selected<%end if%>>学生</option>
<option value="1" <%if usertype="1" then%>selected<%end if%>>老师</option>
<option value="3" <%if usertype="3" then%>selected<%end if%>>客人</option>
</select>
*( 选择适合你的类型)</td>
</tr>
<tr>
<td>毕业班级: <b> </b> <select name="userclass" id="userclass">
<%
Set rt = Server.CreateObject("ADODB.Recordset")
sql="select bjname from bj"
rt.open sql,conn,1,1
do while not rt.eof%>
<option <%if userclass=rt("bjname") then%>selected<%end if%>><%=rt("bjname")%></option>
<%rt.movenext
loop
rt.close
set rt= nothing%>
</select>
*(若没有就去“班级”栏目中创建吧)</td>
</tr>
<tr>
<td>用户名称: <b> <span class="style2"><%=rs("username")%> </span></b>
(不可更改)</td>
</tr>
<tr>
<td>用户性别: <b> </b>
<input name="usersex" type="radio" value="男" <%if usersex="男" then%>checked<%end if%>>
<img src="image/Male.gif" width="23" height="21"> 男孩
<input type="radio" name="usersex" value="女" <%if usersex="女" then%>checked<%end if%>>
<img src="image/Female.gif" width="23" height="21"> 女孩
* </td>
</tr>
<tr>
<td height="20">网站密码: <b> </b>
<input name="userpassword" type="password" id="userpassword" height="8">
*(如果你不更改,请空着,至少6位)</td>
</tr>
<tr>
<td>确认密码: <b> </b>
<input name="userpassword2" type="password" id="userpassword2" height="8">
*(如果你不更改,请空着,至少6位)</td>
</tr>
<tr>
<td>密码问题: <b> </b>
<input name="userquestion" type="text" id="userpassword2" value="<%=rs("userquestion")%>" height="8">
(忘记密码的提示问题<b></b>)</td>
</tr>
<tr>
<td>问题答案: <b> </b>
<input name="useranswer" type="text" id="useranswer" value="<%=rs("useranswer")%>" height="8">
(忘记密码的提示问题答案,用于取回密码<b></b>)</td>
</tr>
<tr>
<td>电子邮件: <b> </b>
<input name="useremail" type="text" id="email" value="<%=rs("useremail")%>" height="8">
(请输入有效的邮件地址)</td>
</tr>
<tr>
<td bgcolor="#F6E9C5"><div align="center" class="style1" style="font-size: 12px; color: #CC3300;">你的真实资料</div></td>
</tr>
<tr>
<td>真实姓名: <b> </b>
<input name="name" type="text" id="name" height="8" value="<%=rs("name")%>">
*(如实填写,否则帐号将被删除)</td>
</tr>
<tr>
<td>出生日期:
<b>
<input name="userbirthday" type="text" id="userbirthday" value="<%=rs("userbirthday")%>" height="8">
</b> (按1984-12-17这个规格写) </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -