<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%Dim OnlineNum,GuestNum
response.buffer=true
Stats="交友首页"
call nav()
call head_var("","")
call indextop()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableborder1">
  <tr>
    <td><table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td width="198" height="215" align="center" valign="top" bgcolor="#F9F4FB"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/index/bg3.gif">
              <tr> 
                <td width="28" valign="top">&nbsp;</td>
                <td width="200" height="15"></td>
              </tr>
              <tr align="right"> 
                <td height="114" colspan="2" valign="top"> 
                  <marquee direction="up" scrollamount="1" height="100" width="194" onmouseover="stop()" onmouseout="start()">
                  <table width="194" height="23" border="0" align="center" cellpadding="0" cellspacing="0">
                    <%sql="select Title,ID from Ms_news where Typeid=0 order by id"
	set rs=conn.execute(sql)
	if not (rs.eof and rs.bof) then
	do while not rs.eof%>
                    <tr> 
                      <td width="194" height="22"><img src="Skins/Default/Forum_nav.gif"> <A HREF=Announce.asp?action=view&ID=<%=rs(1)%>><%=rs(0)%></A> </td>
                    </tr>
                    <%rs.movenext
	loop
	rs.close
	else
	response.Write("<tr><td>本站没有公告</td></tr>")
	end if%>
                  </table>
                  </marquee> </td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td height="24"><img src="images/index/site.gif" width="198" height="25"></td>
              </tr>
              <tr> 
                <td height="66">　　亲爱的朋友，交友网第三版已开始测试，欢迎您提出新功能建议和现有功能的改进意见！ 　　<a href="help.asp"><font color="#FF0000">进入&gt;&gt;</font></a> 
                  </td>
              </tr>
            </table></td>
          <td valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="4" height="31"><img src="images/index/stars01.gif" width="4" height="31"></td>
                <td width="378" background="images/index/starsbg.gif"><img src="images/index/stars04.gif" width="172" height="23"></td>
                <td width="82" background="images/index/starsbg.gif"><a href="userphoto.asp?action=upfilet" target="_blank"><img src="images/index/starsu.gif" width="69" height="21" border="0"></a></td>
                <td width="81" background="images/index/starsbg.gif"><a href="Userstar.asp?action=top" target="_blank"><img src="images/index/stars02.gif" width="69" height="21" border="0"></a></td>
                <td width="22" background="images/index/starsbg.gif"><img src="images/index/stars03.gif" width="12" height="22"></td>
                <td width="4" background="images/index/starsbg.gif"><img src="images/index/stars05.gif" width="4" height="31"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="180" style="border-right:#cccccc 1px solid;border-left:#cccccc 1px solid"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <%dim picusername,Psex
  set rs=server.createobject("adodb.recordset")
	sql="select top 4 Username,UserSex,UserBirthday from Ms_user where Istop=1 order by Topdate desc,Userid"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
picusername=rs(0)
pSex=rs(1)%>
                      <td align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="3" class=tableborder2 style="width:120">
                          <tr> 
                            <td height="121" align=center>
				<IFrame src="visual_show2.asp?username=<%=picusername%>&boardid=0&type=1&bgcolor=tablebody1&" width="100" height="115" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="NO" allowtransparency="true"></iframe></td>
                          </tr>
                          <tr> 
                            <td height="22" align="center"><a href=dispuser.asp?username=<%=picusername%>><%=picusername%></a>&nbsp; 
                              <%if pSex=1 then
					  response.Write("男")
					  else
					  response.Write("女")
					  end if%>
                              &nbsp;<%=datediff("yyyy",rs(2),Now())%></td>
                          </tr>
                        </table></td>
                      <%
rs.movenext
loop
  else
  response.write("<td height=""30"" align=""center""  class=tablebody1>没有首页之星的记录！</td>")
  end if
  rs.close
  %>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td><table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="5" height="4"><img src="images/index/stars06.gif" width="5" height="4"></td>
                      <td width="100%" height="4" background="images/index/stars08.gif"></td>
                      <td width="4" height="4"><img src="images/index/stars.gif" width="4" height="4"></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" style="border-right:#999999 1px solid">
  <tr> 
    <td height="33" background="images/xuanbg.gif"><img src="images/renqi.jpg" width="198" height="33"></td>
  </tr>
  <tr>
    <td height="127" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <%dim iv
  set rs=server.createobject("adodb.recordset")
	sql="select top 5 Username,UserFace,Usersex from Ms_user where left(UserFace,3)<>'ima' order by UserViews desc,Userid"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
iv=0
do while not rs.eof
iv=iv+1%>
          <td> <table width="134" border="0" cellspacing="0" cellpadding="3" class=tableborder2 style="width:135">
              <tr> 
                <td width="128" height="124" align=center> <img src="<%=rs(1)%>" width="118" height="134" border="0">                </td>
              </tr>
              <tr> 
                <td height="22" align="center"><a href=dispuser.asp?username=<%=rs(0)%>><%=rs(0)%></a>&nbsp;
                  <%if rs(2)=1 then
					  response.Write("男")
					  else
					  response.Write("女")
					  end if%></td>
              </tr>
            </table></td>
          <%if iv>0 and iv mod 5=0 then
  response.Write("</tr><tr>")
  end if
  rs.movenext
  loop
  else
  response.write("<td height=""30"" align=""center""  class=tablebody1>没有记录！</td>")
  end if
  rs.close
  %>
        </tr>
        <tr>
          <td height="21" align="right" colspan="5"><a href="userstar.asp?action=hits" target="_blank">更多会员&gt;&gt;&gt;</a></td>
        </tr>
      </table> </td>
  </tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" style="border-right:#999999 1px solid">
  <tr> 
    <td height="33" background="images/xuanbg.gif"><img src="images/xuanyan.jpg" width="198" height="33"></td>
  </tr>
  <tr> 
    <td height="127" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <%dim ine
  set rs=server.createobject("adodb.recordset")
	sql="select top 5 Username,UserFace,Usersex from Ms_user where left(UserFace,3)<>'ima' order by Userid desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
ine=0
do while not rs.eof
ine=ine+1%>
          <td> <table width="100%" border="0" cellspacing="0" cellpadding="3" class=tableborder2 style="width:135">
              <tr> 
                <td height="124" align=center> <img src="<%=rs(1)%>" width="119" height="133" border="0">                </td>
              </tr>
              <tr> 
                <td height="22" align="center"><a href=dispuser.asp?username=<%=rs(0)%>><%=rs(0)%></a>&nbsp; 
                  <%if rs(2)=1 then
					  response.Write("男")
					  else
					  response.Write("女")
					  end if%>                </td>
              </tr>
            </table></td>
          <%if ine>0 and ine mod 5=0 then
  response.Write("</tr><tr>")
  end if
  rs.movenext
  loop
  else
  response.write("<td height=""30"" align=""center""  class=tablebody1>没有记录！</td>")
  end if
  rs.close
  %>
        </tr>
        <tr>
          <td height="21" align="right" colspan="5"><a href="userstar.asp?action=new" target="_blank">更多会员&gt;&gt;&gt;</a></td>
        </tr>
      </table></td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
  <tr> 
    <td height="5" class=tablebody2></td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
  <tr> 
    <td height="116" align="center" valign="top" bgcolor="#FFFFFF"><img src="images/index/top_new_15.gif" width="750" height="116"></td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
  <tr> 
    <td height="5" class=tablebody2></td>
  </tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="197" height="343" align="center" valign="top" bgcolor="#F9F4FB" style="border-right:1px solid #D3BCDD"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/index/birth.gif" width="197" height="25"></td>
        </tr>
        <tr> 
          <td height="147" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#F8F1FA">
              <tr bgcolor="#FFFFFF"> 
                <td width="54%" height="25" align="center" background="images/index/starsbg.gif">会员名称</td>
                <td width="23%" align="center" background="images/index/starsbg.gif">性别</td>
                <td width="23%" align="center" background="images/index/starsbg.gif">图片</td>
              </tr>
              <%dim birthNum,Ubirthdays
			  set rs=server.createobject("adodb.recordset")
			  sql="select Username,Usersex,Uservip,UserPics,Userbirthday from Ms_User where (Userbirthday<>0 or Userbirthday<>null)"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
birthNum=1
do while not rs.eof
Ubirthdays=rs("Userbirthday")
if month(Ubirthdays)=month(Now()) and  day(Ubirthdays)=day(Now()) then
			age=datediff("yyyy",Ubirthdays,Now())
			birthNum=birthNum+1%>
              <tr bgcolor="#FFFFFF"> 
                <td height="21">&nbsp;<a href=dispuser.asp?username=<%=rs("username")%> title="祝<%=age%>岁生日快乐！"><%=rs("username")%></a> 
                  <%if rs("Uservip")<>0 then
				response.write("<img src=Skins/Default/vip.gif border=0>")
				end if%>
                </td>
                <td height="21" align="center"> 
                  <%if rs("Usersex")=1 then
				response.write("男")
				else
				response.write("女")
				end if%>
                </td>
                <td height="21" align="center"><%=rs("UserPics")%></td>
              </tr>
              <%end if
			  if birthNum>5 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  if birthNum<>2 then
			  response.Write("<tr bgcolor=""#FFFFFF""><td height=""21"" align=""center"" colspan=3>今天没有生日会员</td></tr>")
			  end if%>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
        <tr> 
          <td width="5"><img src="images/index/art06.gif" width="5" height="4"></td>
          <td width="100%" background="images/index/art07.gif" height="4"></td>
          <td width="4"><img src="images/index/art08.gif" width="4" height="4"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/index/ht1.gif" width="197" height="28"></td>
        </tr>
        <tr> 
          <td height="142" align="center" valign="top" background="images/index/htbg.gif"> 
            <table width="94%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"><a href=partylist.asp?action=showpro&Province=北京>北京市</a> 
                  <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=福建>福建省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=上海>上海市</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=重庆>重庆市</a> </td>
              </tr>
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"> <a href=partylist.asp?action=showpro&Province=天津>天津市</a> 
                  <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=广东>广东省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=河北>河北省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=河南>河南省</a> </td>
              </tr>
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"> <a href=partylist.asp?action=showpro&Province=黑龙江>黑龙江</a> 
                  <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=吉林>吉林省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=辽宁>辽宁省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=山东>山东省</a> </td>
              </tr>
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"><a href=partylist.asp?action=showpro&Province=内蒙古>内蒙古</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=江苏>江苏省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=安徽>安徽省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=山西>山西省</a></td>
              </tr>
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"><a href=partylist.asp?action=showpro&Province=陕西>陕西省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=甘肃>甘肃省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=浙江>浙江省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=江西>江西省</a></td>
              </tr>
              <tr> 
                <td height="20" style="border-bottom:#ffcccc 1px dotted"><a href=partylist.asp?action=showpro&Province=湖北>湖北省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=湖南>湖南省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=贵州>贵州省</a> <img src="images/index/menubg.gif" width="1" height="14" align="absmiddle"> 
                  <a href=partylist.asp?action=showpro&Province=四川>四川省</a></td>
              </tr>
              <tr> 
                <td height="20" align="right" style="border-bottom:#ffcccc 1px dotted"><font color="#FF9900"><a href="party_more.asp" target="_blank">更多&gt;&gt;&gt;</a></font></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td valign="top"><img src="images/index/ht1-1.gif" width="197" height="10"></td>
        </tr>
        <tr> 
          <td valign="top"><img src="images/index/ht1-2.gif" width="197" height="9"></td>
        </tr>
      </table></td>
    <td valign="top" bgcolor="#FFFFFF" style="border-right:1px solid #D3BCDD;border-top:1px solid #D3BCDD"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="26"> <div align="center"><img src="images/index/ht002.gif" width="341" height="26" border="0" usemap="#Map6"></div></td>
        </tr>
      </table>
      <table width="100%" height="158" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="158" valign="top">
		  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F8F1FA">
              <tr align="center"> 
                <td width="57%" height="24" background="images/index/starsbg.gif">约会名称</td>
                <td width="20%" background="images/index/starsbg.gif">城市</td>
                <td width="23%" background="images/index/starsbg.gif">约会/响应</td>
              </tr>
              <%dim Pid,Userage,Typeid
  set rs=server.createobject("adodb.recordset")
  sql="select top 5 pid,Title,City,Maxnum,Userjoin,Typeid,Addtime from Ms_party where Checked=1 order by addtime desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Pid=rs("Pid")
Typeid=rs("Typeid")%>
              <tr bgcolor="#FFFFFF"> 
                <td height="22">&nbsp;<a href=partyshow.asp?Pid=<%=pid%> title=浏览约会内容><%=rs("Title")%></a> <%if datediff("d",rs("Addtime"),date())<=1 then
response.write("&nbsp;<img src=images/new.gif>")
end if%>
                </td>
                <td align="center"><%=rs("City")%></td>
                <td align="center"><%=rs("Maxnum")%> / <font color=red><%=rs("Userjoin")%></font></td>
              </tr>
              <%rs.movenext
  loop
  end if
  rs.close
  %>
            </table> </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="9" style="border-bottom:1px solid #D3BCDD"> <div align="center"><a href="partylist.asp"><img src="images/index/ht004.gif" width="341" height="9" border="0" usemap="#Map4"></a></div></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="22">　<img src="images/index/sm2.gif" width="11" height="11"> 
            最新日记</td>
        </tr>
        <tr> 
          <td background="images/index/bg8.gif" height="1"></td>
        </tr>
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table width="343" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="115" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F8F1FA">
              <tr align="center"> 
                <td width="51%" height="23" background="images/index/starsbg.gif">日记主题</td>
                <td width="22%" background="images/index/starsbg.gif">作者</td>
                <td width="13%" background="images/index/starsbg.gif">天气</td>
                <td width="14%" background="images/index/starsbg.gif">人气</td>
              </tr>
              <%dim Did,Tdiary,postname
  set rs=server.createobject("adodb.recordset")
    sql="select top 4 did,Title,Addtime,Username,Weather,hits from Ms_diary where Checked=1 and Ispublic<>0 order by Addtime desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
Tdiary=0
do while not rs.eof
Did=rs("Did")
postname=rs("Username")
%>
              <tr align="center" bgcolor="#FFFFFF"> 
                <td width="51%" height="22" align="left">&nbsp;<%response.write("<a href=diaryview.asp?Did="&Did&" title=""主题："&rs("Title")&Brstrt&"作者："&postname&Brstrt&"发表于："&rs("Addtime")&""" target=_blank>"&left(rs("Title"),15)&"</a>")
	  if datediff("d",rs("Addtime"),date())<1 then
response.write("&nbsp;<img src=images/new.gif>")
end if%>
                </td>
                <td width="22%" align="center"><a href=dispuser.asp?username=<%=postname%>><%=postname%></a></td>
                <td align="center"><img src=Skins/Default/weather/<%=rs("Weather")%>.gif border=0 width=13></td>
                <td width="14%" align="center"> 
                  <%if rs("hits")>=Clicknums then
	response.write("<font color=red>"&rs("hits")&"</font>")
	else
	response.write(""&rs("hits")&"")
	end if%> </td>
              </tr>
              <%rs.movenext
  loop
  else
  response.write("<tr align=""center""><td height=""30"" colspan=""7"" align=""center""  class=tablebody1>还没有日记，请添加日记！</td></tr>")
  end if
  rs.close
  %>
            </table>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25"> <div align="right"><a href="diaryindex.asp" target="_blank"><img src="images/index/pic7.gif" width="84" height="25" border="0"></a></div></td>
        </tr>
      </table></td>
    <td width="208" valign="top" bgcolor="#F9F4FB"><table width="208" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="212" height="30"><a href="toplist.asp?orders=16"><img src="images/index/ht02.gif" width="208" height="30" border="0"></a></td>
        </tr>
      </table>
      <table width="208" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="208" height="155" valign="top" bgcolor="#F9F4FB"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#F8F1FA">
              <tr bgcolor="#FFFFFF"> 
                <td width="52%" height="22" background="images/index/starsbg.gif"> 
                  <div align="center">昵　称</div></td>
                <td width="16%" align="center" background="images/index/starsbg.gif">图片</td>
                <td width="17%" height="22" background="images/index/starsbg.gif"> 
                  <div align="center">性别</div></td>
                <td width="15%" align="center" background="images/index/starsbg.gif">年龄</td>
              </tr>
              <%set rs=server.createobject("adodb.recordset")
			  sql="select top 6 Username,Usersex,Userbirthday,Uservip,UserPics from Ms_User order by Userid desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
              <tr bgcolor="#FFFFFF"> 
                <td width="52%" height="21">&nbsp;<a href=dispuser.asp?username=<%=rs(0)%> title=查看<%=rs(0)%>详细资料><%=rs("username")%></a> 
                  <%if rs(3)>1 then
				response.write("<img src=Skins/Default/vip.gif border=0>")
				end if%>
                </td>
                <td width="16%" height="21" align="center"><%=rs(4)%></td>
                <td width="17%" height="21" align="center"> 
                  <%if rs(1)=1 then
				response.write("男")
				else
				response.write("女")
				end if%>
                </td>
                <td align="center"><%=datediff("yyyy",rs(2),Now())%></td>
              </tr>
              <%rs.movenext
			  loop
			  rs.close
			  end if%>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
              <tr> 
                <td width="5"><img src="images/art06.gif" width="5" height="4"></td>
                <td width="100%" background="images/index/art07.gif" height="4"></td>
                <td width="4"><img src="images/index/art08.gif" width="4" height="4"></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="152" background="images/index/artbg.gif"><img src="images/index/art01.gif" width="109" height="25"></td>
          <td width="51" align="center" background="images/index/artbg.gif"><a href="Artindex.asp"><img src="Skins/Default/diary/more_black.gif" width="32" height="7" border="0" title=所有约会></a></td>
          <td width="5"><img src="images/index/art02.gif" width="5" height="25"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-right:#cccccc 1px solid;border-left:#cccccc 1px solid">
	   <%Set rs=server.createobject("adodb.recordset")
    sql="select top 7 Boardid,Topic,id,Title,Addtime from Ms_Article order by ID desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
        <tr> 
          <td width="9%" height="21" align="center" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted"><img src=images/index/art03.gif width="9" height="9"></td>
          <td width="91%" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted">&nbsp;<%response.write("<a href=showArt.asp?BoardID="&rs(0)&"&ID="&rs(2)&" title=""主题："&rs(3)&Brstrt&"发表于："&rs(4)&""" target=_blank>"&left(rs(3),13)&"</a>")
	  if datediff("d",rs(4),date())<1 then
response.write("&nbsp;<img src=images/new.gif>")
end if%>
          </td>
        </tr>
		<%rs.movenext
  loop
  else
  response.write("<tr align=""center""><td height=""30"" colspan=""7"" align=""center""  class=tablebody1>无记录！</td></tr>")
  end if
  rs.close%>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
        <tr> 
          <td width="5"><img src="images/art06.gif" width="5" height="4"></td>
          <td width="100%" background="images/index/art07.gif" height="4"></td>
          <td width="4"><img src="images/index/art08.gif" width="4" height="4"></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class=tableborder1>
  <tr> 
    <td height="30"  class=tablebody1 background="images/city_star_2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="92%"><img src="images/city_star_1.gif" width="269" height="37"></td>
          <td width="8%" align="center"><a href="photolist.asp?action=all"><img src="Skins/Default/diary/more_black.gif" width="32" height="7" border="0" title=所有会员图片></a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="164" align="center" class=tablebody1> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <%dim iu
	  set rs=server.createobject("adodb.recordset")
		  sql="select top 5 Phototype,id,Isphoto,Allpic,IsShell from Ms_Uphtype where Isphoto<>null order by id desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
          <td><TABLE cellSpacing=0 cellPadding=0 width=140 border=0 style="BORDER-RIGHT: #c9c9c9 1px solid">
              <TBODY>
                <TR> 
                  <TD width=13 height=4><IMG height=4 src="images/albphoto/2_1.gif" 
                  width=13></TD>
                  <TD background=images/albphoto/2_1bg.gif colSpan=2 
height=4></TD>
                </TR>
                <TR> 
                  <TD width=13 rowspan="3" vAlign=top background=images/albphoto/2_2a.gif></TD>
                  <TD height=115 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px"> 
                    <TABLE 
                  cellSpacing=0 cellPadding=1 align=center border=0>
                      <TBODY>
                        <TR> 
                          <TD> 
                            <%if rs(2)<>"" then
				  response.Write("<a href=album.asp?action=al_list&id="&rs(1)&"><img src="&rs(2)&" border=0 height=100 width=110></a>")
				  else
				  response.Write("<img src=images/nophoto_up.gif>")
				  end if%>
                          </TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                  <TD width=1 rowspan="3" bgColor=#cccccc><NOBR></NOBR></TD>
                </TR>
                <TR> 
                  <TD height=22 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px"><a href="album.asp?action=al_list&id=<%=rs(1)%>"><%=rs(0)%></a></TD>
                </TR>
                <TR> 
                  <TD height=20 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px">
                    <%if rs(4)=0 then
				  response.Write("[公开]")
				  elseif rs(4)=1 then
				  response.Write("[<font color=blue>私有</font>]")
				  else
				  response.Write("[<font color=red>密码</font>]")
				  end if%>
                    &nbsp;<%=rs(3)%> 张</TD>
                </TR>
                <TR> 
                  <TD width=13 height=2><IMG height=1 src="images/albphoto/2_3.gif" 
                  width=13></TD>
                  <TD bgColor=#cccccc colSpan=2 height=2></TD>
                </TR>
              </TBODY>
            </TABLE> </td>
          <%
  rs.movenext
  loop
  else
  response.write("<td height=""30"" align=""center""  class=tablebody1>没有相册记录！</td>")
  end if
  rs.close
  %>
        </tr>
      </table></td>
  </tr>
</table>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0 style="border-right:#999999 1px solid;border-left:#999999 1px solid">
  <TBODY>
    <TR> 
      <TD width=9><IMG height=1 alt="" 
      src="images/spacer.gif" width=9 border=0></TD>
      <TD width=128><IMG height=1 alt="" 
      src="images/spacer.gif" width=103 border=0></TD>
      <TD width=613><IMG height=1 alt="" 
      src="images/spacer.gif" width=613 border=0></TD>
    </TR>
    <TR> 
      <TD vAlign=bottom colSpan=2><IMG height=28 alt="" 
      src="images/wm_r1_c2.jpg" width=112 border=0 
      name=wm_r1_c1></TD>
      <TD vAlign=bottom align=right> <TABLE cellSpacing=0 cellPadding=0 width=182 border=0>
          <TBODY>
            <TR> 
              <TD width="148" align=center><a href="usermarry.asp?action=add"><IMG height=28 
            src="images/m_send.jpg" width=100 
            border=0></a> </TD>
              <TD width=34><a href="marrylist.asp"><IMG 
            height=9 alt="" src="images/wm_r2_c4.jpg" 
            width=34 border=0 name=wm_r2_c4></a></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD colSpan=3><IMG height=10 alt="" 
      src="images/wm_r3_c1.jpg" width=750 border=0 
      name=wm_r3_c1></TD>
    </TR>
    <TR> 
      <TD background=images/wm_r4_c1.jpg>&nbsp;</TD>
      <TD colspan="2" vAlign=center><table width="738" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="733" height="110" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%dim Marinfo
set rs=server.createobject("adodb.recordset")
	sql="select top 4 Username,Marinfo,Addtime from Ms_Marry where Checked=1 order by MID desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Marinfo=split(rs(1),"|||")%>
                <tr>
                  <td width="16%" height="22"><a href=dispuser.asp?username=<%=rs(0)%> title=查看<%=rs(0)%>详细资料><%=rs(0)%></a></td>
                  <td width="84%">要求：年 龄 <font color="#CC6699"><%=Marinfo(0)%>-<%=Marinfo(1)%></font> 岁 | 所在地区 <font color="#CC6699"><%=Marinfo(6)%>&nbsp;<%=Marinfo(7)%></font> | 身 高 <font color="#CC6699"><%=Marinfo(2)%></font> | 学 历 <font color="#CC6699"><%=Marinfo(5)%></font> | 收入水平 <font color="#CC6699"><%=Marinfo(4)%></font> 元 </td>
                </tr>
				    <TR> 
    <TD height=3 colspan="2" background=images/title_line.gif bgcolor="#FFFFFF"></TD>
  </TR>
	<%rs.movenext
	loop
	end if
	rs.close%>
              </table>
            </td>
            <td width="8" background="images/wm_r4_c1.jpg">&nbsp;</td>
          </tr>
        </table></TD>
    </TR>
    <TR> 
      <TD colSpan=3><IMG height=9 alt="" 
      src="images/wm_r5_c1.jpg" width=750 border=0 
      name=wm_r5_c1></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="100" border="0" align="center" cellpadding="0" cellspacing="1" class=tableborder1>
  <tr> 
    <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="750" height="112">
        <param name="movie" value="images/top.swf">
        <param name="quality" value="high">
        <embed src="images/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="750" height="112"></embed></object></td>
  </tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F9F4FB">
  <tr> 
    <td width="197" height="197" valign="top" style="border-right:1px solid #D3BCDD"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/index/tuijian1.gif" width="197" height="22"></td>
        </tr>
        <tr>
          <td><img src="images/index/tuijian3.gif" width="197" height="22"></td>
        </tr>
        <tr>
          <td><a href="toplist.asp?orders=1"><img src="images/index/tuijian2.gif" width="197" height="22" border="0"></a></td>
        </tr>
        <tr>
          <td><a href="toplist.asp?orders=2"><img src="images/index/tuijian4.gif" width="197" height="22" border="0"></a></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="152" background="images/index/artbg.gif"><img src="images/index/art09.gif" width="113" height="25"></td>
          <td width="51" align="center" background="images/index/artbg.gif">&nbsp;</td>
          <td width="5"><img src="images/index/art02.gif" width="5" height="25"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-right:#cccccc 1px solid;border-left:#cccccc 1px solid">
        <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 H_title,H_ID from Ms_Help where H_ParentID=8 order by H_Addtime desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
        <tr> 
          <td width="9%" height="21" align="center" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted"><img src=images/index/art05.gif width="9" height="9"></td>
          <td width="91%" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted"><%response.write("<a href=help.asp?action=view&id="&rs(1)&" target=_blank>"&left(rs(0),12)&"</a>")%>
          </td>
        </tr>
        <%rs.movenext
  loop
  else
  response.write("<tr align=""center""><td height=""30"" colspan=""2"" align=""center""  class=tablebody1>无记录！</td></tr>")
  end if
  rs.close%>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
        <tr> 
          <td width="5"><img src="images/index/art06.gif" width="5" height="4"></td>
          <td width="100%" background="images/index/art07.gif" height="4"></td>
          <td width="4"><img src="images/index/art08.gif" width="4" height="4"></td>
        </tr>
      </table> </td>
    <td align="center" valign="top" bgcolor="#FFFFFF" style="border-right:1px solid #D3BCDD"> 
      <table width="340" height="114" border="0" align="center" cellpadding="0" cellspacing="0">
        <form name=searchform action=search.asp?action=Usearch method=post 
              target=_blank>
          <tr> 
            <td width="363" height="114" valign="top" background="images/index/bg00.gif"> 
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td height="8"></td>
                </tr>
              </table>
              <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="25%" align="center"> <table width="82%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="43"><img src="images/index/seach.gif" width="78" height="39" border="0"></td>
                      </tr>
                      <tr> 
                        <td height="46"><img src="images/index/seach1.gif" width="78" height="39" border="0" ></td>
                      </tr>
                    </table></td>
                  <td width="75%"><table width="248" border="0" align="center" cellpadding="4" cellspacing="0">
                      <tr> 
                        <td height="26" colspan="2">年龄
<select name="Minage">
                            <option selected></option>
                            <option value=0>0</option>
                            <option 
                          value=15>15</option>
                            <option value=20 >20</option>
                            <option value=25>25</option>
                            <option value=30>30</option>
                            <option 
                          value=35>35</option>
                            <option value=40>40</option>
                            <option value=45>45</option>
                            <option 
                          value=50>50</option>
                            <option value=55>55</option>
                            <option value=60>60</option>
                            <option 
                          value=65>65</option>
                            <option 
                        value=70>70</option>
                          </select>
                          到 
                          <select name="Maxage">
                            <option selected></option>
                            <option 
                          value=70>70</option>
                            <option value=65>65</option>
                            <option value=60>60</option>
                            <option 
                          value=55>55</option>
                            <option value=50>50</option>
                            <option value=45>45</option>
                            <option 
                          value=40>40</option>
                            <option value=35>35</option>
                            <option value=30>30</option>
                            <option 
                          value=25>25</option>
                            <option value=20>20</option>
                            <option value=15>15</option>
                            <option value=0>0</option>
                          </select>
                          <font color="#333333">
<select name=status>
                            <option value=0 selected>全部会员</option>
                            <option value=1>普通会员</option>
                            <option value=2>VIP会员</option>
                          </select>
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="17" colspan="2"><font color="#333333">身高
<select name=Minheight>
                            <option selected></option>
                            <option value=110>110</option>
                            <option value=150>150</option>
                            <option value=155>155</option>
                            <option value=160>160</option>
                            <option value=165>165</option>
                            <option value=170>170</option>
                            <option value=175>175</option>
                            <option value=180>180</option>
                            <option value=185>185</option>
                            <option value=190>190</option>
                            <option value=195>195</option>
                            <option value=200>200</option>
                          </select>
                          到 
                          <select name=Maxheight>
                            <option selected></option>
                            <option value=200>200</option>
                            <option value=195>195</option>
                            <option value=190>190</option>
                            <option value=185>185</option>
                            <option value=180>180</option>
                            <option value=175>175</option>
                            <option value=170>170</option>
                            <option value=165>165</option>
                            <option value=160>160</option>
                            <option value=155>155</option>
                            <option value=150>150</option>
                            <option value=110>110</option>
                          </select>
                          CM</font></td>
                      </tr>
                      <tr> 
                        <td width="153" height="35"><font color="#000000">性别
                          <select name=Gender>
                            <option value="1">男性</option>
                            <option value="0">女性</option>
                            <option value="2" selected>不限</option>
                          </select>
                          <input name="Userpics" type="checkbox" id="Userpics" value="1">
                          <font color="#333333">照片</font></font></td>
                        <td width="87"><font color="#000000"><font color="#333333"> 
                          <input name="imageField2" type="image" src="images/index/search0.gif" width="72" height="20" border="0">
                          </font></font></td>
                      </tr>
                    </table></td>
                </tr>
              </table></td>
          </tr>
        </form>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="22">　<img src="images/index/sm2.gif" width="11" height="11"> 
            最新聚会</td>
        </tr>
        <tr> 
          <td background="images/index/bg8.gif" height="1"></td>
        </tr>
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table width="343" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="115" valign="top"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F8F1FA">
              <tr align="center"> 
                <td width="51%" height="23" background="images/index/starsbg.gif">聚会主题</td>
                <td width="22%" background="images/index/starsbg.gif">发起人</td>
                <td width="13%" background="images/index/starsbg.gif">城市</td>
                <td width="14%" background="images/index/starsbg.gif">人气</td>
              </tr>
			   <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits from [Ms_klatch] where Checked=1 and typeid<>7 order by Kid desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
              <tr align="center" bgcolor="#FFFFFF"> 
                <td width="51%" height="22" align="left">&nbsp;
				<A href="klview.asp?id=<%=rs("Kid")%>" target=_blank><%=rs("Title")%></A></td>
                <td width="22%" align="center"><A href="dispuser.asp?username=<%=rs("Username")%>" target=_blank><%=rs("Username")%></A></td>
                <td align="center"><%=rs("City")%></td>
                <td width="14%" align="center"><%=rs("Hits")%> </td>
              </tr>
             <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25"> <div align="right"><a href="klatch.asp" target="_blank"><img src="images/index/pic7.gif" width="84" height="25" border="0"></a></div></td>
        </tr>
      </table></td>
    <td width="208" align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td><img src="images/index/hte5.gif" width="208" height="40"></td>
        </tr>
        <tr> 
          <td height="141" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-right:#cccccc 1px solid;border-left:#cccccc 1px solid">
		  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits from [Ms_klatch] where typeid=7 order by Kid desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
              <tr> 
                <td width="9%" height="21" align="center" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted"><img src=images/index/icon_1.gif width="9" height="9"></td>
                <td width="91%" bgcolor="#FFFFFF" style="border-bottom:#999999 1px dotted"> 
                &nbsp;<A href="klview.asp?id=<%=rs("Kid")%>" target=_blank><%=rs("Title")%></A></td>
              </tr>
			    <%rs.movenext
loop
else
response.Write("<tr><td width=""9%"" height=""21"" align=""center"" bgcolor=""#FFFFFF"" style=""border-bottom:#999999 1px dotted""><img src=images/index/icon_1.gif width=""9"" height=""9""></td><td bgcolor=""#FFFFFF"" style=""border-bottom:#999999 1px dotted"">无活动</td></tr>")
end if
rs.close%>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
        <tr> 
          <td width="5"><img src="images/index/art06.gif" width="5" height="4"></td>
          <td width="100%" background="images/index/art07.gif" height="4"></td>
          <td width="4"><img src="images/index/art08.gif" width="4" height="4"></td>
        </tr>
      </table>
      <img src="images/index/IndexAd.gif" width="200" height="93"> </td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
  <tr> 
    <td height="39"><table border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="11" colspan="2" background="images/onlinebg.gif"><img src="images/online.gif" width="170" height="45"></td>
          <td width="18" bgcolor="#FFFFFF"><img src="images/onliner.gif" width="18" height="45"></td>
        </tr>
        <tr>
		<%OnlineNum=online(0)
GuestNum=guest(0)%>
          <td width="17" height="54" rowspan="2" background="images/onlinel.gif" bgcolor="#FFFFFF">&nbsp;</td>
          <td width="735" bgcolor="#FFFFFF">目前站内会员总共有 <b><%=AllOnlineNum%></b> 人在线，其中注册会员 <b><%=OnlineNum%></b> 人，访客 <b><%=GuestNum%></b> 人。
		  <%if AllOnlineNum>=Onlinesetspilt(9) then
		  response.Write("<a href=online_l.asp target=_blank>查看所有在线会员</a>")
		  end if%><br> 
		  <%Dim userip,userip2
	userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	userip2 = Request.ServerVariables("REMOTE_ADDR")
	if userip = ""  then
		response.write "您的真实ＩＰ 是："&userip2&"，"
	else
		response.write "您的真实ＩＰ 是："&userip&"，"
	end if
	response.write usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),2)&"，"&usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),1)%>
            <br>
            本站最高在线：<b><%=OnuserMax%></b> 人，发生时间：<b><%=Onuserdate%></b><br>
            <font color="#FF0000">名单图例：</font><img src="Skins/Default/ao1.gif" width="16" height="18"> 
            管理员 ‖ <img src="Skins/Default/super.gif" width="16" height="18"> 超级总管 
            ‖ <img src="Skins/Default/ao.gif" width="16" height="18"> 爱神 ‖ <img src="Skins/Default/gb.gif" width="16" height="16"> 
            贵宾 ‖ <img src="Skins/Default/messages1.gif" width="12" height="11"> 
            注册用户 ‖ <img src="Skins/Default/messages2.gif" width="12" height="11"> 
            未注册/未登录用户 
            <hr align="center" width="700" size="1" noshade>
          </td>
          <td width="18" rowspan="2" background="images/onliner1.gif" bgcolor="#FFFFFF">&nbsp;</td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF">
		  <%if Showonline=1 then%>
		  <%call onlineuser(Cint(Onlinesetspilt(6)),Cint(Onlinesetspilt(5)))%>
<%end if%>
</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="15"><img src="images/onlineb.gif" width="750" height="15"></td>
  </tr>
</table>
<%call activeonline()
call footer()%>