<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: mycout.asp
' Version:3.0
' Date: 2005-11-6
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能查看帐号信息。如果您还没有<a href=reg.asp>注册</a>，请先<a href=reg.asp>注册</a>！"
	Founderr=true
end if
stats="我的帐号"
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("我的帐号","mycount.asp")
call main()
end if
call activeonline()
call footer()

sub main()%>
<style type="text/css">
<!--
.sh12 {	MARGIN-TOP: 3px; FONT-SIZE: 12px; FILTER: DropShadow(Color=ffffff, OffX=1, OffY=1, Positive=1); FONT-FAMILY: "宋体"; HEIGHT: 8px
}
.f14 {	FONT-SIZE: 14px; FONT-FAMILY: "宋体"
}
.STYLE2 {
	color: #FF0099;
	font-weight: bold;
}
.f12 {	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: "宋体"
}
-->
</style>

<table width="750" align=center cellpadding=0 cellspacing=0>
    <tr align="left"> 
      <td width="31%" height="374" valign="top"><table cellspacing="0" cellpadding="0" width="230" border="0">
        <tbody>
          <tr>
            <td valign="top" width="225"><table cellspacing="1" cellpadding="1" width="225" bgcolor="#ce8ab7" 
            border="0">
                <tbody>
                  <tr>
                    <td valign="top" align="middle" width="221" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="221" border="0">
                        <tbody>
                          <tr>
                            <td valign="bottom" align="right" width="34" 
                      background="images/20041026_title_bg.gif" 
                        height="25"><img height="16" 
                        src="images/20041026_title_iconheart.gif" 
                      width="22" /></td>
                            <td valign="bottom" width="187" 
                      background="images/20041026_title_bg.gif"><strong><font 
                        color="#003366">基本资料</font></strong></td>
                          </tr>
                          <tr>
                            <td background="images/dotted_line.gif" colspan="2" 
                      height="2"></td>
                          </tr>
                          <tr valign="top" align="middle">
                            <td colspan="2" height="7"><img height="1" alt="" src="" 
                        width="1" name="" /></td>
                          </tr>
						  <%
	set rs=server.createobject("adodb.recordset")
	sql="select Uservip,UserLogins,userwealth,userEP,userCP,LockUser,Vipset,Useremail,Userface,UserViews,Userdiary,UserArt from [Ms_User] where userid="&userid
	rs.open sql,conn,1,1
	%>
                          <tr valign="top" align="middle">
                            <td colspan="2" align="center"><table width="92%" border="0" cellspacing="0" cellpadding="3">
                              <tr>
                                <td height="54" valign="top" bgcolor="#f6f6f6">欢迎 <font color="#d10000"><%=membername%></font> 登录！<br />
                                  您目前是<strong><%if rs("Uservip")>1 then
response.write "<font color=#d10000><b>VIP会员</b></font>"
else
response.write "<font color=#d10000><b>普通会员</b></font>"
end if%></strong><br />
登录次数 <font color=#d10000><%=rs("UserLogins")%></font>　<a href=logout.asp><font color=#ff0000>退出登录</font></a></td>
                              </tr>
                              <tr>
                                <td height="53" valign="top" bgcolor="#f6f6f6"><%
response.write "用户金币 <img src=Skins/Default/yuanbao.gif width=12 height=13> "&rs("userwealth")&" <br>"&_
               "用户经验 <img src=Skins/Default/jingyan.gif width=11 height=10> "&rs("userEP")&"<br>"&_
               "用户魅力 <img src=Skins/Default/meili.gif width=11 height=10> "&rs("userCP")&"<br>"%></td>
                              </tr>
                              <tr>
                                <td height="16" valign="top" bgcolor="#f6f6f6"><table cellspacing="0" cellpadding="0" width="100%" 
                                border="0">
                                  <tbody>
                                    <tr align="middle">
                                      <td width="80"><table cellspacing="1" cellpadding="0" width="73" 
                                bgcolor="#dfdfdf" border="0">
                                          <tbody>
                                            <tr bgcolor="#f0f0f0">
                                              <td><table cellspacing="0" cellpadding="0" border="0">
                                                  <tbody>
                                                    <tr>
                                                      <td align="middle" width="15"><img height="17" 
                                src="images/20041024_icon_sj.gif" 
                                width="15" /></td>
                                                      <td align="middle" width="56" bgcolor="#f0f0f0"><span 
                                class="sh12"><font 
                                color="#c57cac">水晶会员</font></span></td>
                                                    </tr>
                                                  </tbody>
                                              </table></td>
                                            </tr>
                                          </tbody>
                                      </table></td>
                                      <td><%if rs("Uservip")=4 then
									  response.Write("已升级")
									  else
									  response.Write("未升级")
									  end if%></td>
                                    </tr>
                                  </tbody>
                                </table>
                                  </td>
                              </tr>
                              <tr>
                                <td height="17" valign="top" bgcolor="#f6f6f6"><table cellspacing="0" cellpadding="0" width="100%" 
                                border="0">
                                  <tbody>
                                    <tr>
                                      <td width="3" height="28"><img 
                                src="images/20041026_an_l.gif" /></td>
                                      <td align="middle" 
                                background="images/20041026_an_m.gif"><a 
                                href="Uservip.asp"><font 
                                color="#ff0000">升级VIP会员 享受更多权限！</font></a></td>
                                      <td align="right" width="4"><img height="28" 
                                src="images/20041026_an_r.gif" 
                                width="4" /></td>
                                    </tr>
                                  </tbody>
                                </table></td>
                              </tr>
                              <tr>
                                <td height="33" valign="top" bgcolor="#f6f6f6"><a href="help.asp">如何升级？</a> <a href="help.asp">水晶会员强大权限</a></td>
                              </tr>
                            </table></td>
                          </tr>
                        </tbody>
                    </table></td>
                  </tr>
                </tbody>
            </table></td>
            <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
          </tr>
          <tr bgcolor="#ebebeb">
            <td valign="top" colspan="2" height="4"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
          </tr>
        </tbody>
      </table>
        <table cellspacing="0" cellpadding="0" width="230" border="0">
          <tbody>
            <tr>
              <td valign="top" width="225"><table cellspacing="1" cellpadding="1" width="225" bgcolor="#ce8ab7" 
            border="0">
                  <tbody>
                    <tr>
                      <td valign="top" align="middle" width="221" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="221" border="0">
                          <tbody>
                            <tr>
                              <td valign="bottom" align="right" width="34" 
                      background="images/20041026_title_bg.gif" 
                        height="25"><img height="16" 
                        src="images/20041026_title_iconheart.gif" 
                      width="22" /></td>
                              <td valign="bottom" width="187" 
                      background="images/20041026_title_bg.gif"><strong><font 
                        color="#003366">地区交友</font></strong></td>
                            </tr>
                              <tr>
                            <td background="images/dotted_line.gif" colspan="2" 
                      height="2"></td>
                          </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="7"><img height="1" alt="" src="" 
                        width="1" name="" /></td>
                            </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2"><table cellspacing="0" cellpadding="0" width="203" border="0">
                                  <tbody>
                                    <tr>
                                      <td style="LINE-HEIGHT: 150%" valign="top" 
                            align="middle" width="203"><a href="partylist.asp?action=showpro&amp;Province=北京">北京市</a>　<a href="partylist.asp?action=showpro&amp;Province=福建">福建省</a>　<a href="partylist.asp?action=showpro&amp;Province=上海">上海市</a>　<a href="partylist.asp?action=showpro&amp;Province=重庆">重庆市</a><br />
                                      <a href="partylist.asp?action=showpro&amp;Province=天津">天津市</a>　<a href="partylist.asp?action=showpro&amp;Province=广东">广东省</a>　<a href="partylist.asp?action=showpro&amp;Province=河北">河北省</a>　<a href="partylist.asp?action=showpro&amp;Province=河南">河南省<br />
                                      黑龙江</a>　<a href="partylist.asp?action=showpro&amp;Province=吉林">吉林省</a>　<a href="partylist.asp?action=showpro&amp;Province=辽宁">辽宁省</a>　<a href="partylist.asp?action=showpro&amp;Province=山东">山东省</a></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
            <tr bgcolor="#ebebeb">
              <td valign="top" colspan="2" height="4"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
          </tbody>
        </table>
        <table cellspacing="0" cellpadding="0" width="230" border="0">
          <tbody>
            <tr>
              <td valign="top" width="225"><table cellspacing="1" cellpadding="1" width="225" bgcolor="#ce8ab7" 
            border="0">
                  <tbody>
                    <tr>
                      <td valign="top" align="middle" width="221" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="221" border="0">
                          <tbody>
                            <tr>
                              <td valign="bottom" align="right" width="34" 
                      background="images/20041026_title_bg.gif" 
                        height="25"><img height="16" 
                        src="images/20041026_title_iconheart.gif" 
                      width="22" /></td>
                              <td valign="bottom" width="187" 
                      background="images/20041026_title_bg.gif"><strong><font 
                        color="#003366">消息树</font></strong></td>
                            </tr>
                               <tr>
                            <td background="images/dotted_line.gif" colspan="2" 
                      height="2"></td>
                          </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="7"><img height="1" alt="" src="" 
                        width="1" name="" /></td>
                            </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="240"><table height="234" cellspacing="0" cellpadding="7" 
                        width="92%" border="0">
                                <tbody>
                                  <tr>
                                    <td valign="top" align="middle" width="185" 
                            bgcolor="#f6f6f6" height="234"><table cellspacing="0" cellpadding="0" width="173" 
                              border="0">
                                        <tbody>
                                          <tr>
                                            <td align="middle" height="19"><img 
                                src="images/20041115icon2.gif" /></td>
                                            <td height="19"><font 
                                color="#003366"><strong><font 
                                color="#ff0000"><%=rs("Userviews")%></font></strong> 人浏览过您的档案</font></td>
                                          </tr>
                                          <tr>
                                            <td align="middle" height="19"><img 
                                src="images/20041115icon1.gif" /></td>
                                            <td height="19"><font 
                                color="#003366">您的日记 <strong><font 
                                color="#ff0000"><%=rs("Userdiary")%></font></strong> 篇</font></td>
                                          </tr>
                                          <tr>
                                            <td valign="top" align="middle" 
                                height="50"><img 
                                src="images/20041026_icon1.gif" 
                                border="0" /></td>
                                            <td valign="top"><a 
                                href="usersms.asp?action=inbox" 
                                target="_blank">未读短信</a><font color="#003366"> <strong><font color="#ff0000"><%=incept()%></font></strong> 条<br />
                                              </font><a 
                                href="usersms.asp?action=inbox" 
                                target="_blank">短信总数</a><font color="#003366"> <strong><font color="#ff0000"><%=newincept()%></font></strong> 条</font> <br />
                                            [<a 
                                href="usersms.asp" 
                                target="_blank">进入信箱</a>]</td>
                                          </tr>
                                          <tr>
                                            <td valign="top" align="middle" 
                                height="50"><font color="#003366"><img height="13" 
                                src="images/20041026_icon3.gif" 
                                width="16" /></font></td>
                                            <td valign="top"><font color="#003366"><a href="friendlist.asp?list=4">新秋波</a> <strong><font color="#ff0000"><%=Freindj()%></font></strong> 个 <br />
                                              您共有 <strong><font 
                                color="#ff0000"><%=Freindn()%></font></strong> 个秋波<br />
                                            </font><a 
                                href="friendlist.asp" 
                                target="_blank">详细名单</a><font color="#003366"> <a 
                                href="http://yuan.sina.com.cn/vip/upgrade1.php" 
                                target="_blank"></a></font></td>
                                          </tr>
                                          <tr>
                                            <td align="middle" width="30"><font 
                                color="#003366"><img height="13" 
                                src="images/20041026_icon4.gif" 
                                width="12" /><img height="1" alt="" src="" width="1" 
                                name="" /> </font></td>
                                            <td width="143" height="22"><font 
                                color="#003366">文章总数 <strong><font 
                                color="#ff0000"><%=rs("UserArt")%></font></strong></font></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font color="#003366"><img 
                                height="14" src="images/20041026_icon5.gif" 
                                width="15" /> </font></td>
                                            <td height="22"><font color="#003366"><a href="Uservip.asp?action=list" target="_blank">推荐帐户</a></font></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#003366"><img height="12" 
                                src="images/20041026_icon6.gif" 
                                width="18" /></font></td>
                                            <td height="22"><a href="announce.asp">社区通告</a></td>
                                          </tr>
                                        </tbody>
                                    </table></td>
                                  </tr>
                                </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
            <tr bgcolor="#ebebeb">
              <td valign="top" colspan="2" height="4"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
          </tbody>
        </table>
        <table cellspacing="0" cellpadding="0" width="230" border="0">
          <tbody>
            <tr>
              <td valign="top" width="225"><table cellspacing="1" cellpadding="1" width="225" bgcolor="#ce8ab7" 
            border="0">
                  <tbody>
                    <tr>
                      <td valign="top" align="middle" width="221" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="221" border="0">
                          <tbody>
                            <tr>
                              <td valign="bottom" align="right" width="34" 
                      background="images/20041026_title_bg.gif" 
                        height="25"><img height="16" 
                        src="images/20041026_title_iconheart.gif" 
                      width="22" /></td>
                              <td valign="bottom" width="187" 
                      background="images/20041026_title_bg.gif"><strong><font 
                        color="#003366">投票区</font></strong></td>
                            </tr>
                               <tr>
                            <td background="images/dotted_line.gif" colspan="2" 
                      height="2"></td>
                          </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="7"><img height="1" alt="" src="" 
                        width="1" name="" /></td>
                            </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="140"><table height="129" cellspacing="0" cellpadding="7" 
                        width="92%" border="0">
                                <tbody>
                                  <tr>
                                    <td valign="top" align="middle" width="185" 
                            bgcolor="#f6f6f6" height="129"><table cellspacing="0" cellpadding="0" width="181" 
                              border="0">
                                        <tbody>

                                          <tr>
                                            <td width="181" height="70" class="f12"><%=Uvote_show()%></td>
                                          </tr>
                                        </tbody>
                                    </table></td>
                                  </tr>
                                </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
            <tr bgcolor="#ebebeb">
              <td valign="top" colspan="2" height="4"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
          </tbody>
        </table>
        <table cellspacing="0" cellpadding="0" width="230" border="0">
          <tbody>
            <tr>
              <td valign="top" width="225"><table cellspacing="1" cellpadding="1" width="225" bgcolor="#ce8ab7" 
            border="0">
                  <tbody>
                    <tr>
                      <td valign="top" align="middle" width="221" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="221" border="0">
                          <tbody>
                            <tr>
                              <td valign="bottom" align="right" width="34" 
                      background="images/20041026_title_bg.gif" 
                        height="25"><img height="16" 
                        src="images/20041026_title_iconheart.gif" 
                      width="22" /></td>
                              <td valign="bottom" width="187" 
                      background="images/20041026_title_bg.gif"><strong><font 
                        color="#003366">VIP服务</font></strong></td>
                            </tr>
                            <tr>
                              <td background="images/dotted_line.gif" colspan="2" 
                      height="2"></td>
                            </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" height="7"><img height="1" alt="" src="" 
                        width="1" name="" /></td>
                            </tr>
                            <tr valign="top" align="middle">
                              <td colspan="2" align="center"><table cellspacing="0" cellpadding="0" width="172" border="0">
                                <tbody>
                                  <tr>
                                    <td width="3"><img height="28" 
                              src="images/20041026_an_l.gif" width="3" /></td>
                                    <td class="f12" align="middle" 
                            background="images/20041026_an_m.gif"><a 
                              href="uservip.asp"><font 
                              color="#ff0000">马上升级为</font></a><font 
                              color="#ff0000">&nbsp; </font><font 
                              color="#003366"><font 
                              color="#0066cc">[水晶会员]</font></font></td>
                                    <td align="right" width="4"><img height="28" 
                              src="images/20041026_an_r.gif" 
                          width="4" /></td>
                                  </tr>
                                </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
            <tr bgcolor="#ebebeb">
              <td valign="top" colspan="2" height="4"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
            </tr>
          </tbody>
        </table>
      </td>
      <td width="1%" valign="top">&nbsp;</td>
      <td width="68%" valign="top"><table cellspacing="0" cellpadding="0" width="510" border="0">
        <tbody>
          <tr>
            <td valign="top" width="298" bgcolor="#ffc286"><table height="220" cellspacing="1" cellpadding="1" width="298" 
            bgcolor="#ffc286" border="0">
                <tbody>
                  <tr>
                    <td valign="top" align="middle" width="294" bgcolor="#ffffff" 
height="219"><table height="220" cellspacing="0" cellpadding="0" width="100%" 
                  border="0">
                        <tbody>
                          <tr>
                            <td valign="bottom" align="middle" background="" 
                      height="25"><font color="#ce8ab7">-- <strong>帐户修改</strong> --</font></td>
                          </tr>
                          <tr valign="top" align="middle">
                            <td height="195"><table height="207" cellspacing="3" cellpadding="0" 
                        width="95%" border="0">
                                <tbody>
                                  <tr align="middle">
                                    <td height="87" colspan="2" align="center" bgcolor="#f6f6f6"><table width="96%" border="0" cellspacing="0" cellpadding="3">
                                      <tr>
                                        <td width="23%">用户状态</td>
                                        <td width="52%"><font color="#993366">
                                          <%if rs("LockUser")=1 then
		response.write "锁定状态"
	elseif rs("LockUser")=2 then
		response.write "屏蔽状态"
	else
	response.Write("正常状态")
	end if%></font>&nbsp;</td>
                                        <td width="25%">&nbsp;</td>
                                      </tr>
                                      <tr>
                                        <td>推荐抽成</td>
                                        <td><font color="#993366"><%=split(rs("Vipset"),"|")(0)%></font> 元</td>
                                        <td><a href="Uservip.asp?action=list">查看帐户</a></td>
                                      </tr>
                                      <tr>
                                        <td>登记邮箱</td>
                                        <td><font color="#993366"><%=rs("Useremail")%></font></td>
                                        <td><a href="modifyadd.asp">重置邮箱</a></td>
                                      </tr>
                                    </table></td>
                                  </tr>
                                  <tr>
                                    <td valign="top" align="middle" width="43%" 
                            bgcolor="#f6f6f6" height="111"><table cellspacing="0" cellpadding="0" border="0">
                                        <tbody>
                                          <tr>
                                            <td valign="top"><table height="100" cellspacing="2" cellpadding="0" 
                                width="100" bgcolor="#ffffff" border="0">
                                                <tbody>
                                                  <tr>
                                                    <td class="f14" align="middle" bgcolor="#ffffff"><%response.Write("<img src="""&ihtmlencode(rs("Userface"))&""" width=90 height=105 align=absmiddle >")%></td>
                                                  </tr>
                                                </tbody>
                                            </table></td>
                                            <td valign="top" width="4" bgcolor="#ebebeb"><img 
                                style="BACKGROUND-COLOR: #f6f6f6" height="4" 
                                alt="" src="" width="4" /></td>
                                          </tr>
                                          <tr>
                                            <td valign="top" bgcolor="#ebebeb" colspan="2" 
                                height="4"><img style="BACKGROUND-COLOR: #f6f6f6" 
                                height="4" alt="" src="" width="4" 
                                name="" /></td>
                                          </tr>
                                        </tbody>
                                    </table></td>
                                    <td valign="top" width="57%" 
bgcolor="#f6f6f6"><table height="121" cellspacing="5" cellpadding="0" 
                              width="161" border="0">
                                        <tbody>
                                          <tr>
                                            <td width="71" height="22"><a 
                                href="modifypsw.asp"><font 
                                color="#003366">修改密码</font></a>&gt;&gt;</td>
                                            <td width="75" height="22"><a 
                                href="dispuser.asp?username=<%=membername%>" 
                                target="_blank"><font 
                                color="#003366">预览档案</font></a>&gt;&gt;</td>
                                          </tr>
                                          <tr>
                                            <td height="23"><a 
                                href="mymodify.asp"><font 
                                color="#003366">基本资料</font></a>&gt;&gt;</td>
                                            <td height="23"><a 
                                href="modifyadd.asp"><font 
                                color="#003366">联系资料</font></a>&gt;&gt;</td>
                                          </tr>
                                          <tr>
                                            <td height="21"><a href="modifyfd.asp"><font color="#003366">交友资料</font></a>&gt;&gt;</td>
                                            <td height="21"><a 
                                href="usersms.asp"><font 
                                color="#003366">短信服务</font></a>&gt;&gt;</td>
                                          </tr>
                                          <tr>
                                            <td height="21"><a href="favlist.asp"><font color="#003366">收 藏 夹</font></a>&gt;&gt;</td>
                                            <td height="21"><a 
                                href="Userphoto.asp"><font 
                                color="#003366">我的相册</font></a>&gt;&gt;</td>
                                          </tr>
                                        </tbody>
                                    </table>
                                    </td>
                                  </tr>
                                </tbody>
                            </table></td>
                          </tr>
						  <%rs.close%>
                          <tr>
                            <td bgcolor="#ffffff" 
              height="7"></td>
                          </tr>
                        </tbody>
                    </table></td>
                  </tr>
                </tbody>
            </table></td>
            <td valign="top" width="3" bgcolor="#ffc286"><img 
            style="BACKGROUND-COLOR: #ffffff" height="10" alt="" src="" width="3" 
            name="" /></td>
            <td valign="top" width="205" bgcolor="#ffc286"><table height="253" cellspacing="1" cellpadding="1" width="100%" 
            bgcolor="#ffc286" border="0">
                <tbody>
                  <tr>
                    <td valign="top" align="middle" width="294" bgcolor="#ffffff" 
height="221"><table height="242" cellspacing="0" cellpadding="0" width="100%" 
                  border="0">
                        <tbody>
                          <tr>
                            <td valign="bottom" align="middle" background="" 
                      height="25"><font color="#ce8ab7">-- <strong>功能管理</strong> --</font></td>
                          </tr>
                          <tr valign="top" align="middle">
                            <td height="217"><table height="216" cellspacing="0" cellpadding="8" 
                        width="92%" border="0">
                                <tbody>
                                  <tr align="middle">
                                    <td valign="top" bgcolor="#f6f6f6" 
                              height="216"><table cellspacing="0" cellpadding="0" 
                              width="112" border="0">
                                        <tbody>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="usersms.asp"><font 
                                color="#cc6600">站内邮箱</font></a></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="friendlist.asp?list=2"><font 
                                color="#cc6600">我的最爱</font></a></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="friendlist.asp?list=5"><font 
                                color="#cc6600">我的黑名单</font></a></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="userdiary.asp"><font 
                                color="#cc6600">我的日记</font></a></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="friendlist.asp"><font 
                                color="#cc6600">我的朋友圈</font></a></td>
                                          </tr>
                                          <tr>
                                            <td align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="userfm.asp"><font 
                                color="#cc6600">我的速配</font></a></td>
                                          </tr>
                                          <tr>
                                            <td width="32" align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td width="161" height="23"><a 
                                href="userparty.asp?action=all&amp;list=1"><font 
                                color="#cc6600">我发起约会</font></a></td>
                                          </tr>
                                          <tr>
                                            <td width="32" align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="22"><a 
                                href="userklatch.asp"><font 
                                color="#cc6600">我发起聚会</font></a></td>
                                          </tr>
                                          <tr>
                                            <td width="32" align="middle"><font 
                                color="#ff3399"><img height="9" 
                                src="images/20041026_jt2.gif" 
                                width="10" /></font></td>
                                            <td height="23"><a 
                                href="Userfreeurl.asp"><font 
                                color="#cc6600">我的二级域名</font></a></td>
                                          </tr>
                                        </tbody>
                                    </table></td>
                                  </tr>
                                </tbody>
                            </table></td>
                          </tr>
                        </tbody>
                    </table></td>
                  </tr>
                </tbody>
            </table></td>
            <td valign="top" width="4" bgcolor="#ebebeb"><img 
            style="BACKGROUND-COLOR: #ffffff" height="4" alt="" src="" width="4" 
            name="" /></td>
          </tr>
        </tbody>
      </table>
        <table height="85" cellspacing="0" cellpadding="0" width="100%" border="0">
          <tbody>
            <tr>
              <td align="right"><table cellspacing="1" cellpadding="4" width="510" bgcolor="#ff649b" 
            border="0">
                  <tbody>
                    <tr>
                      <td class="sh" valign="center" align="middle" bgcolor="#ffcfe0" 
                height="70"><table cellspacing="0" cellpadding="7" width="100%" align="center" 
                  bgcolor="#ffe8f0" border="0">
                          <tbody>
                            <tr>
                              <td height="58"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td height="21"><span class="STYLE2">网站公告：</span></td>
                                </tr>
                                <tr>
                                  <td height="24"><marquee direction="left" scrollamount="3" height="24" width="100%" onmouseover="stop()" onmouseout="start()">
								  <%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
	response.Write("<img src=images/dog.gif> <A HREF=Announce.asp?action=view&ID="&rs(1)&">"&rs(0)&"</A> ")
	rs.movenext
	loop
	rs.close
	else
	response.Write("<tr><td>本站没有公告</td></tr>")
	end if%>
                  </marquee></td>
                                </tr>
                              </table>                              </td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
            </tr>
          </tbody>
      </table>
        <table cellspacing="1" cellpadding="1" width="510" bgcolor="#ce8ab7" border="0">
          <tbody>
            <tr>
              <td valign="top" align="middle" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
                  <tbody>
                    <tr>
                      <td class="f14" valign="top" align="middle" width="9%" 
                background="images/20041026_bg3.gif"><img height="32" 
                  src="images/20041026_tu.gif" width="34" /></td>
                      <td class="f14" width="91%" background="images/20041026_bg3.gif" 
                height="38"><font color="#984b98"><span 
                  class="sh">今日速配交友会员推荐</span></font><font color="#984b98"><span 
                  class="sh">：</span></font></td>
                    </tr>
                    <tr valign="top">
                      <td class="f14" colspan="2" height="1"><img height="1" alt="" src="" 
                  width="1" name="" /></td>
                    </tr>
                    <tr valign="top">
                      <td class="f14" background="images/20041026_title_bg2.gif" 
                colspan="2"><img height="1" alt="" src="" width="1" name="" /></td>
                    </tr>
                    <tr valign="top">
                      <td class="f14" colspan="2"><% dim fmsex,fmage,fmhg,fmadd,fmnull,Fmincome,Fmhouses,sqls,min_byear,max_byear
	Set Rs=conn.Execute("Select Fmusersex,Fmuserage,Fmheight,Fmaddress,Fmincome,Fmhouses From [Ms_userfm] Where username='"&trim(membername)&"'")
	If Not (Rs.eof or Rs.bof) then
	fmsex=rs("Fmusersex")
	fmage=rs("Fmuserage")
	fmhg=rs("Fmheight")
	fmadd=rs("Fmaddress")
	Fmincome=rs("Fmincome")
	Fmhouses=rs("Fmhouses")
	fmnull=1
	else
	fmnull=0
	end if
	rs.close

''速配条件开始
	if fmsex<>"" then
	sqls=sqls& "and UserSex="&fmsex&" "
	end if
if fmage<>"" then
      min_byear=year(date)-split(fmage,"|||")(0)
      max_byear=year(date)-split(fmage,"|||")(1)
   if min_byear<>"" and max_byear<>"" then
      sqls=sqls& "and (year(Userbirthday) between "&min_byear&" and "&max_byear&") "
   end if
end if
	if fmhg<>"" then
	sqls=sqls& "and (Userheight between "&Cint(split(fmhg,"|||")(0))&" and "&Cint(split(fmhg,"|||")(1))&") "
	end if
	if fmadd<>"" then
	sqls=sqls& "and UserInfo like '%"&fmadd&"%' "
	end if
	if Fmincome<>"" then
	sqls=sqls& "and Userfriends like '%"&Fmincome&"%' "
	end if
	if Fmhouses<>"" then
	sqls=sqls& "and Userfriends like '%"&Fmhouses&"%' "
	end if
	%> 
					  <table cellspacing="0" cellpadding="10" width="100%" border="0">
                          <tbody>
                            <tr valign="top">
                              <td class="f14" width="100%"><table cellspacing="0" cellpadding="0" width="100%" 
border="0">
                                  <tbody>
                                    <tr>
                                      <td valign="top" align="middle" width="38%" 
                              height="189">
							 <%set rs=server.createobject("adodb.recordset")
sql="select top 1 UserName,UserBirthday,Userface,userinfo,Usersex,Userheight from Ms_user where userid>0 "&sqls&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then%>
							  <table cellspacing="0" cellpadding="0" 
                              width="185" border="0">
                                          <tbody>
                                            <tr>
                                              <td valign="top">
											 
											  <table style="TABLE-LAYOUT: fixed" height="170" 
                                cellspacing="1" cellpadding="0" width="100%" 
                                bgcolor="#cccccc" border="0">
                                                  <tbody>
                                                    <tr>
                                                      <td class="f14" align="middle" width="170" 
                                bgcolor="#ffffff" height="170"><%response.Write("<img src="""&ihtmlencode(rs("Userface"))&""" width=90 height=105 align=absmiddle >")%></td>
                                                    </tr>
                                                  </tbody>
                                              </table></td>
                                              <td valign="top" width="4" bgcolor="#ebebeb"><img 
                                style="BACKGROUND-COLOR: #f6f6f6" height="4" 
                                alt="" src="" width="4" /></td>
                                            </tr>
                                            <tr>
                                              <td valign="top" bgcolor="#ebebeb" colspan="2"><img 
                                style="BACKGROUND-COLOR: #f6f6f6" height="4" 
                                alt="" src="" width="4" 
                              name="" /></td>
                                            </tr>
                                          </tbody>
                                      </table></td>
                                      <td valign="top" align="middle" width="31%"><table cellspacing="1" cellpadding="1" width="146" 
                              bgcolor="#ffdfef" border="0">
                                          <tbody>
                                            <tr>
                                              <td width="221" height="127" align="middle" valign="top" 
                                bgcolor="#ffffff"><table width="100%" 
                                border="0" align="left" cellpadding="0" cellspacing="0">
                                                  <tbody>
                                                    <tr>
                                                      <td valign="bottom" align="middle" 
                                bgcolor="#fff6fb" height="25"><font 
                                color="#ce8ab7">基本资料</font></td>
                                                    </tr>
                                                    <tr>
                                                      <td background="images/20041026_title_bg2.gif" 
                                height="1"><img height="1" alt="" src="" width="1" 
                                name="" /></td>
                                                    </tr>
                                                    <tr valign="top" align="middle">
                                                      <td height="99" align="left"><br />
                                                        昵称：<a 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target="_blank"><%=rs("Username")%></a><br />
性别：<%if rs("Usersex")=1 then
		  response.Write("男")
		  else
		  response.Write("女")
		  end if%><br />
年龄：<%=datediff("yyyy",rs("Userbirthday"),Now())%> 岁 <br />
身高：<%=rs("Userheight")%> CM<br />
地区：<%=split(rs("UserInfo"),"|||")(4)%>&nbsp;<%=split(rs("UserInfo"),"|||")(5)%><br />
婚姻状态：<%=split(rs("UserInfo"),"|||")(13)%></td>
                                                    </tr>
                                                  </tbody>
                                              </table></td>
                                            </tr>
                                          </tbody>
                                      </table></td>
                                      <td valign="top" align="middle" width="31%"><table cellspacing="1" cellpadding="1" width="146" 
                              bgcolor="#ffdfef" border="0">
                                          <tbody>
                                            <tr>
                                              <td width="221" height="127" align="middle" valign="top" 
                                bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" 
                                border="0">
                                                  <tbody>
                                                    <tr>
                                                      <td valign="bottom" align="middle" 
                                bgcolor="#fff6fb" height="25"><font 
                                color="#ce8ab7">我的个人独白</font></td>
                                                    </tr>
                                                    <tr>
                                                      <td background="images/20041026_title_bg2.gif" 
                                height="1"><img height="1" alt="" src="" width="1" 
                                name="" /></td>
                                                    </tr>
                                                    <tr valign="top" align="middle">
                                                      <td height="99"><br /><%=split(rs("UserInfo"),"|||")(2)%></td>
                                                    </tr>
                                                  </tbody>
                                              </table></td>
                                            </tr>
                                          </tbody>
                                      </table></td>
                                    </tr>
                                  </tbody>
                              </table><%end if
							  rs.close%></td>
                            </tr>
                            <tr valign="top">
                              <td class="f14" align="middle" height="42"><table cellspacing="0" cellpadding="0" width="100%" 
border="0">
                                  <tbody>
                                    <tr>
                                      <td background="" colspan="4" height="1"><img height="1" 
                              alt="" src="" width="1" name="" /></td>
                                    </tr>
                                    <tr>
                                      <td colspan="4" height="1"><img height="1" alt="" src="" 
                              width="1" name="" /></td>
                                    </tr>
                                    <tr align="middle">
									<%set rs=server.createobject("adodb.recordset")
sql="select top 4 UserName,UserBirthday,Userface from Ms_user where userid>0 "&sqls&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
                                      <td bgcolor="#f9f9f9" height="158">
									  <table cellspacing="0" cellpadding="0" border="0">
                                        <tbody>
                                          <tr>
                                            <td valign="top"><table height="100" cellspacing="2" cellpadding="0" 
                                width="100" bgcolor="#ffffff" border="0">
                                                <tbody>
                                                  <tr>
                                                    <td class="f14" align="middle" bgcolor="#ffffff"><%response.Write("<img src="""&ihtmlencode(rs("Userface"))&""" width=90 height=105 align=absmiddle >")%></td>
                                                  </tr>
                                                </tbody>
                                            </table></td>
                                            <td valign="top" width="4" bgcolor="#ebebeb"><img 
                                style="BACKGROUND-COLOR: #f6f6f6" height="4" 
                                alt="" src="" width="4" /></td>
                                          </tr>
                                          <tr>
                                            <td valign="top" bgcolor="#ebebeb" colspan="2" 
                                height="4"><img style="BACKGROUND-COLOR: #f6f6f6" 
                                height="4" alt="" src="" width="4" 
                                name="" /></td>
                                          </tr>
                                        </tbody>
                                      </table>
                                      <a 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target="_blank"><%=rs("Username")%></a>-<%=datediff("yyyy",rs("Userbirthday"),Now())%>岁</td><%rs.movenext
							  loop
							  end if
							  rs.close%>
                                     
                                    </tr>
                                    <tr align="right" bgcolor="#f9f9f9">
                                      <td colspan="4" height="0"></td>
                                    </tr>
                                    <tr>
                                      <td colspan="4" height="1"><img height="1" alt="" src="" 
                              width="1" name="" /></td>
                                    </tr>
                                    <tr>
                                      <td background="" colspan="-1" height="1"><img 
                              height="1" alt="" src="" width="1" 
                          name="" /></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                            <tr align="middle">
                              <td height="61"><table cellspacing="0" cellpadding="0" width="100%" 
border="0">
                                  <tbody>
                                    <tr>
                                      <td height="56"><font color="#FF0099">目前的速配条件如下<br />
 <br />
      <%if fmnull=1 then
      if fmsex=1 then
	  response.Write("男")
	  else
	  response.Write("女")
	  end if
	  response.Write("&nbsp;"&split(fmage,"|||")(0)&"-"&split(fmage,"|||")(1)&"岁")
	  response.Write("&nbsp;"&split(fmhg,"|||")(0)&"-"&split(fmhg,"|||")(1)&"CM")
	  response.Write("&nbsp;"&Fmincome&"元/月")
	  response.Write("&nbsp;"&Fmhouses&"")
	  response.Write("&nbsp;所在地："&split(fmadd,"|||")(0)&"&nbsp;"&split(fmadd,"|||")(1)&"")
	  %>
       &nbsp;<a href=userfm.asp?action=editset>&gt;&gt;修改速配条件</a> <%else
	  response.Write("<a href=userfm.asp?action=userset>设置配置条件</a>")
	  end if%></font></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
            </tr>
          </tbody>
      </table>
        <br />
        <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
          <tr>
            <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td valign="bottom" align="right" width="8%" 
                background="images/20041026_bg4.gif"><font 
                  color="#cf8bb8"><span class="f14"><strong><img height="29" 
                  src="images/20041026_dot.gif" 
                  width="15" /></strong></span></font></td>
          <td valign="bottom" width="92%" 
                background="images/20041026_bg4.gif" height="29"><font 
                  color="#cf8bb8"><span class="f14"><strong>寻找特别的&quot;Ta&quot; </strong></span></font></td>
              </tr>
			    <tr>
          <td background=images/title_line.gif bgcolor="#FFFFFF" colspan="2" 
                  height="1"></td>
        </tr>
              <tr>
                <td height="117" colspan="2" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="106" align="center" valign="top"><table cellspacing="0" cellpadding="3" width="100%" border="0">
                        <form action="?action=Usearch" method="post" name="theForm" id="theForm">
                          <tbody>
                            <tr>
                              <td height="27" align="center">会员高级搜索</td>
                            </tr>
                            <tr>
                              <td height="33" align="left">会员姓名：
                                <input name="SearchUser2" type="text" id="SearchUser" size="20" maxlength="20" />
                                  <input name="likes" type="checkbox" id="likes" value="1" />
                                完全区配　性　别：
                                <select name="Gender">
                                  <option value="" selected="selected"></option>
                                  <option value="1">男性</option>
                                  <option value="0">女性</option>
                                </select>
                                照片
                                <select name="Userpics">
                                  <option value="" selected="selected"></option>
                                  <option value="1">有照片</option>
                                  <option value="0">无所谓</option>
                                </select></td>
                            </tr>
                            <tr align="middle">
                              <td height="32" align="left">年　　龄：
                                <select name="Minage">
                                    <option selected="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="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>
                                岁 　身　高：
                                <select name="Minheight">
                                  <option selected="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="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　
                                <a 
                              href="search.asp?action=Usearch#"><img 
                              onclick="form1.submit()" 
                              src="images/20041026_search.gif" border="0" /></a></td>
                            </tr>
                          </tbody>
                        </form>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
  </tr>
            <tr>
              <td></td>
            </tr>
          </tbody>
          <tr>
            <td></td></td>
          </tr>
          <tr>
            <td></tr></td>
          </tr>
</table></td>
    </tr>
  </table>
<%
end sub

function incept()
dim rsm
        incept=0
        rsm=conn.execute("Select Count(id) From Ms_Message Where issend=1 and delR=0 And incept='"& trim(membername) &"'")
        incept=rsm(0)
	set rsm=nothing
	if isnull(incept) then incept=0
end function
function Freindj()
dim rsj
        Freindj=0
        rsj=conn.execute("Select Count(FID) From Ms_friend Where Myhack<>1 and Username='"& trim(membername) &"'")
        Freindj=rsj(0)
	set rsj=nothing
	if isnull(Freindj) then Freindj=0
end function
function Freindn()
dim rsn
        Freindn=0
        rsn=conn.execute("Select Count(FID) From Ms_friend Where Fsub=0 and Username='"& trim(membername) &"'")
        Freindn=rsn(0)
	set rsn=nothing
	if isnull(Freindn) then Freindn=0
end function

Private Function Uvote_show()
	'过程变量Uvote_show投票
	'参数一：是否可投票
	dim TempStr,Votename,Votenum,VoteID,rsv,Voters,Voteallcount,Votepes
	dim Votewidth
	set rsv=server.createobject("adodb.recordset")
	sql="select Votename,Votenum,VoteID,Voters from Ms_vote where TypeID=0 and LockVote=0 and VoteUser='"&htmlencode(membername)&"'"
	rsv.Open sql,conn,1,1
	if not (rsv.eof and rsv.bof) then
	Votename=rsv("Votename")
	Votenum=rsv("Votenum")
	VoteID=rsv("VoteID")
	Voters=rsv("Voters")
	else
	Votename=""
	end if
	rsv.close
	set rsv=nothing
	if Votename<>"" then
	Votename=split(Votename,"|")
	Votenum=split(Votenum,"|")
	TempStr="<table width=203 border=0 align=center cellpadding=0 cellspacing=0>"
    TempStr=TempStr&"<tbody>"
    TempStr=TempStr&"<tr align=center>"
    TempStr=TempStr&"<td height=24 colspan=3><font color=#003366>档案已有 <font color=red>"&Voters&"</font> 人投票</font></td>"
    TempStr=TempStr&"</tr>"
	for i=0 to ubound(Votenum)''循环读出计算统计总
	Voteallcount=Voteallcount+cint(Votenum(i))''统计全部投票
	next
	for i=0 to ubound(Votenum)''循环读出
	if Voteallcount<>0 then''总投票不为0
	Votewidth=Round(cint(Votenum(i))/cint(Voteallcount)*100,2)''百分比
	Votepes=Votewidth&"%"
	else
	Votewidth=0
	Votepes="0%"
	end if
	if Votewidth>=70 then''计算图片宽度
	Votewidth=70
	end if
    TempStr=TempStr&"<tr align=absmiddle>" 
    TempStr=TempStr&"<td width=80 height=22> "&Votename(i)&"</td>"
    TempStr=TempStr&"<td width=80><img src=Skins/Default/bar/bar"&(i+1)&".gif width="&Votewidth&" height=12 align=absmiddle></td>"
    TempStr=TempStr&"<td width=40>"&Votepes&"</td>"
    TempStr=TempStr&"</tr>"
	next
    TempStr=TempStr&"</table>"
	else
	TempStr="用户未激活投票"
	end if
	Uvote_show=TempStr
	End Function%>