user.asp

教师评估系统

<!-- #include file="Cls.asp" --><%
if Not Cache("ProfileMode") then ChkUser
UserName=HTMLEncode(Request.QueryString("Name"))
if UserName="" Then UserName=CookieUserName
sql="select * from [WxUsers] where UserName='"&UserName&"'"
Set Rs=Conn.Execute(sql)
if Rs.Eof then Error "系统错误","<li>该用户不存在</li>"
top "查看用户 "&UserName&" 的资料",true
ShowRank(Rs("Experience"))
select case Rs("UserSex")
case "male"
UserSex="男"
case "female"
UserSex="女"
end select
On Error Resume Next
UserIM=split(Rs("UserIM"),"\")
qq=UserIM(0)
MSN=UserIM(1)
UC=UserIM(2)
Skype=UserIM(3)
UserInfo=split(Rs("UserInfo"),"\")
Realname=UserInfo(0)
Address=UserInfo(1)
Userwork=UserInfo(2)
UserInterest=UserInfo(3)
UserIntro=UserInfo(4)
UserSign=Rs("UserSign")
if Rs("UserStatus")=0 then
UserStatus="未激活"
else
UserStatus="已激活"
end if

AllTopic=Rs("PostTopic")+Rs("PostRevert")
AllThreads=Rs("PostTopic")
UserActiveDay=DateDiff("d",Rs("UserRegTime"),Date())
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → 查看用户 <%=Rs("UserName")%> 的资料</div>
<div class="dt">
<div class="tb fl w2">
<div id="tt"><%=Rs("UserName")%></div>
<div class="tc lh2">状态:&nbsp;<%=UserStatus%><br />
角色:&nbsp;<%=ShowRole(Rs("UserRoleID"))%><br />
级别:&nbsp;<%=RankName%><br />
发帖:&nbsp;<%=Rs("PostTopic")%>+<%=Rs("PostRevert")%>(<%=Rs("GoodTopic")%>)<br />
被删:&nbsp;<%=Rs("DelTopic")%><br />
金币:&nbsp;<%=Rs("UserMoney")%><br />
经验:&nbsp;<%=Rs("Experience")%><br />
注册日期:&nbsp;<%=Rs("UserRegTime")%><br />
最后登录:&nbsp;<%=Rs("UserLandTime")%>
</div>
<div id="tt">选项</div>
<div class="tc lh2"><img alt="" src="Images/finds.gif" />&nbsp;<a href="View.asp?menu=5&UserName=<%=Rs("UserName")%>">查看 <%=Rs("UserName")%> 的个人帖子</a><br /><img alt="" src="Images/Friend.gif" />&nbsp;<a href="MyPanel.asp?menu=add&UserName=<%=Rs("UserName")%>">将 <%=Rs("UserName")%> 加为好友</a><br /><img alt="" src="Images/message.gif" />&nbsp;<a onclick="return ShowModal('发送讯息','MyPanel.asp?menu=Post&amp;incept=<%=Rs("UserName")%>');">给 <%=Rs("UserName")%> 发送讯息</a><br />
<img alt="" src="Images/email.gif" />&nbsp;<a href="mailto:<%=Rs("Usermail")%>">给 <%=Rs("UserName")%> 发Email</a><br />
<%if qq<>Empty Then%><img alt="QQ" src="Images/qq.gif" />&nbsp;<%=qq%><br /><%end if%>
<%if MSN<>Empty Then%><img alt="MSN" src="Images/msn.gif" />&nbsp;<%=MSN%><br /><%end if%>
<%if UC<>Empty Then%><img alt="UC" src="Images/UC.gif" />&nbsp;<%=UC%><br /><%end if%>
<%if Skype<>Empty Then%><img alt="Skype" src="Images/skype.gif" />&nbsp;<%=Skype%><br /><%end if%>
</div>
</div>
<div class="fl" style="width:75%;">
<div>
<div class="fl tb w4a">
<div id="tt">个人资料</div>
<div class="tc b">姓名:&nbsp;<%=Realname%></div>
<div class="tc b">性别:&nbsp;<%=Rs("UserSex")%></div>
<div class="tc b">生肖:&nbsp;<%=Zodiac(Rs("Birthday"))%></div>
<div class="tc b">星座:&nbsp;<%=Constellation(Rs("Birthday"))%></div>
<div class="tc b">职业:&nbsp;<%=Userwork%></div>
<div class="tc b">兴趣:&nbsp;<%=UserInterest%></div>
<div class="tc">地址:&nbsp;<%=Address%></div>
</div>
<div class="fl tb w4a" style="margin-left:2px;">
<div id="tt">论坛评定</div>
<div class="tc b">主题占用户发帖总数:&nbsp;<%if AllTopic=0 Then%>没有发帖<%else%><%=FormatNumber(AllThreads/AllTopic*100,3,true)%>%<%end if%></div>
<div class="tc b">回帖占用户发帖总数:&nbsp;<%if AllTopic=0 Then%>没有发帖<%else%><%=FormatNumber(Rs("PostRevert")/AllTopic*100,3,true)%>%<%end if%></div>
<div class="tc b">用户日均发帖数:&nbsp;<%if UserActiveDay=0 Then%>今天是第一天<%else%><%=FormatNumber(AllTopic/UserActiveDay,3,true)%><%end if%></div>
<div class="tc b">日均发表主题:&nbsp;<%if UserActiveDay=0 Then%>今天是第一天<%else%><%=FormatNumber(AllThreads/UserActiveDay,3,true)%><%end if%></div>
<div class="tc b">精华占主题总数:&nbsp;<%if Rs("GoodTopic")=0 Then%>没有精华帖<%else%><%=FormatNumber(Rs("GoodTopic")/Rs("PostTopic")*100,3,true)%>%<%end if%></div>
<div class="tc b">用户经验值排名:&nbsp;<%=Conn.Execute("select Count(ID) from [WxUsers] where Experience>"&Rs("Experience")&"")(0)+1%></div>
<div class="tc b">发帖数占论坛总数:&nbsp;<%if int(Cache("TotalPosts"))=0 Then%>论坛没有帖子<%else%><%=FormatNumber(AllTopic/int(Cache("TotalPosts"))*100,3,true)%>%<%end if%></div>
</div>
</div>
<%if UserIntro<>Empty Then%>
<div class="tb">
<div id="tt">简介</div>
<div class="tc"><%=HTMLEncode(UserIntro)%></div>
</div>
<%end if%>
<%if UserSign<>Empty Then%>
<div class="tb">
<div id="tt">签名</div>
<div class="tc"><%=YBBEncode(UserSign)%></div>
</div>
<%end if%>
</div>
</div>
</div>
<%
function Zodiac(birthday)
if IsDate(birthday) then
birthyear=year(birthday)
ZodiacList=Array("猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊")		
Zodiac=ZodiacList(birthyear mod 12)
end if
end function

function constellation(birthday)
if IsDate(birthday) then
ConstellationMon=month(birthday)
ConstellationDay=day(birthday)
if Len(ConstellationMon)<2 then ConstellationMon="0"&ConstellationMon
if Len(ConstellationDay)<2 then ConstellationDay="0"&ConstellationDay
MyConstellation=ConstellationMon&ConstellationDay
if MyConstellation < 0120 then
constellation="魔羯座"
elseif MyConstellation < 0219 then
constellation="水瓶座"
elseif MyConstellation < 0321 then
constellation="双鱼座"
elseif MyConstellation < 0420 then
constellation="白羊座"
elseif MyConstellation < 0521 then
constellation="金牛座"
elseif MyConstellation < 0622 then
constellation="双子座"
elseif MyConstellation < 0723 then
constellation="巨蟹座"
elseif MyConstellation < 0823 then
constellation="狮子座"
elseif MyConstellation < 0923 then
constellation="处女座"
elseif MyConstellation < 1024 then
constellation="天秤座"
elseif MyConstellation < 1122 then
constellation="天蝎座"
elseif MyConstellation < 1222 then
constellation="射手座"
elseif MyConstellation > 1221 then
constellation="魔羯座"
end if
end if
end function
HtmlEnd%>