<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.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/area1.js"></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="845" 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="814" align=center valign="top" style="border-bottom:#C7C8CC 1px solid"><br>
            <table width="516" border="0" cellpadding="2" cellspacing="1" bgcolor="9DCCF6"  >
              <tr bgcolor="#FFFFFF">
                <td height="30" colspan="4" class="pgd"><img src="image/small_hongxin.gif" width="16" height="16" align="absmiddle"><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 >
                <td width="116" height="103" rowspan="3" bgcolor="#FFFFFF"><div align="center">
                  <%if rs("pic")="" or isnull(rs("pic")) then%>
                    <img src="images/index_27.gif" width="90" height="90" border="0">
                    <%else%>
                    <img src="uppic/<%=rs("pic")%>" width="90" height="90" border="0">
                    <%end if%>
                </div></td>
                <td width="389" colspan="3" bgcolor="#FFFFFF"><table width="381" border="0" cellspacing="0" cellpadding="00">
                    <%
				  set res=server.CreateObject("adodb.recordset")
				  rsql="select count(*) from jyhd_baoming where hdid="& rs("id")
				  res.open rsql,conn,1
				  bmrs=res(0)
				  res.close
				  set res=nothing
				  %>
                    <tr>
                      <td width="149" height="20">&nbsp;</td>
                      <td width="121"><span class="title3">已有<%=bmrs%>人报名 </span></td>
                      <td width="108"><%
					if datediff("d",now(),rs("hdtime"))<1 then
					   response.Write "<div class=style30>该活动已截止报名</div>"
					end if
					%></td>
                    </tr>
                </table></td>
              </tr>
              <tr >
                <td height="94" colspan="3" bgcolor="#FFFFFF"><table width="384" border="0" cellspacing="0" cellpadding="00">
                    <tr>
                      <td width="66" height="22" background="images/line4.gif">地&nbsp;&nbsp;&nbsp;&nbsp;点：</td>
                      <td width="318" background="images/line4.gif"><%response.Write GetProv(rs("sheng"))&"省&nbsp;"&GetCity(rs("shi"))&"市&nbsp;"&rs("address")%></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">时&nbsp;&nbsp;&nbsp;&nbsp;间：</td>
                      <td background="images/line4.gif"><span class="style30">
                        <%response.Write rs("hdtime")&"&nbsp;"&rs("xxtime")%>
                      </span></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">邀请人数：</td>
                      <td background="images/line4.gif"><%=rs("renshu")%></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">费&nbsp;&nbsp;&nbsp;&nbsp;用：</td>
                      <td background="images/line4.gif"><%=rs("feiyong")%></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">发 起 人：</td>
                      <td background="images/line4.gif"><%=rs("zbdw")%></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">咨询方式：</td>
                      <td background="images/line4.gif"><%=rs("lianxi")%></td>
                    </tr>
                </table></td>
              </tr>
              <tr >
                <td height="30" colspan="3" bgcolor="#FFFFFF"><div align="center">
                        <%if datediff("d",now(),rs("hdtime"))>1 then%>
                        <a href="Registration.asp?hdid=<%=hdid%>"><img src="images/aniu28.gif" width="81" height="20" border="0"></a>
                        <%end if%>
                </div></td>
              </tr>
            </table>
            <br>
              <table width="516" border="0" align="center" cellpadding="00" cellspacing="0">
                <tr>
                  <td height="24" background="images/index_48.gif">&nbsp;&nbsp;&nbsp;<strong class="STYLE2">报名会员名单</strong></td>
                </tr>
              </table>
              <table width="516" border="0" cellspacing="0" cellpadding="00" class="style30" style="border-left:#9ECCF6 1px solid;border-right:#9ECCF6 1px solid;border-bottom:#9ECCF6 1px solid ">
                <tr bgcolor="DFF3FF">
                  <td width="102" height="28" ><div align="center">昵称</div></td>
                  <td width="46" ><div align="center">性别</div></td>
                  <td width="49" ><div align="center">年龄</div></td>
                  <td width="60" ><div align="center">学历</div></td>
                  <td width="116" ><div align="center">职业</div></td>
                  <td width="83" ><div align="center">报名时间</div></td>
                </tr>
				<%
			  set res=server.CreateObject("adodb.recordset")
			  sql1="select ishy,userid,uname,sex,birthday,school,vocation,dtime from jyhd_baoming where hdid="& hdid &" order by dtime asc"
			  res.open sql1,conn,1
			  do while not res.eof
			  if res("sex")="男" then
			    picsex="boy"
			  else
			    picsex="girl"
			  end if
			  %>
                <tr>
                  <td height="23" ><div align="center"><%if res("ishy")=1 then
				response.Write "<a href=""userinfo.asp?user_id="& res("userid") &""" class=""a11"" target=""_blank"">"& res("uname") &"</a>"
				else
				  response.Write res("uname")
				end if
				%></div></td>
                  <td ><div align="center"><img src="images/<%=picsex%>.gif" width="19" height="20"></div></td>
                  <td ><div align="center"><%=datediff("yyyy",res("birthday"),now())%></div></td>
                  <td ><div align="center"><%=res("school")%></div></td>
                  <td ><div align="center"><%=res("vocation")%></div></td>
                  <td ><div align="center"><%=formatdatetime(res("dtime"),2)%></div></td>
                </tr>
				<%
				res.movenext
				loop
				res.close
				set res=nothing
				%>                
              </table>
              <br>
            </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
%>
