<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE81 {	color: #60A7E5;
	font-size: 12px;
	font-weight: bold;
}
.style91 {font-size: 12px; line-height: 150%; color: #4193DD;}
-->
</style>
 <script language="javascript" src="js/area.js"></script>
 <script language="javascript">
 <!--
 function isTelOrMobile(byVal) { 
var re=/[^\d-－（）\(\)]/g;
return (re.test(byVal));
}

 function chkbm(){
  var stremail = document.frm1.email.value;
 re=/^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$/g;
 if (stremail==""||!(re.test(stremail))){
  alert("请输入正确的E-mail");
  document.frm1.email.focus();
  return false;
 }
 if(document.frm1.uname.value==""){
 alert("请输入您的昵称！");
 document.frm1.uname.focus();
 return false;
 }
 if(document.frm1.birthday.value==""){
 alert("请输入您的生日！");
 document.frm1.birthday.focus();
 return false;
 }
if(document.frm1.cell.value==""){
alert("请填写您的手机号码！");
document.frm1.cell.focus();
return false;
}
if(isTelOrMobile(document.frm1.cell.value)){
 alert("您填写的手机号码格式不正确！")
 document.frm1.cell.focus();
 return false;
}
 if(document.frm1.tel.value==""){
alert("请填写您的联系电话！");
document.frm1.tel.focus();
return false;
}
if(isTelOrMobile(document.frm1.tel.value)){
 alert("您填写的电话号码格式不正确！")
 document.frm1.tel.focus();
 return false;
}
 if(document.frm1.renshu.value==""||document.frm1.renshu.value=="0"){
alert("请填写报名人数！");
document.frm1.renshu.focus();
return false;
}
 return true;
 }
 //-->
 </script>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<%
dim hdid
hdid=request.QueryString("hdid")
if not isnumeric(hdid) then
  response.Write "<p align=center class=style30><br><br>错误，传递参数必须为数字！<br></p>"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from jyhd_info where id="& hdid
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<p align=center class=style30><br><br>错误，没有此编号的信息！<br></p>"
else
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="213" align="center" valign="top" bgcolor="#FFFFFF"><div align="left"><!--#include file="liebiao.asp"-->
        </div></td>
    <td width="574" align="center" valign="top" bgcolor="#FFFFFF"><TABLE width="566" height="766" border=0 align="left" 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
      <TBODY>
        <TR>
          <TD width="4%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
          <TD width="92%" height="20" align=center background="image/tiao_4.gif"><div align="left" class="pgd">我要报名</div></TD>
          <TD width="4%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
        </TR>
        <TR>
          <TD align=left style="border-left:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
          <TD height="430" align=center valign="top" style="border-bottom:#C7C8CC 1px solid"><div align="left"><br>
                <table width="516" border="0" cellpadding="3" cellspacing="1" bgcolor="9DCCF6"  >
                  <tr bgcolor="#FFFFFF">
                    <td height="28" colspan="2" class="pgd"><a href="huodong.asp?hdid=<%=rs("id")%>" class="a8"><%
				  response.Write "["& GetCity(rs("shi")) &"]&nbsp;"&month(rs("hdtime"))&"月"&day(rs("hdtime"))&"日&nbsp;"&rs("title")%></a></td>
                  </tr>
                  <tr bgcolor="#EDF8FE">
                    <td height="29" colspan="2" background="images/index_48.gif">&nbsp;&nbsp;&nbsp;<span class="STYLE2">报名条件</span></td>
                  </tr>
                  <tr bgcolor="#FFFFFF">
                    <td height="27" colspan="2">&nbsp;<span class="hong">报名之前请确认满足下列条件：</span><span class="style30"><BR>
  ·必须是独身（未婚、离异或丧偶）；<BR>
  ·年满18周岁；<BR>
  ·以爱情为目的，态度认真严肃；<BR>
  ·学历在大专以上。</span></td>
                  </tr>
                  <tr bgcolor="#FFFFFF">
                    <td width="317" height="33" bgcolor="#FFFFFF" >&nbsp;<span class="STYLE81">如是您是会员，请先登录，系统会自动填写以下资料</span> </td>
                    <td width="184" bgcolor="#FFFFFF" class="STYLE81"><a href="userlogin.asp"><img src="images/aniu8.gif" width="81" height="20" border="0"></a></td>
                  </tr>
                  <tr bgcolor="#FFFFFF">
                    <td height="438" colspan="2" valign="top" bgcolor="#FFFFFF" >
                      <%
					  dim email,uname,sex,marry,school,vocation,birthday,sheng,shi
					  dim cell,tel,hyid
				  if MemberName<>"" then
					  sql2="select * from user_info where userid="& UserId &""
					  set re=server.CreateObject("adodb.recordset")
					  re.open sql2,conn,1
					  if not re.eof then
					    email=re("email")
						uname=re("username")
						sex=re("sex")
						marry=re("marry")
						school=re("school")
						vocation=re("vocation")
						birthday=re("birthday")
						sheng=re("prov")
						shi=re("city")
						cell=re("cell")
						tel=re("phone")
						hyid=re("userid")
					  end if
					  re.close
					  set re=nothing
				  end if	  
					  %>
					  <br>
                      <br>
                      <table width="507" border="1" cellpadding="3" cellspacing="0" bordercolor="#D0EEFF" bordercolordark="#FFFFFF">
                        <form action="savebm.asp" method="post" name="frm1" onSubmit="return chkbm();">
						<input type="hidden" name="hdid" value="<%=hdid%>">
						<input type="hidden" name="hyid" value="<%=hyid%>">
                          <tr>
                            <td height="30" colspan="2" class="hong" background="images/index_48.gif">&nbsp;&nbsp;&nbsp;<span class="STYLE2">我要报名</span><span class="title3">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;非会员请直接填写以下资料</span></td>
                          </tr>
                          <tr>
                          <td width="80" height="26" bgcolor="DFF3FF"><div align="right">电子邮件：</div></td>
                          <td width="419" bgcolor="DFF3FF" class="hong">*
                            <input name="email" type="text" id="email" size="40" maxlength="50" value="<%=email%>"></td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="#FFFFFF"><div align="right">昵　　称：</div></td>
                          <td><span class="hong">*</span>
                            <input name="uname" type="text" id="uname" size="20" maxlength="30" value="<%=uname%>"></td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="DFF3FF"><div align="right">性　　别：</div></td>
                          <td bgcolor="#DFF3FF"><span class="hong">*</span>
                              <%if sex<>"" then%>
							  <input name="sex" type="radio" value="男" <%if sex="男" then response.Write "checked"%>> 
							  <%else%>
							  <input name="sex" type="radio" value="男" checked="checked"> 
							  <%end if%>
                              男
                              <input type="radio" name="sex" value="女" <%if sex="女" then response.Write "checked"%>> 
                              女</td>
                        </tr>
                        <tr>
                          <td height="26"><div align="right">出生日期：</div></td>
                          <td><span class="hong">*
                            <input name="birthday" type="text" id="birthday" maxlength="30" value="<%=birthday%>">
                          </span></td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="DFF3FF"><div align="right">婚姻状况：</div></td>
                          <td bgcolor="#DFF3FF"><span class="hong">*
                              <select name="marry" id="marry">
                              <option value="1" <%if marry=1 then response.Write "selected"%>>未婚</option>
                              <option value="2" <%if marry=2 then response.Write "selected"%>>在婚</option>
                              <option value="3" <%if marry=3 then response.Write "selected"%>>离婚</option>
                              <option value="4" <%if marry=4 then response.Write "selected"%>>丧偶</option>                              
                            </select>                           
                          </span></td>
                        </tr>                      
                        
                        <tr>
                          <td height="26"><div align="right">地　　区：</div></td>
                          <td><span class="pad-right-10">
                           <select name="sheng" class="STYLE30" onChange="setField(sheng,shi);">
                              <%
					set rs1=server.CreateObject("adodb.recordset")
					sql1="select id,sheng from sheng order by id"					
					rs1.open sql1,conn,1
					do while not rs1.eof
					  response.Write "<option value="""& rs1("id") &""""
					  if sheng=rs1("id") then response.Write " selected"
					  response.Write ">"& rs1("sheng")&"</option>"
					  rs1.movenext
					loop
					rs1.close
					set rs1=nothing
					%>
                            </select>
&nbsp;-
<select class="STYLE30" name="shi">
<%if shi<>"" then%>
  <option value="<%=shi%>"><%=GetCity(shi)%></option>
 <%else%> 
   <option value="0">选择城市</option>
  <%end if%>
</select>
                          </span></td>
                        </tr>
						<tr>
                          <td height="26" bgcolor="DFF3FF"><div align="right">学　　历：</div></td>
                          <td bgcolor="#DFF3FF">
						  <%if school<>"" then%>
						  <input type="text" name="scol" value="<%=ShowXl(school)%>" readonly>
						  <input type="hidden" name="school" value="<%=school%>">
						  <%else%>
						  <SELECT name=school class="style30" id=school>
                            <option value="1">高中</option>
                            <option value="2">大专</option>
                            <option value="3">本科</option>
                            <option value="4">硕士</option>
                            <option value="5">博士</option>
                            <option value="6">博士后</option>
                            <OPTION value=0 selected>不限</OPTION>
                          </SELECT>
						  <%end if%>
						  </td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="#FFFFFF"><div align="right">职　　业：</div></td>
                          <td bgcolor="#FFFFFF"><span class="pad-right-10">
						  <%if vocation<>"" then%>
						  <input type="text" name="zhiye" value="<%=vocation%>" readonly>
						  <%else%>
                            <SELECT name=zhiye class="style30" id=zhiye 
                                style="WIDTH: 84px">
                              <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=0 
                                selected>不限</OPTION>
                            </SELECT>
							<%end if%>
                          </span></td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="#DFF3FF"><div align="right">手　　机：</div></td>
                          <td bgcolor="#DFF3FF"><span class="hong">*</span>
                            <input name="cell" type="text" id="cell" maxlength="50" value="<%=cell%>">
                            [短信通知之用,不收取任何费用]</td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="#FFFFFF"><div align="right">电　　话：</div></td>
                          <td bgcolor="#FFFFFF"><span class="hong">*</span>
                            <input name="tel" type="text" id="tel" maxlength="50" value="<%=tel%>">
                            [电话通知之用]</td>
                        </tr>
                        <tr>
                          <td height="26" bgcolor="#DFF3FF"><div align="right">参加人数：</div></td>
                          <td bgcolor="#DFF3FF"><input name="renshu" type="text" id="renshu" onKeyUp="value=value.replace(/[^\d]/g,'');" value="1" size="4" maxlength="2"onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
                            人.（欢迎携同您的好朋友一同参加活动）</td>
                        </tr>
                        
                        <tr>
                          <td height="31" colspan="2"><div align="center">
                            <input type="image" name="imageField" src="images/aniu7.gif">
                            </div></td>
                          </tr>
                        </form>
                      </table>                      
                      <TABLE class=tbProf cellSpacing=0 width="100%">                     
                    </TABLE></td>
                  </tr>
                </table>
                <br>
            </div></TD>
          <TD align="right" style="border-RIGHT:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
        </TR>
      </TBODY>
    </TABLE></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="guanggao2.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td colspan="2" valign="top" ></td>
  </tr>
</table>
<%end if%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
