📄 reg_information.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新会员注册 - 填写个人信息</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#FFFFFF">
<SCRIPT language=JavaScript src="../include/header.inc" type=text/javascript></SCRIPT>
<!-- #include file="inc_forumheader.asp" -->
<div align="center">
<center>
<table border="0" width="760" cellspacing="1">
<tr>
<td width="100%"><img border="0" src="images/reg.gif" width="116" height="25"></td>
</tr>
<tr>
<td width="100%"> <br>步骤(2/3) 请填写下面的表格，其中带星号<font color="#FF0000">(*)</font>的项目<font color="#FF0000">必须填</font>：<br> </td>
</tr>
</table>
<table border="0" width="760" cellspacing="1" bgcolor="#687088">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%
dim uid
uid=Request("uid")
if uid="" then
Response.Write "<h3>no user id. </h3><br><a href='index.asp'>back</a>"
else
%>
<form method="POST" action="reg_SAVEINFO.ASP">
<table border="0" width="100%" cellspacing="1" height="575">
<tr>
<td width="32%" bgcolor="#EFEFEF" align="right" height="23">用户名：</td>
<td width="68%" bgcolor="#EFEFEF" height="23"><input type="hidden" name="uid" value="<%=uid%>"><b><%=uid%></b>
<input type="hidden" name="AddNew" value="1">
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">密码<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="password" name="pwd" size="20">(4~10个字母) <font color="#CC0000">注：请不要使用重要的密码。</font></td>
</tr>
<tr>
<td width="32%" align="right" height="25">再次输入密码<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="password" name="pwdconfirm" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">Email<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="text" name="email" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">个人主页：</td>
<td width="68%" height="25"><input type="text" name="homepage" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">OICQ：</td>
<td width="68%" height="25"><input type="text" name="icq" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">MSN：</td>
<td width="68%" height="25"><input type="text" name="msn" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">真实姓名：</td>
<td width="68%" height="25"><input type="text" name="realname" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF" height="27">性别：</td>
<td width="68%" bgcolor="#EFEFEF" height="27"><input type="radio" value=1 checked name="sex">男<img border="0" src="images/s_boy.gif">
<input type="radio" name="sex" value=0>女<img border="0" src="images/s_girl.gif"></td>
</tr>
<tr>
<td width="32%" align="right" valign="bottom" height="92" bgcolor="#EFEFEF">头像：</td>
<td width="68%" bgcolor="#EFEFEF" height="92">
<table border="0" cellspacing="0" height="90" width="100%">
<tr>
<td width="49" valign="bottom">
<select size="1" name="lstPortrait" onChange="JavaScript:document.images['face'].src=options[selectedIndex].value;">
<%
dim i
dim sTmp
for i=1 to 37
sTmp=right("000" & cstr(i),3)
response.write "<option value='images/portrait/" & sTmp & ".gif'>" & sTmp & "</option>" & vbcrlf
next
%>
</select>
</td>
<td width="110"><img id=face src="images/portrait/001.gif">
</td>
<td width="155" valign="bottom"><a href="reg_viewportrait.asp" target="_blank">浏览全部...</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="32%" align="right" valign="middle" height="80" bgcolor="#EFEFEF">自定义头像：</td>
<td width="68%" bgcolor="#EFEFEF" height="80">
<input type="text" name="userPortrait" size="33">
请填入完整的 URL<br>
<br>
图象的尺寸不能超过 100
*100
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">生日：</td>
<td width="68%" height="25">
<select size="1" name="lstYear">
<%
for i=1900 to 2100
if i=1980 then
Response.Write "<option selected value='" & i & "'>" & i & "</option>" & vbcrlf
else
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
end if
next
%>
</select>年
<select size="1" name="lstMonth">
<%
for i=1 to 12
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
next
%>
</select>月
<select size="1" name="lstday">
<%
for i=1 to 31
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
next
%>
</select>日
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">职业：</td>
<td width="68%" height="25"><input type="text" name="lstCareer" size="20"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">来自：</td>
<td width="68%" height="25"><input type="text" name="lstComeFrom" size="20"></td>
</tr>
<tr>
<td width="32%" align="right">简介(200字以内)：</td>
<td width="68%"><textarea rows="4" name="txtIntro" cols="40"></textarea></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF">签名(200字以内)：<br>
签名将出现在您发表的文章的结尾处。</td>
<td width="68%" bgcolor="#EFEFEF"><textarea rows="4" name="txtSign" cols="40"></textarea></td>
</tr>
</table>
<p> </p>
<p align="center"><input type="submit" value="提交咯!"></p>
</form>
<% end if %>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
<SCRIPT language=JavaScript src="../include/buttom.inc" type=text/javascript></SCRIPT>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -