userinfo.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<!--#include file="up.asp"--><!--#include file="inc/grade.asp"-->
<%
dim userid,seeinfo,userinfo,goodcount,ad_info,topicuserid,newbbs,topic
id=0
userid=checknum(request.querystring("userid"))
seeinfo=true
if isnull(lguserid) or lguserid="" then seeinfo=false

set rs=conn.execute("select top 1 * from [user] where userid="&userid&" and not del")
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
userinfo=rs("userinfo")
userinfo=split(userinfo,"|")
%><!--#include file="inc/ubbcode.asp"-->
<%=ttop%>
<table align="center" border="1"  cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
 <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2">&nbsp;<img src="pic/gl.gif" border="0"> 用户资料</td>
  </tr>
  <tr>
 <td width="50%" valign="top">
 <table border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
  <td width="30%" bgcolor="<%=c2%>" height="28">　昵称：</td>
  <td width="70%">　<%=kbbs(rs("name"))%></td>
</tr>

<tr>
  <td bgcolor="<%=c2%>" height="28">　性别：</td>
  <td>　<%if userinfo(4)=1 then 
  response.write"帅哥"
  elseif userinfo(4)=2 then 
  response.write"靓女"
  end if
%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　生日：</td>
  <td>　<%=userinfo(2)%></td>
</tr>

<tr>
  <td bgcolor="<%=c2%>" height="28">　E-mail：</td>
  <td>　<a href=mailto:<%=kbbs(userinfo(0))%>><%=kbbs(userinfo(0))%></a></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　主页：</td>
  <td>　<%if userinfo(1)<>"" then%><a target=_blank href='<%=kbbs(userinfo(1))%>'><%=kbbs(userinfo(1))%></a><%end if%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　QQ 号码：</td>
  <td>　<%=userinfo(3)%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　头衔：</td>
  <td>　<%=userinfo(10)%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　<b><a title="查看论坛积分方式" href="help.asp?action=mark">论坛积分：</a></b></td>
  <td>　<%=rs("mark")%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　<b><a title="查看论坛等级设置" href="help.asp?action=grade">论坛等级：</a></b></td>
  <td>　<%gradename(rs("grade"))%> <img src=images/grade/<%=rs("grade")%>.gif border=0></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　帖子数：</td>
  <td>　<%=rs("alltopicnum")%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　精华帖数：</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; [ 查看 ]" 
end if
%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　注册时间：</td>
  <td>　<%=userinfo(9)%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　最后登陆：</td>
  <td>　<%=rs("lasttime")%></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　论坛职务：</td>
  <td>　<%if rs("grade")>=10 then
  gradename(rs("grade"))
  else
  response.write"论坛用户"
end if  %></td>
</tr>
<tr>
  <td bgcolor="<%=c2%>" height="28">　论坛考勤：</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>
</table>
 </td>
 <td width="50%" valign="top">
 <table border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
  <td width="100%">
  <p style="margin: 10">　<img src="<%=kbbs(userinfo(5))%>" width=<%=kbbs(userinfo(6))%> height=<%=kbbs(userinfo(7))%> border=0></td>
</tr>
<tr>
  <td width="100%" bgcolor="<%=c2%>" height="28">　最近发帖：<%set newbbs=conn.execute("select top 3 id,topicinfo,bd,totable from topic where userid="&userid&" order by edittime desc")%></td>
</tr>
<%do while not newbbs.eof
topic=newbbs("topicinfo")
topic=split(topic,"|")
response.write"<tr><td width=100% height=28>　<img border=0 src=face/"&topic(0)&".gif align=absmiddle> <a href=showbbs.asp?bd="&newbbs("bd")&"&id="&newbbs("id")&"&totable="&newbbs("totable")&">"&kbbs(topic(1))&"</a></td></tr>"
%>
<%
newbbs.movenext
loop
set newbbs=nothing%>
<tr>
  <td width="100%" bgcolor="<%=c2%>" height="28">　<a href=sms.asp?action=write&toname=<%=kbbs(rs("name"))%>><img src="pic/newmail.gif" border="0" align="absmiddle"> 给 <b><%=kbbs(rs("name"))%></b> 留言</a></td>
</tr><tr>
  <td width="100%" height=10></td>
</tr>
<tr>
  <td width="100%" bgcolor="<%=c2%>" height="28">　个性签名：</td>
</tr>
<tr>
  <td width="100%">
  <p style="margin: 10">　<%=ubb(userinfo(8))%></td>
</tr>

 </table>
 </td>
  </tr>
</table>
<%=tbottom%>

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