<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<!--#include file=inc/Email_Cls.asp-->
<!--#include file=md5.asp-->
<%
 '=========================================================
' File: reg.asp
' Version:3.0
' Date: 2005-11-7
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
dim Viptj
Viptj=checkStr(request("Viptj"))
call nav()
if Cint(Regclose)=1 then
	stats="系统错误信息"
	Errmsg="<br><li>本网站暂时停止注册。"
	call head_var("","")
	call MsLove_error()
else
	if request("action")="apply" then
		stats="填写资料"
		call head_var("会员注册","reg.asp")
		call reg_2()
	elseif request("action")="save" then
		stats="提交注册"
		call head_var("会员注册","reg.asp")
		call reg_3()
		if founderr then call MsLove_error()
	else
		stats="注册协议"
		call head_var("会员注册","reg.asp")
		call reg_1()
	end if
end if
call footer()
call activeonline()

sub reg_1()%>
<script>
function radioclick()
{
if (form.radiobutton.checked)
form.Submit2.disabled=false;
else
form.Submit2.disabled=true;
}

function winopen()
{
var x_pos=(window.screen.width-650)/2;
var y_pos=(window.screen.height-550)/2;
window.open("agreement.asp?id=4","","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=760,height=500,left="+x_pos+",top="+y_pos);
}
</script>
<table border="0" align="center" cellpadding=3 cellspacing=1 class=tableborder1>
  <tr> 
    <th height="28" align="center"><%=webname%>会员注册规则</th>
  </tr>
  <tr> 
    <td align="center" class=tablebody1>
	<table width="90%" border="0" cellspacing="0" cellpadding="10" class=tablebody1>
        <form name="form" method="post" action="reg.asp?action=apply&Viptj=<%=Viptj%>">
		<tr> 
          <td height="188" class=tablebody1><b>继续注册前请先阅读<%=webname%>交友协议</b>
<BR><BR>
欢迎您加入<%=webname%>——爱情交友平台，<%=webname%>为公共交友，为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：
<BR>
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：
<BR><BR>
（一）煽动抗拒、破坏宪法和法律、行政法规实施的；<BR>
（二）煽动颠覆国家政权，推翻社会主义制度的；<BR>
（三）煽动分裂国家、破坏国家统一的；<BR>
（四）煽动民族仇恨、民族歧视，破坏民族团结的；<BR>
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<BR>
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<BR>
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<BR>
（八）损害国家机关信誉的；<BR>
（九）其他违反宪法和法律行政法规的；<BR>
（十）进行商业广告行为的。
<BR><BR>
二、互相尊重，对自己的言论和行为负责。</td>
        </tr>
		<tr> 
          <td height="20" class=tablebody1><input type="checkbox" name="radiobutton" value="radiobutton" onClick="radioclick();"> 
                          <font color="747474">我已经认真阅读</font><a href="javascript:winopen();" ><font color="#FF6600">&lt;&lt;<%=webname%>普通会员协议&gt;&gt;</font></a><font color="747474">并同意该协议！</font></td>
        </tr>
        <tr> 
          <td height="30" align="center" class=tablebody1>
              <input type="submit" name="Submit2" value="我要注册" disabled>
              　 <input type="button" name="Submit3" value="看看再说" onClick="window.close();"> 
            </td>
        </tr></form>
      </table></td>
  </tr>
</table>
<%end sub

sub reg_2()%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
  <table width="100%" border="0" align=center cellpadding=3 cellspacing=1 class=tableborder1><FORM name=theForm action=reg.asp?action=save&Viptj=<%=Viptj%> method=post>
    <TBODY>
      <TR align=middle> 
        <Th colSpan=2 height=28>新用户注册</TD> </TR>
      <TR> 
	  <%dim Reguserlens
Reguserlens=split(Reguserlen,"|")%>
        <TD width=40% class=tablebody1><B>用户名</B>：<BR>
          注册用户名长度限制为<%=Reguserlens(0)%>－<%=Reguserlens(1)%>字节</TD>
        <TD  class=tablebody1> <input class=2 maxLength=20 size=30 name=Username>
          *</TD>
      </TR>
      <%if Cint(Codeshow(0))=1 then%>
      <TR> 
        <TD width=40% height="37" class=tablebody1><strong>请输入验证码：</strong></TD>
        <TD  class=tablebody1> <input type="text" name="codestr" maxlength="4" size="4">&nbsp;<%=GetCode()%></TD>
      </TR>
      <%end if%>
      <TR> 
        <TD width=40%  class=tablebody1><B>性别</B>：<BR>
          请选择您的性别</font></TD>
        <TD  class=tablebody1> <INPUT type=radio CHECKED value=1 name=Usersex> <IMG  src=images/Male.gif align=absMiddle>男孩 
          &nbsp;&nbsp;&nbsp;&nbsp; <INPUT type=radio value=0 name=Usersex> <IMG  src=images/Female.gif align=absMiddle>女孩</font>*</TD>
      </TR>
      <tr> 
        <td width=41%  class=tablebody1><B>生日</B><BR>
          请输入正确的生日，享受系统带给你更多的乐趣！</td>
        <td width=60%  class=tablebody1> <input name=birthday type=text onfocus="show_cele_date(birthday,'','',birthday)" size="20"> *
        </td>
      </tr>
      <%if Rndpass=0 then%>
      <TR> 
        <TD width=40% class=tablebody1><B>密码(至少6位)</B>：<BR>
          请输入密码，区分大小写。<BR>
          请不要使用任何类似 '*'、' ' 或 HTML 字符 </TD>
        <TD class=tablebody1> <input name=Password type=password class=2 id="Password" size=30 maxLength=16>
          * </TD>
      </TR>
      <TR> 
        <TD width=40% class=tablebody1><B>密码(至少6位)</B>：<BR>
          请再输一遍确认</TD>
        <TD class=tablebody1> <input name=Passwordc type=password class=2 id="Passwordc" size=30 maxLength=16>
          * </TD>
      </TR>
      <TR> 
        <TD width=40%  class=tablebody1><B>密码问题</B>：<BR>
          忘记密码的提示问题</TD>
        <TD class=tablebody1> <input name=Quesion type=text class=2 id="Quesion" size=30>
          * </TD>
      </TR>
      <TR> 
        <TD width=40%  class=tablebody1><B>问题答案</B>：<BR>
          忘记密码的提示问题答案，用于取回交友密码</TD>
        <TD class=tablebody1> <input name=Answer type=text class=2 id="Answer" size=30>
          * </TD>
      </TR>
	  <%else%>
      <TR align="center"> 
        <TD height="34" colspan="2" class=tablebody1><font color="#FF0000">本站开启随机注册密码，请注册完之后接收注册邮件，获取密码！</font></TD>
      </TR>
      <%end if%>
      <TR> 
        <TD width=40%  class=tablebody1><B>Email地址</B>：<BR>
		<%dim Userattrs,usermoney
	Userattrs=split(Userattr,"|")
	if Cint(Userattrs(0))=1 then
	usermoney=Cint(Userattrs(1))
	else
	usermoney=0
	end if%>
          请输入有效的邮件地址
		  ，这将使您获得交友中心赠送的金钱点数：<font color="#ff0000"><b><%=usermoney%></b></font> 点</font>。</TD>
        <TD  class=tablebody1> <input class=2 maxLength=50 size=30 name=Usermail>
          * 
          <input class=2 type=button value='检测帐号' name=Button onclick=gopreview()></TD>
      </TR>
	  <TR> 
        <TD class=tablebody1 colspan="2" align=center height="34"><font color="#FF6600">请您认真填写以下详细信息，未来意中人对您的第一印象也许就从这里产生。</font></TD>
      </TR>
    </tbody>
  </table>
  <table align=center cellpadding=3 cellspacing=1 class=tableborder1 id=adv style="DISPLAY: none">
    <TBODY>
      <TR align=left> 
        <Th height=28 colSpan=2>填写详细资料</Th>
      </TR>
      <TR> 
        <%dim OpenFaces
OpenFaces=split(OpenFace,"|")%>
        <TD width=41%  class=tablebody1><B>头&nbsp;&nbsp;&nbsp;&nbsp;像</B>：<BR>
您可以选择一个个性图片，当你发表时将显示在您的名字下方。<BR>
<%if Cint(OpenFaces(0))=1 then%>
如果你填写了下面的自定义头像部分，那么你的头像以自定义的为准。否则，请你留空自定义头像的所有栏目！<BR>
<B>关于自定义头像</B>：<BR>
你也可以在这里给出你自定义头像的 URL 地址，头像的高度和宽度(像素)。 如果不想要自定义头像，请将相应栏目全部留空！
<%end if%></TD>
        <TD width="*"  class=tablebody1>
		<table border="0" cellpadding="0" cellspacing="1" width="98%" >
            <tr><td width="*"  class=tablebody1>头像选择 <select name=userface size=1 id="userface" style="font-family:arial" onChange="document.images['face'].src=options[selectedIndex].value; parent.document.theForm.myface.value=options[selectedIndex].value">
            <%for i=1 to Cint(OpenFaces(2))%>
            <option value="images/userface/image<%=(i)%>.gif">image<%=(i)%>.gif</option>
            <%next%>
          </select>&nbsp;<a href=allface.asp target=_blank>查看所有头像</a> </td><td width="180"  rowspan="2"  valign=top align=center>
<img id=face src=images/userface/image1.gif>
</td>
      </TR>
      <%if Cint(OpenFaces(0))=1 then%>
      <TR> 
        <TD width="*" class=tablebody1><B>自定义头像</B>：<br>
          图像位置： 
          <input type=text name=myface size=30 maxlength=100> &nbsp;完整Url地址<br>
          宽&nbsp;&nbsp;&nbsp;&nbsp;度： 
          <input class=2 type=TEXT name=Facewidth size=3 maxlength=3 value="<%=OpenFaces(3)%>">
          0---<%=OpenFaces(3)%>的整数<br>
          高&nbsp;&nbsp;&nbsp;&nbsp;度： 
          <input class=2 type=TEXT name=Faceheight size=3 maxlength=3 value="<%=OpenFaces(4)%>">
          0---<%=OpenFaces(4)%>的整数<br> </TD>
      </TR>
      <%end if%>
          </table></td>
	  <%if Cint(Signset)=1 then%>
      <tr> 
        <td width=41% height="13"  class=tablebody1><B>签名</B>：<BR>
          最多300字节<BR>
          文字将出现在您发表的文章的结尾处。体现您的个性。</td>
        <td  class=tablebody1><TEXTAREA name=Signature rows=5 wrap=PHYSICAL cols=60></TEXTAREA></td>
      </tr>
	  <%end if%>
      <tr align="left"> 
        <th height="28" colspan="2"  class=tablebody1>填写联系资料信息</th>
      </tr>
      <tr> 
        <td width=41% height="30"  class=tablebody1><b>主页地址：</b></td>
        <td width=60%  class=tablebody1><INPUT maxLength=80 size=50 name=homepage> 
      </tr>
      <tr> 
        <td height="30"  class=tablebody1><B>OICQ号码：</B><BR>
          如果您有 OICQ，请输入号码。此项可选</td>
        <td width=60%  class=tablebody1><input class=2 maxLength=20 size=30 name=Oicq></tr>
      <TR> 
        <TD width=41% class=tablebody1><B>ICQ号码：</B><BR>
          如果您有 ICQ，请输入号码。此项可选</TD>
        <TD width=60% class=tablebody1><input class=2 maxLength=20 size=30 name=Icq> 
        </TD>
      </TR>
      <TR> 
        <TD width=41%  class=tablebody1><B>MSN号码：</B><BR>
          如果您有 MSN，请输入。此项可选</TD>
        <TD width=60%  class=tablebody1><input class=2 maxLength=70 size=30 name=Msn> 
        </TD>
      </TR>
      <TR> 
        <TD width=41%  class=tablebody1><strong>UserAim号码：</strong><br>
          如果您有 UserAim，请输入号码。此项可选</TD>
        <TD width=60%  class=tablebody1><INPUT maxLength=70 size=30 name=Aim></TD>
      </TR>
      <TR > 
        <TD width=41%  class=tablebody1><strong>Yahoo号码：</strong><br>
          如果您有 Yahoo，请输入号码。此项可选</TD>
        <TD width=60%  class=tablebody1><INPUT maxLength=70 size=30 name=Yahoo></TD>
      </TR>
      <TR > 
        <TD  class=tablebody1><strong>UC号码：</strong><br>
          如果您有 UC，请输入号码。此项可选</TD>
        <TD width=60%  class=tablebody1><INPUT maxLength=70 size=30 name=Uc></TD>
      </TR>
      <TR align="left" > 
        <Th height="28" colspan="2"  class=tablebody1>基本设置选项</Th>
      </TR>
      <tr> 
        <td width=41%  class=tablebody1><B>选择Cookie的保留时间</B>：<BR>
          登陆交友信息保留时间，在这个时间内重复登陆交友不需要重新登陆</font></td>
        <td width=60%  class=tablebody1> <input type=radio name=usercookies value=1 checked> 
          <font color=red>1天</font> <input type=radio name=usercookies value=2>
          1个月 
          <input type=radio name=usercookies value=3>
          1年 
          <input type=radio name=usercookies value=0>
          不保留 </td>
      </tr>
      <tr> 
        <td width=41%  class=tablebody1><B>我的模板</B>：<BR>
          本系统允许选择个人展示页模板，选择属于自己的个性模板</td>
        <td width=60%  class=tablebody1>
		<select name=TemplateId>
	<%dim rst
	set rst=server.createobject("adodb.recordset")
	sql="select Tempname,id from Ms_Template where Levels=0"
rst.Open sql,conn,1,1
if not (rst.eof and rst.bof) then
do while not rst.eof%>
            <option value="<%=rst("id")%>"><%=rst("Tempname")%></option>
<%rst.movenext
loop
else
response.Write("<option value=1>默认模板</option>")
end if
rst.close%>
          </select></td>
      </tr>
      <tr> 
        <th height=28 align=left valign=middle colspan=2><b>交友选项信息</b>（以下内容建议填写）</th>
      <tr> 
        <td height="26"  class=tablebody1><strong>健康程度：</strong></td>
        <td width=60%  class=tablebody1><select name=health>
            <option value=""></option>
            <option value=体弱多病>体弱多病</option>
            <option value=体质一般>体质一般</option>
            <option value=很健康>很健康</option>
            <option value=棒极了>棒极了</option>
          </select></td>
      </tr>
      <tr> 
        <td height="3"  class=tablebody1><strong>身　　高：</strong></td>
        <td width=60%  class=tablebody1><input name=Pheight type=text size=6 maxlength="4">
          厘米</td>
      </tr>
      <tr> 
        <td height="3"  class=tablebody1><strong>体　　重：</strong></td>
        <td  class=tablebody1><input name=Pweight type=text size=6 maxlength="4" >
          公斤</td>
      </tr>
      <tr> 
        <td height="1"  class=tablebody1><strong>体　　型：</strong></td>
        <td  class=tablebody1><SELECT name=figure>
            <option></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>&nbsp;&nbsp;相貌自评：<select name=mylook>
              <option></option>
              <option value=1>1</option>
              
              <option value=2>2</option>
              
              <option value=3>3</option>
              
              <option value=4>4</option>
              
              <option value=5>5</option>
              
              <option value=6>6</option>
              
              <option value=7>7</option>
              
              <option value=8>8</option>
              
              <option value=9>9</option>
              
              <option value=10>10</option>
              
            </select>
            (10分为满分) </font></td>
      </tr>
      <tr>
        <td height="1"  class=tablebody1><strong>是否吸烟：</strong></td>
        <td  class=tablebody1><SELECT name=fug>
                      <option></option>
                      <option value=厌恶>厌恶</option>
                      <option value=不吸>不吸</option>
                      <option value=偶尔>偶尔</option>
                      <option value=经常>经常</option>
                    </SELECT>&nbsp;&nbsp;收入水平：
					<select name=income>
              <option></option>
          <option value=1000以下>1000以下</option>
          <option value=1000-2000>1000-2000</option>
          <option value=2000-3000>2000-3000</option>
          <option value=3000-4000>3000-4000</option>
          <option value=4000-5000>4000-5000</option>
          <option value=5000-6000>5000-6000</option>
          <option value=6000-7000>6000-7000</option>
          <option value=7000-10000>7000-10000</option>
          <option value=10000以上>10000以上</option>
        </select></td>
      </tr>
      <tr>
        <td height="3"  class=tablebody1><strong>是否喝酒：</strong></td>
        <td  class=tablebody1><SELECT name=alcohol>
                      <option></option>
                      <option value=厌恶>厌恶</option>
                      <option value=不喝>不喝</option>
                      <option value=偶尔>偶尔</option>
                      <option value=经常>经常</option>
                    </SELECT>&nbsp;&nbsp;住房状况：<select name=houses>
              <option></option>
              <option value=自有房>自有房</option>
			  <option value=与人合租>与人合租</option>
			  <option value=独自租房>独自租房</option>
			  <option value=与父母同住>与父母同住</option>
			  <option value=住亲朋家>住亲朋家</option>
			  <option value=住单位房>住单位房</option> 
            </select></td>
      </tr>
      <tr> 
        <td height="16"  class=tablebody1><strong>掌握语言：</strong></td>
        <td  class=tablebody1><input type=checkbox name=language value=普通话 checked>普通话 
          <input type=checkbox name=language value=上海话>上海话
<input type=checkbox name=language value=广东话>广东话
<input type=checkbox name=language value=其他方言>其他方言
<input type=checkbox name=language value=英语>英语
<br><input type=checkbox name=language value=日语>日语
<input type=checkbox name=language value=韩语>韩语
<input type=checkbox name=language value=法语>法语
<input type=checkbox name=language value=德语>德语
<input type=checkbox name=language value=俄语>
          俄语 
          <input type=checkbox name=language value=其它>其它</td>
      </tr>
      <tr> 
        <th height=28 align=left valign=middle colspan=2><b>个人真实信息</b>（以下内容建议填写）</th>
      </tr>
      <tr> 
        <td height=2 valign=top  class=tablebody1 width=41% > 　<b>真实姓名：</b> <input class=2 type=text name=realname size=18> 
        </td>
        <td height=71 align=left valign=top  class=tablebody1 rowspan=14 width=60% > 
          <table width=100% border=0 cellspacing=0 cellpadding=5>
            <tr> 
              <td class=tablebody1><b>性　格： &nbsp; </b> <br> <% dim KidneyType,theKidney
  KidneyType="多重性格,乐天达观,成熟稳重,幼稚调皮,温柔体贴,活泼可爱,普普通通,内向害羞,外向开朗,心地善良,聪明伶俐,善解人意,风趣幽默,思想开放,积极进取,小心谨慎,郁郁寡欢,正义正直,悲观失意,好吃懒做,处事洒脱,疑神疑鬼,患得患失,异想天开,多愁善感,淡泊名利,见利忘义,瞻前顾后,循规蹈矩,热心助人,快言快语,少言寡语,爱管闲事,追求刺激,豪放不羁,狡猾多变,贪小便宜,见异思迁,情绪多变,水性扬花,重色轻友,胆小怕事,积极负责,勇敢正义,聪明好学,实事求是,务实实际,老实巴交,圆滑老练,脾气暴躁,慢条斯理,诚实坦白,婆婆妈妈,急性子"
  theKidney=split(KidneyType, ",")
	   for i = 0 to ubound(theKidney)	
	   response.write "<input type=""checkbox"" name=""character"" value="""&trim(theKidney(i))&""" "	 
	   response.write ">"&trim(theKidney(i))&" "
	   if ((i+1) mod 5)=0 then response.write "<br>"  '每行显示六个性格进行换行
	   next   
  %></td>
            </tr>
            <tr> 
              <td class=tablebody1><b>个人独白： &nbsp;</b><br> <textarea name=personal cols="70" rows=6></textarea><br>　　请您认真填写，未来意中人对您的第一印象也许就从这里产生。请不要为了凑字数而重复粘贴。您的真诚，也许就会收获你一生的幸福！注意：不要留任何联系方式！ 
              </td>
            </tr>
          </table></td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>国　　家：</b> <b> 
          <input class=2 type=text name=country size=18>
          </b> </td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>联系电话：</b> <b> 
          <input name=userphone type=text class=2 size=18 maxlength="20">
          </b> </td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>通信地址：</b> <b> 
          <input class=2 type=text name=address size=30>
          </b> </td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>省　　份：</b> <input type=text name=province size=12> 
          <select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
            <option value="0" selected>请选择..</option>
          </select> </td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>城　　市： </b> <input type=text name=city size=12> 
          <select name="selectc" onChange="theForm.city.value=this.value;">
            <option value="0" selected>请选择..</option>
          </select> </td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>生　　肖： </b> <select size=1 name=shengxiao>
            <option></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>
          星　　座： <select name=Userstars size=1 id="Userstars">
            <option></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></td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>血　　型：</b> <select size=1 name=blood>
            <option selected></option>
            <option value=A>A</option>
            <option value=B>B</option>
            <option value=AB>AB</option>
            <option value=O>O</option>
            <option value=其他>其他</option>
          </select> 
		  民　　族：<select name=Folk>
              <option></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></td>
      </tr>
      <tr> 
        <td valign=top  class=tablebody1 width=41% >　<b>信　　仰：</b> <select size=1 name=belief>
            <option 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>
          </select></td>
      </tr>
      <tr> 
        <td valign=top class=tablebody1 width=41% >　<b>职业类别： </b> <select name=occupation>
            <option> </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=普通职员>普通职员</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=自由职业>自由职业</option>
			  <option value=待业>待业</option>
			  <option value=退休>退休</option>
			  <option value=其他职业>其他职业</option> 
            </select>职称：
          <input name=dutytype type="text" size="10" maxlength="8"></td>
      </tr>
      <tr> 
        <td valign=top class=tablebody1 width=41% >　<b>婚姻状况：</b> <select size=1 name=marital>
            <option selected></option>
            <option value=未婚>未婚</option>
            <option value=已婚>已婚</option>
            <option value=离异>离异</option>
            <option value=丧偶>丧偶</option>
          </select></td>
      </tr>
      <tr> 
        <td valign=top class=tablebody1 width=41% >　<b>最高学历：</b> <select size=1 name=education>
            <option></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></td>
      </tr>
      <tr> 
        <td valign=top class=tablebody1 width=41% >　<b>毕业院校：</b> <input class=2 type=text name=college size=30></td>
      </tr>
    </TBODY>
  </TABLE>
  <table width="100%" align=center cellpadding=0 cellspacing=0 class=tableborder1>
    <tr>
<th width=25% height=24 ><INPUT id=advshow name=advshow type=checkbox value=1 onclick=showadv()><span id=advance>显示高级用户设置选项</span> </th>
      <th width=75% height="28" > 
        <input class=2 type=submit value="注 册" name=Submit><input class=2 type=reset value="清 除" name=Submit2></th>
</tr>
</form>
</table>
<form name=preview action=chkreg.asp method=post target=preview_page>
<input type=hidden name=Username value=>
<input type=hidden name=Usermail value=>
</form>
<script>
function gopreview()
{
document.forms[1].Username.value=document.forms[0].Username.value;
document.forms[1].Usermail.value=document.forms[0].Usermail.value;
var popupWin = window.open('preview.asp', 'preview_page', 'scrollbars=yes,width=500,height=200');
document.forms[1].submit()
}
first("selectp","selectc","theForm",0,0);
function showadv(){
if (document.theForm.advshow.checked == true) {
	adv.style.display = "";
	advance.innerText="关闭高级用户设置选项";
}else{
	adv.style.display = "none";
	advance.innerText="显示高级用户设置选项";
}
}
</script>
<%
end sub

sub reg_3()
dim Username,Usersex,Viptj
dim Useremail,Userface,Faceinfo,Userpoint,Userfriends
dim UserIM,Usersign,showRe,birthday,Facewidth,Faceheight
dim mailbody,sendmsg
dim Quesion,Answer,Topic,CodeStr
dim userinfo
dim userclass,splitwords
if not isnull(session("regtime")) or cint(Regtimes)>0 then'限制注册时间
	if DateDiff("s",session("regtime"),Now())<cint(Regtimes) then
   		ErrMsg=ErrMsg+"<Br>"+"<li>本交友限制每次注册距离时间为"&Regtimes&"秒，请稍后注册。"
   		FoundErr=True
	end if
end if

if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
Viptj=checkStr(request("Viptj"))
if Viptj="" then
Viptj=0
end if
dim Reguserlens
Reguserlens=split(Reguserlen,"|")
if trim(request("Username"))="" or strLength(trim(request("Username")))>Cint(Reguserlens(1)) or strLength(trim(request("Username")))<Cint(Reguserlens(0)) then
	errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于"&Reguserlens(0)&"小于"&Reguserlens(1)&")。"
	founderr=true
else
	username=trim(request("Username"))
end if
if Instr(trim(request("Username")),"=")>0 or Instr(trim(request("Username")),"%")>0 or Instr(trim(request("Username")),chr(32))>0 or Instr(trim(request("Username")),"?")>0 or Instr(trim(request("Username")),"&")>0 or Instr(trim(request("Username")),";")>0 or Instr(trim(request("Username")),",")>0 or Instr(trim(request("Username")),"'")>0 or Instr(trim(request("Username")),",")>0 or Instr(trim(request("Username")),chr(34))>0 or Instr(trim(request("Username")),chr(9))>0 or Instr(trim(request("Username")),"")>0 or Instr(trim(request("Username")),"$")>0 then
	errmsg=errmsg+"<br>"+"<li>用户名中含有非法字符。"
	founderr=true
else
	username=trim(request("Username"))
end if

splitwords=split(RSplitWord,",")
for i = 0 to ubound(splitwords)
	if instr(Username,splitwords(i))>0 then
		errmsg=errmsg+"<br>"+"<li>您输入的用户名包含系统禁止注册字符。"
		founderr=true
		exit for
	end if
next

if Cint(Codeshow(0))=1 then
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if

if request("Usersex")=0 or request("Usersex")=1 then
	Usersex=request("Usersex")
else
	Usersex=1
end if

dim Password1,Password2,Password,rndnum,num1
if cint(Rndpass)=1 then'密码验证函数
	Randomize
	Do While Len(rndnum)<8
	num1=CStr(Chr((57-48)*rnd+48))
	rndnum=rndnum&num1
	loop
	Password=md5(rndnum,16)
else
	if request("Password")="" or len(request("Password"))>20 or len(request("Password"))<6 then
		errmsg=errmsg+"<br>"+"<li>请输入您的密码(长度不能大于20小于6)。"
		founderr=true
	else
	Password1=request("Password")
	end if
	if request("Passwordc")="" or strLength(request("Passwordc"))>20 or len(request("Passwordc"))<6 then
		errmsg=errmsg+"<br>"+"<li>请输入确认密码(长度不能大于20小于6)。"
		founderr=true
	else
		Password2=request("Passwordc")
	end if
	if Password1<>Password2 then
		errmsg=errmsg+"<br>"+"<li>您输入的密码和确认密码不一致。"
		founderr=true
	else
		Password=md5(Password2,16)
	end if
end if

if request("quesion")="" or strLength(request("quesion"))>50 then
  	errmsg=errmsg+"<br>"+"<li>请输入密码提示问题（长度不大于50个字符）。"
	founderr=true
else
	quesion=checkStr(trim(request("quesion")))
end if
if request("answer")="" or strLength(request("answer"))>50 then
  	errmsg=errmsg+"<br>"+"<li>请输入密码提示问题答案（长度不大于50个字符）。"
	founderr=true
else
	answer=md5(checkStr(trim(request("answer"))),16)
end if

if IsValidEmail(trim(request("Usermail")))=false then
	errmsg=errmsg+"<br>"+"<li>您的Email有错误。"
   	founderr=true
else
	if not isnull(SplitEmail) and SplitEmail<>"" and SplitEmail<>"0" then
		Dim SplitUserEmail
		SplitUserEmail=split(SplitEmail,"|")
		For i=0 to ubound(SplitUserEmail)
			if instr(request("Usermail"),SplitUserEmail(i))>0 then
			errmsg=errmsg+"<br>"+"<li>您填写的Email地址含有系统禁止字符。"
   			founderr=true
			exit for
			end if
		Next
	end if
	Useremail=checkStr((request("Usermail")))
end if

dim OpenFaces'头像处理
OpenFaces=split(OpenFace,"|")
if request.form("myface")<>"" and Cint(OpenFaces(0))=1 then
	if request("Facewidth")="" or request("Faceheight")="" then
		errmsg=errmsg+"<br>"+"<li>请输入图片的宽度和高度。"
		founderr=true
	elseif not isInteger(request("Facewidth")) or not isInteger(request("Faceheight")) then
		errmsg=errmsg+"<br>"+"<li>您输入的字符不合法。"
		founderr=true
	elseif Cint(request("Facewidth"))>Cint(OpenFaces(3)) then
		errmsg=errmsg+"<br>"+"<li>您输入的图片宽度不符合标准。"
		founderr=true
	elseif Cint(request("Faceheight"))>Cint(OpenFaces(4)) then
		errmsg=errmsg+"<br>"+"<li>您输入的图片高度不符合标准。"
		founderr=true
	else
		if Cint(OpenFaces(0))=0 then
			if instr(lcase(request("myface")),"http://")>0 or instr(lcase(request("myface")),"www.")>0 then
				errmsg=errmsg+"<br>"+"<li>本交友设置了不允许连接外部网址做头像。"
				founderr=true
			end if
		end if
		Userface=request("myface")
	end if
else
	if request("Userface")<>"" then
		Userface=request("Userface")
	end if
end if
		Facewidth=request("Facewidth")
		Faceheight=request("Faceheight")

birthday=checkstr(trim(request("birthday")))
if birthday="" or not isdate(birthday) then
	errmsg=errmsg+"<br>"+"<li>生日为必填项，请输入。"
	founderr=true
end if
if strLength(request("Signature"))>250 then
	errmsg=errmsg+"<br>"+"<li>签名只能在250个字符以内。"
	founderr=true
end if

if strLength(request("personal"))>250 then
	errmsg=errmsg+"<br>"+"<li>个人独白只能在250个字符以内。"
	founderr=true
end if

	Userfriends=Request.Form("health") & "|||" & checkreal(Request.Form("Pweight")) & "|||" & Request.Form("figure") & "|||" & Request.Form("mylook")& "|||" & Request.Form("fug")& "|||" & Request.Form("income")& "|||" & Request.Form("alcohol")& "|||" & Request.Form("houses")& "|||" & checkreal(Request.Form("language"))
	
	Userinfo=checkreal(Request.Form("realname")) & "|||" & checkreal(Request.Form("character")) & "|||" & Htmlencode(trim(checkreal(Request.Form("personal")))) & "|||" & checkreal(Request.Form("country")) & "|||" & checkreal(Request.Form("province")) & "|||" & checkreal(Request.Form("city")) & "|||" & Request.Form("shengxiao") & "|||" & Request.Form("Userstars") & "|||" & Request.Form("blood") & "|||" & Request.Form("Folk") & "|||" & Request.Form("belief") & "|||" & Request.Form("occupation") & "|||" & checkreal(Request.Form("dutytype"))& "|||" & Request.Form("marital") & "|||" & Request.Form("education") & "|||" & checkreal(Request.Form("college")) & "|||" & checkreal(Request.Form("userphone")) & "|||" & checkreal(Request.Form("address"))
	UserIM=checkreal(Request.form("homepage")) &"|||"& checkreal(Request.form("Oicq")) &"|||"& checkreal(Request.form("Icq")) &"|||"& checkreal(Request.form("msn")) &"|||"& checkreal(Request.form("yahoo")) &"|||"& checkreal(Request.form("aim")) &"|||"& checkreal(Request.form("uc"))

'以下为存入数据库操作
if founderr then exit sub
dim titlepic,UserGroupID
Set Rs=Conn.Execute("Select top 1 UserTitle,GroupPic,UserGroupID,IsSetting,ParentGID From Ms_UserGroups Where ParentGID=3 Order By MinArticle asc")
userclass=rs(0)
titlepic=rs(1)
If Regchecked=1 Then
UserGroupID = 5
else
UserGroupID = Rs(2)
end if
set rs=server.createobject("adodb.recordset")
if cint(emailctrl)=1 then
sql="select * from [Ms_user] where Username='"&username&"' or useremail='"&useremail&"'"
else
sql="select * from [Ms_user] where Username='"&username&"'"
end if
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
	if cint(emailctrl)=1 then
		errmsg=errmsg+"<br>"+"<li>您输入的用户名已经被注册或者已经有用户使用了您填写的电子邮件地址。"
		founderr=true
		exit sub
	else
		errmsg=errmsg+"<br>"+"<li>您输入的用户名已经被注册。"
		founderr=true
		exit sub
	end if
else
	rs.addnew
	rs("UserName")=username
	rs("UserPassword")=password
	rs("UserEmail")=useremail
	rs("Userclass")=userclass
	rs("TitlePic")=titlepic
	rs("UserQuesion")=quesion
	rs("UserAnswer")=answer
	rs("UserIM")=UserIM
	rs("UserToday")="0|||0|||0"
	if Request.Form("TemplateId")="" then
	rs("TemplateId")=1
	else
	rs("TemplateId")=Request.Form("TemplateId")
	end if
	rs("Vipset")="0|"&Viptj&""
	if Request.Form("Pheight")<>"" then
	rs("Userheight")=Request.Form("Pheight")
	end if
	If Request.Form("Signature")<>"" Then rs("UserSign")=Htmlencode(Trim(Request.Form("Signature")))
		rs("UserGroupID")=UserGroupID
		rs("Lockuser")=0
		rs("UserSex")=Usersex
		If birthday<>"" Then rs("UserBirthday")=birthday
		rs("JoinDate")=NOW()
		If Request.form("myface")<>"" Then
			rs("UserFace")=replace(Userface,"'","")
		Else
			rs("UserFace")=replace(Userface,"'","")
		End If
		rs("Faceinfo")=Facewidth& "|||"&Faceheight
		rs("UserLogins")=1
		rs("LastLogin")=NOW()
		rs("Userfriends")=Userfriends
		rs("UserInfo")=userinfo
		rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
		rs.update
		conn.execute("UpDate Ms_Setup Set UserNum=UserNum+1,LastUser='"&username&"' where Cid=1")
		conn.execute("UpDate Ms_UserGroups Set Useradd=Useradd+1 where UserGroupID="&UserGroupID&"")
	End If
	rs.close
	
	If Regemail=1 and Mailtype>0 Then
		on error resume next
		'发送注册邮件
		Dim getpass
		topic="您在" & webname & "的注册资料"
		If cint(Rndpass)=1 Then
			getpass=htmlencode(rndnum)
		Else
			getpass=htmlencode(Request.form("Password"))
		End If
	mailbody="<html>"
	mailbody=mailbody & "<title>注册信息</title>"
	mailbody=mailbody & "<body>"
	mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
	mailbody=mailbody & "<TD valign=middle align=top>"
	mailbody=mailbody & htmlencode(username)&"，您好：<br><br>"
	mailbody=mailbody & "欢迎您注册交友中心，我们将提供给您最好的交友服务，拥有500万会员！<br>"
	mailbody=mailbody & "下面是您的注册信息：<br>"
	mailbody=mailbody & "注册名："&htmlencode(username)&"<br>"
	mailbody=mailbody & "密  码："&getpass&"<br>"
	mailbody=mailbody & "<br><br>"
	mailbody=mailbody & "请点击下面的地址，获取交友中心赠送的金钱点数！"
	mailbody=mailbody & "<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"reg.asp","")&"activepower.asp?username="&username&" target=_blank>激活您的帐号获得交友中心赠送的金币</a><br>"
	mailbody=mailbody & "<br>"
	mailbody=mailbody & "<center><font color=red>再次感谢您注册本中心，让我们为您牵起生命中的另一半！</font>"
	mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
	mailbody=mailbody & "<p align=center>" & Copyright & " &nbsp;&nbsp; " & Versions & "</p>"
	mailbody=mailbody & "</body>"
	mailbody=mailbody & "</html>"

	Dim DvEmail
	Set DvEmail = New Dv_SendMail
		DvEmail.SendObject = Cint(Mailtype)	'设置选取组件 1=Jmail,2=Cdonts,3=Aspemail,0不支持
		DvEmail.ServerLoginName = Mailuser	'您的邮件服务器登录名
	    DvEmail.ServerLoginPass = Mailpass	'登录密码
		DvEmail.SendSMTP = Mailsmtp			'SMTP地址
		DvEmail.SendFromEmail = Mailsend		'发送来源地址
		DvEmail.SendFromName = Webname		'发送人信息
		If DvEmail.ErrCode = 0 Then
			DvEmail.SendMail useremail,topic,mailbody	'执行发送邮件
			If MsEmail.Count>0 Then
				If cint(Rndpass)=1 Then
					sendmsg="<li>您的注册信息和密码已经发往您的邮箱，请使用系统给您的密码登录。用户名:"&UserName&" 密码:"&getpass&"</li>"
					Else
					sendmsg="<li>您的注册信息已经发往您的邮箱，请注意查收。用户名:"&UserName&" 密码:"&getpass&"</li>"
				End If
			Else
				sendmsg="<li>由于系统错误，不能发送注册资料到你的邮箱"&UserEmail&"里，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
			End If
		Else
			sendmsg="<li>由于系统错误，不能发送注册资料到你的邮箱"&UserEmail&"里，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
		End If
		Set DvEmail = Nothing
	Else
		sendmsg = "<li>系统未开启邮件功能，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
	End If
	
	If Regsendmsg=1 Then
		'发送注册短信
		Dim sender,title,body,UserMsg,MsgID
		sender=webname
		title="您在" & webname & "的注册资料"
		body = webname&"全体管理人员欢迎您的到来"&chr(10)&"如有任何疑问请及时联系系统管理员。"&chr(10)&"如有任何使用上的问题请查看交友帮助。"&chr(10)&"感谢您注册本系统，让我们一起来建设这个网上家园！"&chr(10)&"请查收您的邮箱，您将会有意想不到的收获！"&chr(10)&"点击这个网址获得系统赠送的金币：<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"reg.asp","")&"activepower.asp?username="&username&" target=_blank><font color=red>获取金币</font></a>"
		sql="insert into Ms_message(incept,sender,title,content,sendtime,flag,issend) values('"&username&"','"&sender&"','"&title&"','"&body&"',"&SqlNowString&",0,1)"
		conn.Execute(sql)
		Set rs=conn.execute("select top 1 ID from [Ms_message] order by ID desc")
		MsgID=rs(0)
		Rs.close()
		Set Rs=Nothing
	End If
	
	
If cint(Rndpass)=1 or cint(Regchecked)=1 Then

	Else
		Response.Cookies(Forum_sn).path=cookiepath
		Response.Cookies(Forum_sn)("username")=""
		Response.Cookies(Forum_sn)("password")=""
		Response.Cookies(Forum_sn)("userclass")=""
		Response.Cookies(Forum_sn)("userid")=""
		Response.Cookies(Forum_sn)("userhidden")=""
		Response.Cookies(Forum_sn)("usercookies")=""
		Dim StatUserID,UserSessionID
		StatUserID = checkStr(Trim(Request.Cookies(Forum_sn)("StatUserID")))
		If IsNumeric(StatUserID) = 0 or StatUserID = "" Then
			StatUserID = Replace(UserTrueIP,".","")
			UserSessionID = Replace(Startime,".","")
			If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0
			StatUserID = Ccur(StatUserID) + Ccur(UserSessionID)
		End If
		StatUserID = Ccur(StatUserID)
		conn.Execute("delete from Ms_online where username='"&membername&"' Or id="&StatUserID&"")
		'客人=SessionID+活动时间
		Response.Cookies(Forum_sn)("StatUserID") = StatUserID
		select case request("usercookies")
	 	case 0
			Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
		Case 1
			Response.Cookies(Forum_sn).Expires=Date+1
			Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
		Case 2
			Response.Cookies(Forum_sn).Expires=Date+31
			Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
	    case 3
			Response.Cookies(Forum_sn).Expires=Date+365
			Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
		end select
		Response.Cookies(Forum_sn)("username") = username
		Response.Cookies(Forum_sn)("password") = PassWord
		Response.Cookies(Forum_sn)("userclass") = userclass
		Response.Cookies(Forum_sn)("userid") = userid
		Response.Cookies(Forum_sn)("userhidden") = 2
		Response.Cookies(Forum_sn).path=cookiepath
		membername=username
		userhidden=2
		MemberClass=userclass
	End If
	session("regtime")=now()
%>
<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=index.asp'>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th height=24>注册成功：<%=webname%>欢迎您的到来</th>
</tr>
<tr><td class=tablebody1><br>
<ul><%=sendmsg%><li><a href="index.asp">进入<%=webname%>交友中心</a></li>
<li>请查看您邮件并激活相应链接获得系统赠送的金钱点数！</li></ul>
</td></tr>
</table>
<%
end sub


function checkreal(v)
dim w
if not isnull(v) then
	w=replace(v,"|||","§§§")
	checkreal=w
end if
end function
%>