user_main.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_user.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/conn.asp" -->
<%
tit=tit_fir&"（"&login_username&"）"
tit_fir=""

call web_head(0,0,0,0,0)
if login_mode="" then
  set rs=nothing
  call close_conn()
  response.redirect "login.asp"
  response.end
end if
'------------------------------------left----------------------------------
call left_user()
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------

call user_my()

'---------------------------------center end-------------------------------
call web_end(0)

sub user_my()
  dim tim_login,kd,uf
  sql="select l_tim_login from user_login where l_username='"&login_username&"'"
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    tim_login=0
  else
    tim_login=rs(0)
  end if
  rs.close
  
  sql="select * from user_data where username='"&login_username&"'"
  set rs=conn.execute(sql)
  response.write ukong&vbcrlf&table1
%>
<tr<%response.write table2%>>
<td colspan=3>&nbsp;<%response.write img_small(us)%>&nbsp;&nbsp;<font class=end><b>用户个人信息</b></font></td>
</tr>
<tr<%response.write table3%> height=30>
<td width='20%' align=center>用户名称：</td>
<td width='40%'>&nbsp;<font class=blue><b><%response.write login_username%></b></font></td>
<td width='40%' align=center>您已登陆 <font class=red><% response.write DateDiff("n",tim_login,now()) %></font> 分钟</td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户类型：</td>
<td>&nbsp;<font class=red_3><%response.write format_power(rs("power"),1)%></font></td>
<td rowspan=12 align=center>
<%
if rs("faceurl")="" or isnull(rs("faceurl")) then%> 
<img src='images/face/<%response.write rs("face")%>.gif' border=0>
<% else %>
<img border=0 src='<% response.write rs("faceurl") %>' width=<% response.write rs("facewidth") %> height=<% response.write rs("faceheight") %>>
<% end if %>
</td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户头衔：</td>
<td>&nbsp;<%
  tit=rs("nname")
  if var_null(tit)="" then
    response.write "<font color=#c0c0c0>没有</font>"
  else
    response.write ""&code_html(tit,1,0)
  end if
%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>来自哪里：</td>
<td>&nbsp;<%response.write code_html(rs("whe"),1,0)%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>论坛发贴：</td>
<td>&nbsp;<font class=red><%response.write rs("bbs_counter")%></font></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户威望：</td>
<td>&nbsp;<font class=red_3><%response.write rs("userpower")%></font></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>我的人气：</td>
<td>&nbsp;<font class=red_3><%response.write rs("renqi")%></font></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户魅力：</td>
<td>&nbsp;<font class=red_3><%response.write rs("usercp")%></font>&nbsp;点</td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>社区积分：</td>
<td>&nbsp;<font class=red_3><%response.write rs("integral")%></font></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>虚拟货币：</td>
<td>&nbsp;<font class=red_3><%response.write rs("emoney")%></font>&nbsp;<%response.write web_var(web_config,8)%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户性别：</td>
<td>&nbsp;<%
  tit=rs("sex")
  if tit=false then
    response.write "<img src='images/small/forum_girl.gif' align=absMiddle border=0>&nbsp;&nbsp;青春女孩"
  else
    response.write "<img src='images/small/forum_boy.gif' align=absMiddle border=0>&nbsp;&nbsp;阳光男孩"
  end if
%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>出生年月：</td>
<td>&nbsp;<%response.write rs("birthday")%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>用户QQ：</td>
<td>&nbsp;<%
  tit=rs("qq")
  if not(isnumeric(tit)) or len(tit)<2 then
    response.write "<font class=gray>没有</font>"
  else
    response.write "<img src='images/small/qq.gif' align=absMiddle border=0>&nbsp;<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&tit&"' target=_blank>"&tit&"</a>"
  end if
%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>E - mail：</td>
<td>&nbsp;<%
  tit=code_html(rs("email"),1,0)
  response.write "<img src='images/small/email.gif' align=absMiddle border=0>&nbsp;<a href='mailto:"&tit&"' title=''>"&tit&"</a>"
%></td>
<td align=center><a href='forum_action.asp?action=my'>查看我所参与过的主题</a></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>个人主页：</td>
<td colspan=2>&nbsp;<%
  tit=code_html(rs("url"),1,0)
  if var_null(tit)="" then
    response.write "<font color=#c0c0c0>没有</font>"
  else
    response.write "<img src='images/small/url.gif' align=absMiddle border=0>&nbsp;<a href='"&tit&"' target=_blank>"&tit&"</a>"
  end if
%></td>
</tr>
<tr<%response.write table3%> height=25>
<td align=center>个人介绍：</td>
<td colspan=2 align=center><table border=0 width='100%' class=tf><tr><td class=bw><%response.write code_jk2(rs("remark"))%></td></tr></table></td>
</tr>
<% rs.close:set rs=nothing %>
<tr<%response.write table2%>>
<td colspan=3>&nbsp;<%response.write img_small(us)%>&nbsp;&nbsp;<font class=end><b>论坛最新发贴</b></font></td>
</tr>
<tr<%response.write table3%>>
<td colspan=3 align=center>
  <table border=0 width='96%'>
<%
  sql="select top 10 id,forum_id,topic,tim from bbs_topic where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    response.write "  <tr><td>"&img_small("jt0")&"<a href='forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"' target=_blank>"&code_html(rs("topic"),1,30)&"</a>"&format_end(1,time_type(rs("tim"),8))&"</td></tr>"
    rs.movenext
  loop
  rs.close:set rs=nothing
%>
  </table>
</td>
</tr>
</table>
<br>
<%
end sub
%>