📄 register.asp
字号:
<%
Option Explicit
dim Conn,DBPath
dim rs_lar
dim sql
dim i
'叛断Session变量是否超时
if isnull(session("user_id")) then
response.redirect "timeout.htm"
end if
'叛断此用户是否已经入会
if session("user_id")="1" then
response.redirect "notreg.htm"
response.end
end if
'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
'判断是否已经填写档案
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("user_id")
rs_lar.open sql,conn,3,2
if not(rs_lar.eof and rs_lar.bof) then
response.redirect "haveregist.htm"
response.end
end if
rs_lar.close
set rs_lar=nothing
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>建立档案</title>
<style>
<!--
.x:link { color: white; text-decoration: none }
.x:visited { color: white; text-decoration: none }
.x:active { color: red; text-decoration: none }
.x:hover { color: red;text-decoration:nome}
tr { font-size: 10pt }
body { font-size: 10pt }
a:link { color: blue; text-decoration: none }
a:visited { color: blue; text-decoration: none }
a:active { color: red; text-decoration: none }
a:hover { color: red; text-decoration: none }
-->
</style>
</head>
<body bgcolor="#EEEEEE">
<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="750" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><img border="0" src="image/jpg/h.jpg"><img border="0" src="image/jpg/h-1.jpg" width="162" height="113"><img border="0" src="image/jpg/h-2.jpg" width="132" height="113"><img border="0" src="image/jpg/h-3.jpg" width="194" height="113"><img border="0" src="image/jpg/h-4.jpg"></td>
</tr>
</table>
<!------------------------------------------------------------------------------------------------------------------------------>
<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="750" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor="#336699" style="border-bottom-style: solid" bordercolor="#336699" width="88" height="19"><a href="default.asp" style="color:#ffffff"><font size="2"><b>缘份的天空</b></font></a></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="reg.asp" class="x">申请入会</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="register.asp" class="x">档案注册</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="your.asp" class="x">个人专栏</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="list.asp" class="x">网友总览</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><b><a href="search.asp" class="x">网际寻友</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><b><a href="sendphoto.asp" class="x">相片上传</a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="125" height="19" bgcolor="#000000"> </td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="92" height="19" bgcolor="#000000"> </td>
</tr>
</table>
<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="99%" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"></td>
<td width="51%"></td>
<td width="1%">
++</td>
<td width="26%"></td>
</tr>
<tr>
<td width="3%" valign="top">
</td>
<td width="51%" valign="top">
<form action="ladd.asp" method="POST">
<div align="left">
<table border="0" width="526" cellspacing="0" cellpadding="0">
<td width="600">
<table border="0" width="552" cellspacing="0" height="1" cellpadding="0">
<tr>
<td width="550" height="11" colspan="3" bgcolor="#336699"><font color="#FFFFFF"><b>请认真填写您的个人资料</b></font></td>
</tr>
<tr>
<td width="550" height="4" colspan="3"><font color="#FFFFFF"> </font></td>
</tr>
<tr>
<td width="552" height="7" style="border-bottom-style: solid" bordercolor="#000000" colspan="3"><b><font color="#FF9900">您的基本资料</font></b></td>
</tr>
<tr>
<td width="119" height="18"><font color="#008000"><b>*真实姓名:</b></font></td>
<td width="297" height="18"><input type="text" name="name" size="10" style="border-style: solid; border-width: 1"></td>
<td width="134" height="18"><i>2-10字符</i></td>
</tr>
<tr>
<td width="119" height="18"><font color="#008000"><b>*您的性别:</b></font></td>
<td width="297" height="18"><INPUT CHECKED name=sex type=radio
value=男> <SPAN class=tt4>男 <INPUT name=sex type=radio value=女>
女 </SPAN> </td>
<td width="134" height="18"> </td>
</tr>
<tr>
<td width="119" height="18"><font color="#008000"><b>*您的生日:</b></font></td>
<td width="297" height="18">
<select size="1" name="Byear">
<%for i=1940 to year(date)-3%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>年<select size="1" name="Bmonth">
<%for i=1 to 12%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>月<select size="1" name="Bday">
<%for i=1 to 31%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>日</td>
<td width="134" height="18">
</td>
</tr>
<tr>
<td width="119" height="11"><font color="#008000"><b>*您的籍贯:</b></font></td>
<td width="297" height="11" valign="middle"><SPAN class=tt4><SELECT class=small13
name=province size=1>
<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=湖南省 selected>湖南省</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></SPAN><input type="text" name="home" size="11" style="border-style: solid; border-width: 1">(市/区）</td>
<td width="134" height="11" valign="middle"><i>(市/区)2-10字符</i></td>
</tr>
<tr>
<td width="119" height="11"><font color="#008000"><b>*您的学历</b></font></td>
<td width="297" height="11"><SPAN class=tt4><SELECT name=education
size=1> <OPTION selected value=本科>本科</OPTION> <OPTION
value=中专>中专</OPTION> <OPTION value=大专>大专</OPTION> <OPTION
value=高中>高中</OPTION> <OPTION value=博士>博士</OPTION> <OPTION
value=硕士>硕士</OPTION> <OPTION value=在校生>在校生</OPTION> <OPTION
value=其他>其他</OPTION></SELECT> </SPAN></td>
<td width="134" height="11"></td>
</tr>
<tr>
<td width="119" height="19"><font color="#008000"><b>*您的职业:</b></font></td>
<td width="297" height="19">
<SELECT name="job" size="1">
<OPTION selected 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=IT>IT</OPTION> <OPTION value=公务员>公务员</OPTION> <OPTION
value=其它>其它</OPTION></SELECT> </td>
<td width="134" height="19">
</td>
</tr>
<tr>
<td width="119" height="18"><font color="#008000"><b> </b></font><b>您的单位:</b></td>
<td width="297" height="18"><input type="text" name="company" size="31" style="border-style: solid; border-width: 1"></td>
<td width="134" height="18"><i>不超过50个字符</i></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -