📄 user.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<!--#include file="INC/usergrade.asp"-->
<!--#include file="INC/CHAR.INC"-->
<%
'****************************************************************
'*  joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'*  版权所有: JoinBoard V2.3
'*
'*  程序制作: 友盟工作室
'*           
'*  主页地址: http://joinboard.com    友盟论坛
'*
'*  论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*	                 
'****************************************************************
'*  Powered by: JoinBoard V2.3
'*　Copyright 2003－2004.  - All Rights Reserved.
'*  JoinBoard is a trademark of YouMeng Studio.
'****************************************************************

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)%> - 查看会员信息</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()

response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.Write "<img src="""&BBS_Skin(3)&"JBB_bullet.gif""> <a href=""index.asp"">"&BBS_Config(0)&"</a> <img src="""&BBS_Skin(3)&"JBB_bullet.gif""> <strong>查看会员信息</strong>"
response.Write "</td></tr></table>"

uid = trim(request.QueryString("userid"))
if Not(IsNumeric(uid)) or uid = "0" then
	 ShowMsg"<b>错误:</b>参数错误!"
	Call Bottom()
	response.End()
End if
'-------------------------------------------
if user_group(4) <> true then
	loginform "您不可以查看其它会员信息或者您还没有登录，如果您还不是本站会员，请<a href=""register.asp?action=agree"">注册</a>"
	Call Bottom()
	response.End()
End if
'---------------------------------------------------------------
set rsuser = conn.execute("select * from JBB_user where userid="&uid)
if rsuser.eof then	
	ShowMsg "<b>错误:</b>该会员不存在或者已被管理员删除!~"
else	
	postCount = rsuser("threadcount")+rsuser("replycount")
	user_name = rtrim(rsuser("username"))
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr class="table-title"> 
    <td colspan="2"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><b><%=user_name%></b> 论坛信息</td>
          <td><div align="right"><a href="search.asp?action=search&username=<%=rtrim(rsuser("username"))%>&title=yes">查看<%=rtrim(rsuser("username"))%>更多的贴子</a></div></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr class="table-dark"> 
    <td>注册日期:</td>
    <td><%=formatdatetime(rsuser("regtime"),2)%></td>
  </tr>
  <tr class="table-light"> 
    <td>论坛状态:</td>
    <td width="80%"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100"> <div align="center"> 
            <%
			if IsArray(Application(JBBMasterCookies&"user_group"&rsuser("usergroup"))) then
		  		response.Write(Application(JBBMasterCookies&"user_group"&rsuser("usergroup"))(1))
			End if
			%>
            </div></td>
          <td> <%		  
			if rsuser("My_avatars") then
				My_avatars = " width="& trim(rsuser("avatars_width")) &" height="&trim(rsuser("avatars_height"))
			End if
			response.Write("<img src="""& rtrim(rsuser("avatars")) &""""& My_avatars &">")
		  %></td>
        </tr>
      </table></td>
  </tr>
  <tr class="table-dark"> 
    <td>头　　衔:</td>
    <td><%=rtrim(rsuser("usertitle"))%></td>
  </tr>
  <tr> 
    <td class="table-light">积　　分:</td>
    <td class="table-light"><%=rtrim(rsuser("Cent"))%></td>
  </tr>
  <tr class="table-dark"> 
    <td>级　　别:</td>
    <td> <%
	if IsNumeric(postCount) then
		g_max=ubound(gradeValue)
		if int(postCount) > int(gradeValue(g_max)) then
			response.write gradeName(g_max)
		else
		    if int(postCount) < int(gradeValue(0)) then
			response.write "不够最低级别"
		    else
			for g = 1 to g_max
				'response.Write(gradeValue(g))
				if int(postCount) < int(gradeValue(g)) then
					response.write gradeName(g-1)
					exit for
				End if
			next
		    end if
		end if
	end if
	%> </td>
  </tr>
  <tr> 
    <td class="table-light">发帖数量:</td>
    <td class="table-light"> 
      <%= postCount %>(平均每天 
      <%
	  if Cstr(postCount) > 0 then
	  	tt = DATEDIFF("d", rsuser("regtime"), now())
		if tt < 1 then tt = 1
			ttt = Round(postCount/tt,1)
			if ttt < 1 then ttt = 0&ttt
			response.Write(ttt)
	  else
		response.write "0"
	  End if
	  %>
      贴)</td>
  </tr>
  <tr class="table-dark"> 
    <td>发起主题数:</td>
    <td><%=rtrim(rsuser("threadcount"))%></td>
  </tr>
  <tr> 
    <td class="table-light">生　　日:</td>
    <td class="table-light"> 
      <%
	birthday = trim(rsuser("birthday"))
	if IsDate(birthday) then
		response.Write(birthday)
	else
		response.Write("保密")
	End if
	%> </td>
  </tr>
  <tr class="table-dark"> 
    <td>姓　　别:</td>
    <td class="table-dark"> 
      <%
		usersex = cstr(trim(rsuser("usersex")))
		if usersex = 1 then
			response.Write("男")
		elseif usersex = 2 then
			response.Write("女")
		else
			response.Write("保密")
		End if
		%></td>
  </tr>
  <tr> 
    <td class="table-light">来　　自:</td>
    <td class="table-light"><%=rtrim(rsuser("useradd"))%></td>
  </tr>
  <tr class="table-dark"> 
    <td>个人主页:</td>
    <td> <%
	homepage = rtrim(rsuser("homepage"))
	if  homepage <> "http://www" then
		if left(homepage,7) <> "http://" then
			homepage = homepage + "http://"
		End if	
		response.write "<a href="""& homepage &""" target=""_blank"">"&rtrim(rsuser("homepage"))&"</a>"
	End if
	%> </td>
  </tr>
  <tr class="table-light"> 
    <td>E_mail:</td>
    <td class="table-light"><%if rsuser("showemail") then response.Write("<a href=""mailto:"& rsuser("email") &""">"& rsuser("email") &"</a>") else response.Write("保密") End if%></td>
  </tr>
  <tr class="table-dark"> 
    <td>OICQ:</td>
    <td><%=rtrim(rsuser("oicq"))%></td>
  </tr>
  <tr class="table-light"> 
    <td>MSN:</td>
    <td><%=rtrim(rsuser("msn"))%></td>
  </tr>
  <tr class="table-dark"> 
    <td valign="top">个性签名:<br> </td>
    <td><%=ubbcode(rtrim(rsuser("signature")))%></td>
  </tr>
  <tr class="table-light"> 
    <td valign="top" class="table-light">最后在线时间:</td>
    <td class="table-light"><%=rsuser("lastonline")%></td>
  </tr>
  <tr class="table-title"> 
    <td height="28" colspan="2"> 
      <div align="center"><a href="pm.asp?action=addpm&touser=<%=user_name%>">给 
        <b><%=user_name%></b> 发送悄悄话</a>　　<a href="Friend.asp?action=add&Friendname=<%=user_name%>">将<b> 
        <%=user_name%></b> 加为我的好友</a></div></td>
  </tr>
</table>
<br>
<%
End if
set rsuser = Nothing
'========================================
Call Bottom()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -