📄 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>
<LINK href="pic/gufeng.css" rel=stylesheet>
<script language="JavaScript" src="pic/fade_image.js"></script>
<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></script>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT></head>
<body topmargin="0" leftmargin="0">
<table align="center" border="0" cellPadding="0" cellSpacing="0" height="20" width="777">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="777" height="21" bgcolor="#FFF4C8" background="pic/di.GIF">
<tr>
<td width="23%" height="19"><img border="0" src="pic/htt.GIF" width="227" height="20"></td>
<td width="33%" height="19"> </td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="my.asp">关于我们</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="../book">本站留言</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="javascript:window.external.AddFavorite('http://www.644000.net',%20'酒乡网友联盟')">添加收藏</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.644000.net');">设为首页</a></td>
</tr>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" height="90" bgcolor="#F9C700">
<tr>
<td width="100%" height="88">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="777">
<tr>
<td width="243" align="left"><img border="0" src="pic/logo.GIF" width="240" height="70"></td>
<td width="12" align="left"></td>
</center>
<td width="500" align="center" valign="middle">
<p align="center"><!--Banner-->
<script src="http://www.644000.net/guanggao/banner.asp"></script>
<!--Banner --></p>
</td>
<center>
<td width="14" align="center"></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" width="777" bgcolor="#FFF4C8" height="20" cellspacing="0">
<tr>
<td width="4%" align="center"><img border="0" src="pic/tou.GIF" width="28" height="20" style="filter:alpha(opacity=40)" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);"></td>
<td width="10%" align="center"><a href="default.asp"><img border="0" src="logo/1.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="reg.asp"><img border="0" src="logo/2.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="register.asp"><img border="0" src="logo/3.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="your.asp"><img border="0" src="logo/4.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="list.asp"><img border="0" src="logo/5.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="sendphoto.asp"><img border="0" src="logo/6.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="jh" target="_blank"><img border="0" src="logo/7.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="http://www.644000.net/bbs" target="_blank"><img border="0" src="logo/8.gif"></a></td>
</tr>
<tr>
<td width="98%" align="center" colspan="16">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="6%" bgcolor="#EABB00" height="20"> </td>
<td width="6%" bgcolor="#F0C000" height="20"> </td>
<td width="6%" bgcolor="#FFCD06" height="20"> </td>
<td width="6%" bgcolor="#FFD21E" height="20"> </td>
<td width="6%" bgcolor="#FFD52D" height="20"> </td>
<td width="7%" bgcolor="#FFDA46" height="20"> </td>
<td width="7%" bgcolor="#FFDE5B" height="20"> </td>
<td width="7%" bgcolor="#FFDE59" height="20"> </td>
<td width="7%" bgcolor="#FFDE59" height="20"> </td>
<td width="7%" bgcolor="#FFDF62" height="20"> </td>
<td width="7%" bgcolor="#FFE168" height="20"> </td>
<td width="7%" bgcolor="#FFEA95" height="20"> </td>
<td width="7%" bgcolor="#FFEFB0" height="20"> </td>
<td width="7%" bgcolor="#FFF9DD" height="20"> </td>
<td width="7%" bgcolor="#FFFDF0" height="20"> </td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" height="513">
<tr>
<td width="512" height="481" bgcolor="#FCFCFC" rowspan="2" 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="#FFFFFF"><font color="#000000" size="2">请认真填写您的个人资料</font></td>
</tr>
<tr>
<td width="550" height="4" colspan="3"><font color="#000000" size="2"> </font></td>
</tr>
<tr>
<td width="552" height="7" style="border-bottom-style: solid" bordercolor="#000000" colspan="3"><font color="#000000" size="2">您的基本资料</font></td>
</tr>
<tr>
<td width="119" height="18"><font color="#000000" size="2">*真实姓名:</font></td>
<td width="297" height="18"><font size="2" color="#000000"><input type="text" name="name" size="10" style="border-style: solid; border-width: 1"></font></td>
<td width="134" height="18"><font size="2" color="#000000">2-10字符</font></td>
</tr>
<tr>
<td width="119" height="18"><font color="#000000" size="2">*您的性别:</font></td>
<td width="297" height="18"><font size="2" color="#000000"><INPUT CHECKED name=sex type=radio
value=男> <SPAN class=tt4>男 <INPUT name=sex type=radio value=女>
女 </SPAN> </font> </td>
<td width="134" height="18"> </td>
</tr>
<tr>
<td width="119" height="18"><font color="#000000" size="2">*您的生日:</font></td>
<td width="297" height="18">
<font size="2" color="#000000">
<select size="1" name="Byear">
<%for i=1940 to year(date)-15%>
<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>日</font></td>
<td width="134" height="18">
</td>
</tr>
<tr>
<td width="119" height="11"><font color="#000000" size="2">*您的籍贯:</font></td>
<td width="297" height="11" valign="middle"><font size="2" color="#000000"><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=湖南省>湖南省</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></SELECT></SPAN><input type="text" name="home" size="11" style="border-style: solid; border-width: 1">(市/区）</font></td>
<td width="134" height="11" valign="middle"><font size="2" color="#000000">(市/区)2-10字符</font></td>
</tr>
<tr>
<td width="119" height="11"><font color="#000000" size="2">*您的学历</font></td>
<td width="297" height="11"><SPAN class=tt4><font size="2" color="#000000"><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> </font> </SPAN></td>
<td width="134" height="11"></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -