<!--#include file=style_css.asp-->
<%
Rem ==========交友中心通用函数=========
'页面错误提示信息
sub MsLove_error()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr align=center>
<th width="100%" height=25 colspan=2>交友中心错误信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1 colspan=2>
<b>产生错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href="help.asp">帮助文件</a>，可能您还没有登陆或者不具有使用当前功能的权限。
<%=errmsg%>
</td></tr>
<%if not founduser then%>
<form action="/manage/user_chklogin.asp" method=post>
    <tr>
    <th valign=middle colspan=2 align=center height=25>请输入您的用户名、密码登陆</td></tr>
    <tr>
    <td valign=middle class=tablebody1>请输入您的用户名</td>
    <td valign=middle class=tablebody1><input class=2 name=username type=text> &nbsp; <a href=reg.asp>没有注册？</a></td></tr>
		 <%if Cint(Codeshow(1))=1 then%>
      <TR> 
        <TD width=40% height="25" 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 valign=middle class=tablebody1>请输入您的密码</font></td>
    <td valign=middle class=tablebody1><input class=2 name=password type=password> &nbsp; <a href=lostpass.asp>忘记密码？</a></td></tr>
    <tr>
    <td class=tablebody1 valign=top width=30% ><b>Cookie 选项</b><BR> 请选择你的 Cookie 保存时间，下次访问可以方便输入。</td>
    <td valign=middle class=tablebody1>                <input type=radio name=CookieDate value=0 checked>不保存，关闭浏览器就失效<br>
                <input type=radio name=CookieDate value=1>保存一天<br>
                <input type=radio name=CookieDate value=2>保存一月<br>
                <input type=radio name=CookieDate value=3>保存一年<br>                </td></tr>
    <tr>
    <td valign=top width=30% class=tablebody1><b>隐身登陆</b><BR> 您可以选择隐身登陆，交友中心会员将在用户列表看不到您的信息。</td>
    <td valign=middle class=tablebody1>                <input type=radio name=userhidden value=2 checked>正常登陆<br>
                <input type=radio name=userhidden value=1>隐身登陆<br>
                </td></tr>
	<input type=hidden name=comeurl value="<%=Request.ServerVariables("HTTP_REFERER")%>">
    <tr>
    <td class=tablebody2 valign=middle colspan=2 align=center><input class=2 type=submit name=submit value="登 陆">&nbsp;&nbsp;<input class=2 type=button name="back" value="返 回" onClick="location.href='<%=Request.ServerVariables("HTTP_REFERER")%>'"></td></tr>
</form>
<%else%>
    <tr>
    <td class=tablebody2 valign=middle colspan=2 align=center><a href="<%=Request.ServerVariables("HTTP_REFERER")%>">&lt;&lt;返回上一页</a></td></tr>
<%end if%>
</table>
<%
end sub

sub MsLove_suc()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr align=center>
<th width="100%">交友中心成功信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1>
<b>操作成功：</b><br><br>
<%=sucmsg%>
</td></tr>
<tr align=center><td width="100%" class=tablebody2>
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>">&lt;&lt;返回上一页</a>
</td></tr>
</table>
<%
end sub

sub nav()%>
<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name="keywords" content="缘来交友网站亚洲交友中心中国交友中心爱情交友缘来网征婚征婚交友婚介情人爱人网恋恋爱广州交友深圳交友北京交友上海交友珠海交友湖南交友长沙交友重庆交友四川交友成都交友"/>
<meta name="DESCRIPTION" content="缘来交友网站亚洲交友中心中国交友中心爱情交友缘来网征婚征婚交友婚介情人爱人网恋恋爱广州交友深圳交友北京交友上海交友珠海交友湖南交友长沙交友重庆交友四川交友成都交友" />
<title><%=webname%>--<%=stats%></title>
<!--#include file=inc/click_js.asp-->
<!--#include file=inc/menu.asp-->
   <script language="javascript">
function CheckAll(form)  
  {  
  for (var i=0;i<form.elements.length;i++)  
    {  
    var e = form.elements[i];  
    if (e.name != 'chkall')  
       e.checked = form.chkall.checked;  
    }  
  }

//-->
</SCRIPT>
</head>
<body topmargin="0">
<script src="inc/main.js" type="text/javascript"></script>
<div class=menuskin id=popmenu 
      onmouseover="clearhidemenu();highlightmenu(event,'on')" 
      onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<table width="750" 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="748" 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="748" height="112"></embed></object></td>
  </tr>
</table>
<table class=tableborder1 cellpadding=0 cellspacing=0 align=center style="border-right:#999999 1px solid;border-left:#999999 1px solid">
        <tr>
          
    <td class=tablebody1 height=30 background=Skins/Default/nav02.gif><img src=Skins/Default/nav01.gif width="52" height="37" align=absmiddle>
<%if not founduser then%>
<a href="login.asp">登陆</a> <img src=Skins/Default/navspacer.gif align=absbottom> <a href="reg.asp">注册</a>
<%else%>
<img src=Skins/Default/navspacer.gif align=absbottom> <a href="login.asp">重登陆</a> <img src=Skins/Default/navspacer.gif align=absbottom> <%if userhidden=2 then%><a href="cookies.asp?action=hidden&userid=<%=userid%>">隐身</a><%else%><a href="cookies.asp?action=online&userid=<%=userid%>">上线</a><%end if%>
<img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" class=ImgOnclick onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=usersms.asp><u>短信服务</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=vippaste.asp?action=add><u>VIP即时贴</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userbook.asp?ClassID=2><u>我的留言本</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userpower.asp><u>我能做什么</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=UserVip.asp><u>升级VIP会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=Userfreeurl.asp><u>我的二级域名</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=mymodify.asp><u>基本资料修改</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=modifypsw.asp><u>用户密码修改</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=modifyfd.asp><u>交友资料修改</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=modifyadd.asp><u>联系资料修改</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=friendlist.asp><u>我的好友列表</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=favlist.asp><u>我的收藏夹</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=Userphoto.asp><u>我的相册</u></a></div>')" style="CURSOR:hand"><u>控制面板</u></a>
<%end if%>
<img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=1><u>最新100男会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=2><u>最新100女会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=3><u>最新VIP认证会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=16><u>新进会员Top100</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=4><u>最新上传照片男会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=5><u>最新上传照片女会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=6><u>最有魅力的男士</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=7><u>最有魅力的靓女</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=8><u>人气最旺的会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=9><u>登录最多会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=10><u>日记总数Top50</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=11><u>Top50大富翁</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=12><u>相册总数Top50</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=13><u>等待VIP审批会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=14><u>被锁定屏蔽会员</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=toplist.asp?orders=15><u>管理团队</u></a></div>')" style="CURSOR:hand"><u>排行榜</u></a>
<img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diaryindex.asp><u>日记首页</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userdiary.asp><u>我的日记</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userdiary.asp?action=newdiary><u>发表日记</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diarylist.asp?action=hot><u>热门日记</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diarylist.asp?action=usersex&gender=0><u>女生日记</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diarylist.asp?action=usersex&gender=1><u>男生日记</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diarylist.asp?action=best><u>佳作欣赏</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=diaryuser.asp?classid=1><u>日记写手</u></a></div>')" style="CURSOR:hand"><u>日记</u></a>
 <img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userfm.asp><u>我的速配</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=photolist.asp?action=usersex&gender=0><u>佳人影集</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=photolist.asp?action=usersex&gender=1><u>才子影集</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=search.asp><u>分类搜索</u></a></div>')" style="CURSOR:hand"><u>速配</u></a>
 <img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=party_index.asp><u>约会广场</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=partylist.asp?action=sesex&psex=0><u>向女士发出的约会邀请</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=partylist.asp?action=sesex&psex=1><u>向男士发出的约会邀请</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=partylist.asp?action=partme><u>邀请我参加的约会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=partylist.asp?action=sesex&psex=2><u>向所有发出的约会邀请</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userparty.asp?action=add><u>定制约会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userbook.asp?ClassID=1><u>约会留言</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userparty.asp?action=all&list=1><u>我发起的约会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userparty.asp?action=Ipost><u>我响应的约会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userparty.asp?action=all&list=3><u>我以前的约会</u></a></div></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=partylist.asp?action=over><u>已结束的约会</u></a></div>')" style="CURSOR:hand"><u>同城约会</u></a><img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=klatch.asp><u>聚会大厅</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=klatchlist.asp><u>全部聚会列表</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userklatch.asp?action=add><u>发起新的聚会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userklatch.asp><u>我发起的聚会</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userbook.asp?ClassID=4><u>我的聚会留言</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=userklatch.asp?action=myjoin><u>我正在参加的聚会</u></a></div>')" style="CURSOR:hand"><u>网友聚会</u></a>
 <img src=Skins/Default/navspacer.gif align=absbottom> <a href="#" onMouseOver="showmenu(event,'<div class=menuitems><a style=font-size:9pt;line-height:12pt; href=Visual.asp><u>虚拟形象</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=wish.asp><u>祈愿专区</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=klatchlist.asp?action=webklatch><u>网站活动</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=marrylist.asp><u>玫瑰征婚</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=marry.asp><u>结婚礼堂</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=Artindex.asp><u>玫瑰美文</u></a></div><div class=menuitems><a style=font-size:9pt;line-height:12pt; href=media.asp><u>在线电影</u></a></div>')" style="CURSOR:hand"><u>交友沙龙</u></a><img src=Skins/Default/navspacer.gif align=absbottom> <a href=help.asp><u>帮助</u></a><%if master then%> <img src=Skins/Default/navspacer.gif align=absbottom> <a href="<%=LoginUrl%>">管理</a><%end if%><%if founduser then%> <img src=Skins/Default/navspacer.gif align=absbottom> <a href="logout.asp">退出</a><%else%> <img src=Skins/Default/navspacer.gif align=absbottom> <a href="userpower.asp">我能做什么</a><%end if%></td>
        </tr>
		</table>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD vAlign=top width=150><IMG height=52 
                  src="images/index/love_zq.gif" width=150></TD>
      <TD width=607 
                  background=images/index/love_zq_bg.gif><table width="597" border="0" cellspacing="0" cellpadding="0">
          <tr align="center"> 
            <td width="75" height="26"><a href="UserVip.asp">升级VIP</a></td>
            <td width="86"><a href="Usertj.asp?action=active">首页推荐</a></td>
            <td width="89"><a href="artlist.asp?boardid=5">原汁原味</a></td>
            <td width="89"><a href="artlist.asp?boardid=7">爱的心曲</a></td>
            <td width="82"><a href="artlist.asp?boardid=6">心情寄语</a></td>
            <td width="88"><a href="artlist.asp?boardid=10">血型奥秘</a></td>
            <td width="88"><a href="artlist.asp?boardid=9">星座奇缘</a></td>
          </tr>
          <tr align="center"> 
            <td height="24"><a href="artlist.asp?boardid=11">恋爱经历</a></td>
            <td><a href="artlist.asp?boardid=8">生肖运程</a></td>
            <td><a href="Visual.asp">虚拟形象</a></td>
            <td><a href="Userfreeurl.asp">二级域名</a></td>
            <td><a href="wish.asp">祈愿专区</a></td>
            <td><a href="userfm.asp">我的速配</a></td>
            <td><a href="media.asp">在线电影</a></td>
          </tr>
        </table></TD>
      <TD vAlign=top align=right width=3><IMG height=52 
                  src="images/index/love_zq_r.gif" 
              width=3></TD>
    </TR>
  </TBODY>
</TABLE>
<%
if Cint(GroupSetting(0))=0 and (instr(scriptname,"reg.asp")=0 and instr(scriptname,"login.asp")=0) then
	Errmsg=Errmsg+"<br>"+"<li>您没有浏览本交友中心的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	call head_var("","")
	call MsLove_error()
	response.end
end if
end sub

sub head_var(GetTitle,GetUrl)%>
<table class=tableborder1 cellpadding=0 cellspacing=0 align=center style="border-right:#999999 1px solid;border-left:#999999 1px solid">
  <TBODY>
		<tr> 
	<%if not founduser then%>
<td height=25 class=tablebody1>
<BR>
>> 欢迎光临 <B><%=webname%></B>
<%else%>
<td width=65% class=tablebody1 align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>
<marquee direction="left" scrollamount="2" height="18" width="100%" onMouseOver="stop()" onMouseOut="start()">VIP会员广播==><%sql="select Title,ID,Addtime,Username from Ms_news where Typeid=1 order by id desc"
	set rs=conn.execute(sql)
	if not (rs.eof and rs.bof) then
	do while not rs.eof
    response.Write("&nbsp;&nbsp;"&rs(3)&"说：<A HREF=vippaste.asp?action=view&ID="&rs(1)&">"&rs(0)&"</A> －"&datevalue(rs(2))&" ☆") 
      rs.movenext
	loop
	rs.close
	else
	response.Write("<a href=vippaste.asp?action=add>无VIP即时贴</a>")
	end if%>
            </marquee></td>
        </tr>
      </table>
</td><td width=35% align=right class=tablebody1>
<%
 call getRe()
 if Cint(newincept())>0 then%>
<bgsound src="images/mail.wav" border=0>
<%if Cint(Msgautoopen)=1 then%>
<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%>
<img src=images/msg_new_bar.gif border=0> <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color=#ff0000><%=newincept()%> 新</font></a>)
<%else%>
<img src=images/msg_no_new_bar.gif border=0> <a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%end if%>
<%end if%>
</td></tr>
        <tr> 
          <td height="29" class=tablebody1 colspan="4"> <img src="images/news.gif" width="16" height="14" align="absmiddle"> 
            <a href=<%=Homeurl%>><%=webname%></a> → <a href="<%=GetUrl%>"><%=GetTitle%></a> → <%=stats%> </td>
        </tr>
		</TBODY>
      </table>
<%end sub


sub indextop()%>
<table cellspacing=1 cellpadding=3 align=center class=tableBorder1>
<tr>
<th height=28 colspan=4>
</th></tr>
  <tr> 
    <%	if not founduser then
		response.Write "<td class=tableBody1 align=center valign=middle>"&_
					"<table cellspacing=1 cellpadding=3 align=center border=0><tr>"&_
					"<td class=tableBody1 align=center valign=middle>欢迎您访问<font color=blue>"&webname&"</font>，您还没有<font color=red>［<a href=reg.asp class=cblue>注册</a>］</font>或<font color=red>［<a href=login.asp class=cblue>登录</a>］</font></td>"&_
					"</tr><form action=/manage/user_chklogin.asp  method=post><tr>"&_
					"<td class=tablebody1 height=40>"&_
					"用户姓名：<input maxLength=20 name=UserName size=12>"
					if Cint(Codeshow(0))=1 then
					response.Write "&nbsp;<input type=text name=codestr maxlength=4 size=4>&nbsp;"
					response.Write (GetCode())
					end if
					response.Write "<br>用户密码：<input maxLength=20 name=UserPassword size=12 type=password>"&_
					"<select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select>&nbsp;"&_
					"<input type=submit name=submit value=登录>"&_
					"</td></tr></form></table></td>"			
	else 
		response.Write "<td class=tableBody1 align=center valign=middle width=80>"
		response.Write("<IFrame src=visual_show2.asp?username="&membername&"&boardid=0&type=small&bgcolor=tablebody1 width=90 height=115 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=NO allowtransparency=true></iframe></td>")&_
					"<td class=tableBody1 valign=middle>"
%>
    <TABLE border=0 width="98%" align=center>
      <TR> 
        <td><a href="JavaScript:openScript('messanger.asp?action=new',500,400)">发短信</a> 
          ※ 
          <%
if Cint(newincept())>Cint(0) then
	if Cint(Msgautoopen)=1 then%> <script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script> 
          <%end if%> <bgsound src="images/mail.wav" border=0> 
          <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="#ff0000"><%=newincept()%> 新</font></a>) 
          <%	else	%> <a href="usersms.asp?action=inbox">我的收件箱</a> 
          (<font color=gray>0 新</font>) 
          <%
	end if			
%> <font face=Wingdings color=blue>v</font> 
          <font color="red"><%=myClass%></font></td>
      </TR>
      <tr> 
        <td height="1" bgcolor=#6595D6 colspan="2"></td>
      </tr>
      <TR> 
        <td><a href="userdiary.asp">我的日记</a> ※ <a href="UserArticle.asp">我的文章</a> 
          ※ <a href="Userphoto.asp">我的相册</a></td>
      </TR>
      <TR> 
        <td>魅力：<%=myuserep%> ※ 现金：<%=mymoney%> ※ 威望：<font color="red"><%=mypower%></font></td>
      </TR>
      <TR> 
        <td>您最后一次登录是在：<%=Now()%></td>
      </TR>
    </TABLE>
    <%end if%></td>
    <td width="250" align="center" class=tableBody1> 
      <TABLE border=0 width="250" align=center>
        <TR> 
          <%dim UserNum,lastUser,Uploadph,Marrynum,Partynum,UserArt,Userdiary
			sql="select UserNum,LastUser,Uploadph,Marrynum,Partynum,UserArt,Userdiary from Ms_setup where Cid=1"
	set rs=conn.execute(sql)
	UserNum=rs(0)
	lastUser=rs(1)
	Uploadph=rs(2)
	Marrynum=rs(3)
	Partynum=rs(4)
	UserArt=rs(5)
	Userdiary=rs(6)
	rs.close
	%>
          <TD width="126">共有 <B><%= UserNum%></B> 位会员</td>
          <TD width="126"><a href="toplist.asp?orders=2">新进来宾</a> <a href=dispuser.asp?Username=<%= iHTMLEncode(lastUser)%> target=_blank class="cblue"><b>[<%= iHTMLEncode(lastUser)%>]</b></a></td>
        <tr> 
          <td height="1" bgcolor=#6595D6 colspan="2"></td>
        </tr>
        <TD>会员相册：<B><%=Uploadph%></B> 册</td>
        <TD>征婚总数：<b><%= Marrynum %></b> 篇</td>
        </TR>
        <TR> 
          <TD>同城约会：<B><%=Partynum%></B> 条</td>
          <TD>文章总数：<b><%=UserArt%></B> 篇</td>
        </TR>
        <TR> 
          <TD>会员日记：<B><%=Userdiary%></B> 篇</td>
          <TD>建站天数：<B><%=datediff("d",Cdate(split(OpenTime,"|")(3)),date())%></B> 天</td>
        </TR>
      </TABLE></td>
    <td width="100" align="center" nowrap class=tableBody1> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="95" height="95">
        <param name=movie value="images/clock.swf">
        <param name=quality value=high>
        <param name="wmode" value="transparent">
        <embed src="images/clock.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="100" wmode="transparent"> 
        </embed> </object> </td>
  </tr>
</table>
<%end sub

sub getRe()
if userid<>"" and Friendjoin<>0 then     
response.write "<img src=images/Forum_nav.gif>"&Friendjoin&" 人加入好友了"
 end if
end sub

'统计留言
function newincept()
dim rsn
rsn=conn.execute("Select Count(id) From Ms_Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
    newincept=rsn(0)
	set rsn=nothing
	if isnull(newincept) then newincept=0
end function
function inceptid(stype)
	set rs=conn.execute("Select top 1 id,sender From Ms_Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
	if stype=1 then
	inceptid=rs(0)
	else
	inceptid=rs(1)
	end if
	set rs=nothing
end function

sub footer()''底部定义
Dim Endtime
			Endtime = Timer()%>
<TABLE cellSpacing=0 cellPadding=0 class=tableborder1 align=center>
<tr><td height=65 align=center background="images/bottom.gif">
<%=Versions%><br>
<%=Copyright%><%if Cint(StarEndtime)=1 then%> , 页面执行时间：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒<%end if%>
</td></tr>
</table>
</body> 
</html> 
<%
call CloseConn()
end sub
%>