<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="bbsuser.asp"-->
<!--#include file="inc/publicfun.asp"-->
<%
userid=request.cookies("clubuser_id")
call FTBBS_HTML_MB
url=Application("FTBBSMB")(10,0)
upfiletype=Application("FTBBSMB")(12,0)
upfilesize=Application("FTBBSMB")(13,0)
getcodeoff=Application("FTBBSMB")(30,0)
htm_ext=Application("FTBBSMB")(32,0)
blogmid=Checkstr(request.form("blogmid"))
if blogmid<>"" then
sql="update clubuser set blog_mid='"&blogmid&"' where clubuser_id="&userid
conn.execute sql
end if
%>
<!--#include file="memberinfo.asp"-->
<html><head><meta http-equiv=content-type content="text/html; charset=gb2312">
</head>
<body>
<center>
<title><%=request.cookies("name")%>的个人中心</title>
<link rel="stylesheet" type="text/css" href="<%=cssfile%>">
<!--#include file="usernav.asp" -->
<div id="main" align="left">
<script language=javascript src="js/windowsize.js"></script>
	<div id="header">
	<div class="lc"><div class="rc"></div></div>
	<div class="tit"><a href="home.asp?userid=<%=userid%>" class="titlink" title="<%=username%>的空间"><%=username%></a></div>
	<div class="desc"><%=homepagetitle%></div>
	<div id="tabline">&nbsp;</div>
	<div id="tab"><a href="home.asp?userid=<%=userid%>" class="on">主页</a><a href="boker.asp?userid=<%=userid%>">博客</a><span>|</span><a href="myphoto.asp?userid=<%=userid%>">相册</a><span>|</span><a href="haoyou.asp?userid=<%=userid%>">好友</a><span>|</span><a href="myinfo.asp?userid=<%=userid%>">个人档案</a>
	</div>
</div>
<div class="stage">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="layout">
<tr>
<td valign="top" class="c2t3">
<div id="mod_profile" class="mod" rel="drag">
<!--#include file="usercalog.asp" -->
</div>
</td>
<td valign="top" class="c2t1">
<div id="m_blog" class="modbox">
<%
sql="select * from clubuser where clubuser_id="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
nspace=int(GetFolderSize(rs("clubuser_id"),fso)/1024)
yspace=rs("spacesize")-nspace
if isNull(rs("userimg")) then
blogheadimg="blogimages/nophoto.gif"
else
blogheadimg="userheadimg/"&rs("userimg")
end if
%>
              <table width="96%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="24%"> 
                    <div align="center"><img src="<%=blogheadimg%>" width="84" height="84"><br>
                      </div></td>
                  <td width="76%" rowspan="2"> 
                    <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="51%" height="23" class=new14>用户名： <%=request.cookies("name")%></td>
                        <td width="49%">&nbsp;</td>
                      </tr>
                      <!--<tr>
              <td height="23" class=new14>昵 &nbsp;称：<%=request.cookies("bbsuser")%></td>
              <td>&nbsp;</td>
            </tr>-->
                      <tr> 
                        <td height="23" class=new14>身 &nbsp;份：
                          <%if rs("payuser")=1 then response.write "VIP用户" else response.write "普通用户" end if%>
                        </td>
                        <td>&nbsp;</td>
                      </tr>
                      <tr> 
                        <td height="23" class=new14>等 &nbsp;级： 
                          <%=rs("tili")%>
                        </td>
                        <td>&nbsp;</td>
                      </tr>
                      <tr> 
                        <td height="23" class=new14>认 &nbsp;证：
                          <%if rs("payuser")=0 then response.write "<font color=red>已通过</font>" else response.write "未通过" end if%>
                        </td>
                        <td>&nbsp;</td>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td height="25" align="center"> 
                    <div class="opt"><A href="photomanage.asp">设置形象照</A></div></td>
                </tr>
              </table>
              <br>
              <table width="96%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="35" align="center"  class=new14> 
                    <div class="opt"><strong>您的个人博客网址:　<A href="<%=url%>home.asp?userid=<%=request.cookies("clubuser_id")%>"><%=url%>home.asp?userid=<%=request.cookies("clubuser_id")%></A></strong></div></td>
                </tr>
                <tr> 
                  <td height="35" > 
                    <div align="center">
                      <form name="form1" method="post" action="">
                        背景音乐: 
                        <input name="blogmid" type="text" value="<%=blog_mid%>" size="40">
                        <input type="submit" name="Submit" value="更换背景音乐">
                      </form>
                    </div></td>
                </tr>
                <tr> 
                  <td height="35" align="center"  class=new14> 
                    <div class="opt">个人空间中的背景音乐只支持绝对地址如：<span style="font-size: 12px">http://www.ftbbs.cn/xxx.wma</span></div></td>
                </tr>
                <tr> 
                  <td height="35" > 
                    <div align="center"><SPAN 
style="FONT-WEIGHT: normal; FONT-SIZE: 12px">为便于记忆，请将您的主页网址填入QQ或MSN的个人资料中。</SPAN></div></td>
                </tr>
              </table>
              <br>
<%
sql="select count(id) as k from sms where accepter='"&request.cookies("name")&"' and IsNew=0"
set rs1=conn.execute(sql)
smsnum=rs1("k")
rs1.close
%>
              <table width="96%"  border="0" cellpadding="1" cellspacing="1" >
                <tr> 
                  <td width="12%" height="30" class=new14>
<div align="left">收件箱</div></td>
                  <td width="88%" class=new14><div class="opt">你收件箱有 <font color=red><%=smsnum%></font> 
                      条信息 (<a href="blogsms.asp">查看信息</a>)</div></td>
                </tr>
                <!--<tr bgcolor="E5ECF8">
          <td height="30" bgcolor="E5ECF8" class=new14><div align="center">好友更新</div></td>
          <td bgcolor="E5ECF8" class=new14>点这里进行设置</td>
        </tr>-->
                <tr> 
                  <td height="30" class=new14>
<div align="left">人气指数</div></td>
                  <td class=new14> 
                    <%if isNull(rs("homepagehits")) then response.write 0 else response.write rs("homepagehits") end if%>
                  </td>
                </tr>
                <!--<tr bgcolor="E5ECF8"> 
                  <td height="60" bgcolor="E5ECF8" class=new14><div align="center">空间信息</div></td>
                  <td bgcolor="E5ECF8" class=new14>总共空间大小: 
                    <%if isNull(rs("spacesize")) then response.write 50 else response.write rs("spacesize") end if%>
                    KB<br>
                    您已经使用 <%=nspace%> KB 剩余 <font color="#FF0000"><%=yspace%></font> 
                    KB<br> </td>
                </tr>-->
              </table>
              <br>
              <table width="96%"  border="0" cellspacing="0" cellpadding="0">
                <%
  Sql="SELECT top 10 * FROM BBS_Cate,bbstitle where BBS_Cate.BBS_Cate_ID = bbstitle.BoardID_2 and bbstitle.deleted=0 and bbstitle.huati=1 order by redate desc"
  set rs=server.createobject("adodb.recordset")
  rs.open Sql,conn,1,1
do while not rs.eof
  id=rs("id")
  title=rs("title")
  boardid_1=rs("boardid_1")
  boardid_2=rs("boardid_2")
  BBS_Cate_Name=rs("BBS_Cate_Name")
  htmfilename=rs("htmfilename")
  tk1="default.asp?a="&boardid_1&"&b="&boardid_2
%>
                <tr> 
                  <td height="25"  align="left"><LI>
                      <div class="opt"><a class=new14 href="ftbbs.asp?id=<%=rs("id")%>" target="_blank">论坛热贴：<%=rs("title")%></a> 
                        [<a class=new14 href="default.asp?a=<%=rs("boardid_1")%>&b=<%=rs("boardid_2")%>">进入论坛</a>]</div>
                    </LI>
                  </td>
                </tr>
                <%
rs.movenext
loop
rs.close
set rs=nothing
%>
              </table>
              <table width="96%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="16%" height="30" ><div align="left">随机推荐博客</div></td>
                  <td width="84%" height="30" > 
                    <div align="right"> &nbsp; </div></td>
                </tr>
                <tr valign="top"> 
                  <td height="120" colspan="2"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
<%
sql="select top 2 clubuser_id,clubuser_name,userimg,homepagetitle from clubuser where bokeer=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
 do while not rs.eof
   if isNull(rs("userimg")) then
      headimg="blogimages/nophoto.gif"
   else
      headimg="userheadimg/"&rs("userimg")
   end if
%>
                        <td> 
                          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td width="32%" rowspan="2"><div align="center"><img src="<%=headimg%>" width="84" height="84"></div><br></td>
                              <td width="68%" height="23"><div class="opt"><a href="home.asp?userid=<%=rs("clubuser_id")%>" target="_blank"><%=rs("clubuser_name")%></a></div></td>
                            </tr>
                            <tr> 
                              <td valign="top"><%if isNull(rs("homepagetitle")) then response.write "这家伙很懒什么没有填写" else response.write rs("homepagetitle") end if%></td>
                            </tr>
                          </table>
						</td>
<%
 rs.movenext
 loop
end if
rs.close
set rs=nothing
%>
                      </tr>
                    </table></td>
                </tr>
              </table>
            </div>

</td>
</tr></table>
</div>
</div>
<br><center>
    <!--#include file="tail.asp" -->
  </center>
</center>
</body>
</html>
<%closedb%>