userinfo.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"-->
<!--#include file="inc/grade.asp"-->
<%
dim userid,seeinfo,username,userinfo,goodcount,ad_info,topicuserid,newbbs,topic,wife,faction
id=0

userid=checknum(request.querystring("userid"))
username=trim(request.querystring("username"))

seeinfo=true
if isnull(lguserid) or lguserid="" then seeinfo=false

if userid<>"" Then
	set rs=conn.execute("select top 1 * from [user] where userid="&userid&" and not del")
else
	set rs=conn.execute("select * from [user] where name='"&username&"' and not del")
end if
if rs.eof then seeinfo=false
if seeinfo=false then
	tl=""
	mes="<b>对不起，你不能查看该用户的资料。可能存在以下问题：</b><br>·你还没有<a href=login.asp>登陆</a>。<br>·你要查看的用户不存在。<br>·你要查看的用户已经被删除。"
	call sendinfo(tl,mes)
end if
if seeinfo=true then
	userid=rs("userid")
	userinfo=rs("userinfo")
	userinfo=split(userinfo,"|")
%>
<!--#include file="inc/ubbcode.asp"-->

<%=ttop%>
<div>
<table align="center" class="BBS_BoardList" cellpadding="0" cellspacing="0">
	<tr>
		<td colspan="3"><h1><img src="pic/gl.gif" border="0" align="absmiddle" /> 查看 <%=kbbs(rs("name"))%> 用户资料</h1></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td rowspan="12" align="center" valign="top" width="30%">
			<table width="80%"  border="0" cellspacing="0" cellpadding="3">
				<tr>
					<td>
						<%if userinfo(11)="1" and userinfo(3)<>"" then%>
							<img src="http://qqshow-user.tencent.com/<%=ccur(kbbs(userinfo(3)))%>/10/00/" border="1" />
						<%else%>
							<img src="<%=kbbs(userinfo(5))%>" width="<%=kbbs(userinfo(6))%>" height="<%=kbbs(userinfo(7))%>" border="0" />
						<%end if%>
					</td>
				</tr>
				<tr>
					<td><a href="sms.asp?action=write&amp;toname=<%=kbbs(rs("name"))%>"><img src="pic/newmail.gif" border="0" align="absmiddle" /> 给 <b><%=kbbs(rs("name"))%></b> 留言</a></td>
				</tr>
				<tr align="left">
					<td>最近发帖：
						<ul>
						<%set newbbs=conn.execute("select top 5 id,topicinfo,bd,totable from topic where userid="&userid&" order by edittime desc")
						do while not newbbs.eof
							topic=split(newbbs("topicinfo"),"|")
							response.write"<li><img border=""0"" src=""images/face/"&topic(0)&".gif"" align=""absmiddle""> <a href=""show.asp?bd="&newbbs("bd")&"&id="&newbbs("id")&"&totable="&newbbs("totable")&""">"&kbbs(topic(1))&"</a></li>"
							newbbs.movenext
						loop
						set newbbs=nothing%>
						</ul>
					</td>
				</tr>
				<tr align="left">
					<td>个性签名：<br /><%=ubb(userinfo(8))%></td>
				</tr>
			</table>
		</td>
		<td>性别：</td>
		<td>
			<%if userinfo(4)=1 then
				response.write"帅哥"
			elseif userinfo(4)=2 then
				response.write"靓女"
			else
				response.write"保密"
			end if%>
		</td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>生日：</td>
		<td><%=userinfo(2)%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>E-mail：</td>
		<td><a href="mailto:<%=kbbs(userinfo(0))%>"><%=kbbs(userinfo(0))%></a></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>主页：</td>
		<td>
			<%if userinfo(1)<>"" then%>
				<a target="_blank" href="<%=kbbs(userinfo(1))%>"><%=kbbs(userinfo(1))%></a>
			<%end if%>
		</td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>QQ 号码：</td>
		<td><%=userinfo(3)%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>头衔：</td>
		<td><%=userinfo(10)%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td><b><a title="查看论坛积分方式" href="help.asp?action=mark">论坛积分：</a></b></td>
		<td><%=rs("mark")%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td><b><a title="查看论坛等级设置" href="help.asp?action=grade">论坛等级：</a></b></td>
		<td><%gradename(rs("grade"))%> <img src="images/grade/<%=rs("grade")%>.gif" border="0" align="absmiddle"/></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>帖子数：</td>
		<td><%=rs("alltopicnum")%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>精华帖数：</td>
		<td>
			<%goodcount=conn.execute("select count(id) from Topic where type=1 and userid="&userid&"")(0)
			if goodcount=0 then 
				response.write goodcount
			else
				response.write goodcount&"&nbsp;<a href=""elselist.asp?action=good&userid="&userid&""">[ 查看 ]</a>"
			end if%>
		</td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>我的恋人：</td>
		<td><%=rs("wife")%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>我的帮派：</td>
		<td><%=rs("faction")%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>&nbsp;</td>
		<td>注册时间：</td>
		<td><%=userinfo(9)%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>&nbsp;</td>
		<td>最后登陆：</td>
		<td><%=rs("lasttime")%></td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>&nbsp;</td>
		<td>论坛职务：</td>
		<td><%if rs("grade")>=10 then gradename(rs("grade")) else response.write"论坛用户"%>
		</td>
	</tr>
	<tr valign="middle" class="BBS_BoardItem">
		<td>&nbsp;</td>
		<td>论坛考勤：</td>
		<td>
			<%if DateDiff("d",rs("lasttime"),now+timeset/24) =< 2 then
				ad_info="比较勤快，加油哦！"
			elseif DateDiff("d",rs("lasttime"),now+timeset/24) =< 7 then
				ad_info="７天之内有登录"
			elseif DateDiff("d",rs("lasttime"),now+timeset/24)=< 15 then
				ad_info="１５天内有登录"
			elseif DateDiff("d",rs("lasttime"),now+timeset/24) =< 30 then
				ad_info="３０天未登录"
			else
				ad_info="连续超过一个月未登陆！<b>"
			end if
			response.write "<b><font color=red>"&ad_info&"</font></b>"%>
		</td>
	</tr>
	<tr>
		<td colspan="3" align="center"><h2>
			<form action="" method="get" name="username" id="username">用户名：&nbsp;<input style="font-size:9pt" maxlength="16" size="16" name="username" />&nbsp;&nbsp;<input style="font-size:9pt" value="直接查看" type="submit" /></form>
		</h2></td>
	</tr>
</table>
</div>
<%=tbottom%>

<%
end if
set rs=nothing
call down%>