default.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%top "论坛首页",true%>
<div class="dt">
<div class="fl al"><%if Not IsUser Then%>
请点击上方的链接登录或注册.
<%Else
Set Rs=Conn.Execute("select Experience,PostTopic,UserMoney,SaveMoney from [WxUsers] where UserName='"&CookieUserName&"'")
Experience=Rs(0)
UserMoney=Rs(2)+Rs(3)%>
用户 <%=CookieUserName%> | 头衔 <%=ShowRole(UserRoleID)%><%if Cookies("Eremite")="1" Then%> | 状态 <a href="Load.asp?menu=Online" title="点这里取消隐身">隐身</a><%end if%> | 您的IP <%=HTMLEncode(Request.ServerVariables("REMOTE_ADDR"))%><br />经验 <%=Experience%> 点 | 金币 <%=UserMoney%> 个 | 文章 <%=Rs(1)%> 篇
<%Rs.Close:end if%>
</div><div class="fr ar">
共 <%=Cache("TotalPosts")%> 篇帖子 | <%=Cache("TotalTopics")%> 篇主题 | 今日 <%=Cache("daysPosts")%> 篇帖子 | 共 <%=Cache("TotalUsers")%> 位成员 | 欢迎新成员 <a href="User.asp?Name=<%=Cache("NewUsers")%>"><%=Cache("NewUsers")%></a><br />
<a href="View.asp?menu=0">最新帖子</a> | <a href="View.asp?menu=3">精华区</a> | <a href="Rss.asp">Rss Feed 订阅</a> | <a href="Archiver/">Archiver</a>
</div>
<div id="Affiche" class="cb">
<%
if Cache("Default_AfficheHtml")="" Then
AfficheGetRows=CacheRowsList("Default_AfficheList","select ID,Title,DateCreated from [WxAffiche] Order By DateCreated Desc",600)
if IsArray(AfficheGetRows) Then
For i=0 To UBound(AfficheGetRows,2)
ID=AfficheGetRows(0,i)
Title=AfficheGetRows(1,i)
DateCreated=AfficheGetRows(2,i)
AffCode=AffCode&"<a href="&chr(34)&"Affiche.asp?id="&ID&""&chr(34)&">"&Title&"("&DateCreated&")</a>　　"
Next
Else
AffCode="暂无公告."
end if
CacheAdd "Default_AfficheHtml","<marquee style=""margin: 1px 8px"" direction=""left"" scrollamount=""2"" scrolldelay=""1"" onmouseover=""this.stop();"" onmouseout=""this.start();"">"&AffCode&"</marquee>"
end if
Response.write Cache("Default_AfficheHtml")
%>
</div>
</div>
<%
Dim j
ForumsGetRows=CacheRowsList("Default_ForumList","select ID,ForumName,BoardStyle,ForumIntro from [WxForums] where ParentID=0 order by SortNum",600)
if IsArray(ForumsGetRows) Then
for i=0 to UBound(ForumsGetRows,2)
ID=ForumsGetRows(0,i)
ForumName=ForumsGetRows(1,i)
BoardStyle=ForumsGetRows(2,i)
ForumIntro=Replace(ForumsGetRows(3,i),"<br />",chr(10))
%>
<div class="tb dt">
<div id="tt"><a title="<%=ForumIntro%>" href="Forums.asp?Fid=<%=ID%>"><%=ForumName%></a></div>
<%
j=0
if BoardStyle<>1 Then Response.write Cache("forumtb")
Rs1.Open "select ID from [WxForums] where ParentID="&ID&" order by SortNum",Conn,1
do while Not Rs1.Eof
ID1=Rs1(0)
ForumData=GetForumData(ID1)
if BoardStyle=1 then
ShowForumFloor
else
Response.write ForumData(17)
end if
Rs1.MoveNext
Loop
if j<>0 And BoardStyle=1 Then Response.write "</div>"
Rs1.Close
%></div><%
next
end if
ForumName=Cache("SiteName")
ForumID=0
WxLine()
if Cache("displayBirthdays")>0 then
%><span id="birth"></span>
<script type="text/javascript">XmlGet("Load.asp?menu=BirthdayUser","birth");</script>
<%
end if
if Cache("DisplayLink")=1 then
if IsWebSearch Then Response.write Cache("LinkHtml")
ElseIf Cache("DisplayLink")=2 Then
Response.write Cache("LinkHtml")
end if
if Cache("DisplayWhoIsOnline") Then
%>
<div class="tb dt">
<div id="tt">在线情况  - 共 <%=Onlinemany%> 人在线 | 最高纪录是 <%=Cache("BestOnline")%> 于 <%=Cache("BestOnlineTime")%>.<a href=View.asp?menu=Online>[查看详细]</a></div>
</div>
<%end if

sub ShowForumFloor()
ModeratedList="暂无"
if ForumData(3)<>"" then
filtrate=split(ForumData(3),"|")
ModeratedList=""
For k=0 To 1
if k>UBound(filtrate) Then Exit For
ModeratedList="<a href=""User.asp?Name="&filtrate(k)&""">"&filtrate(k)&"</a>"
Next
end if
if j=0 then Response.write "<div class='cb f'>"
j=j+1
Response.write "<div class=""tc fl w3b"
if j<>3 Then Response.write " r"
Response.write """>"
%>
<div class="ficon"><%if ForumData(6)>0 then%><img src="Images/forum_new.gif" alt="有新帖的论坛" /><%else%><img src="Images/forum_nonew.gif" alt="无新帖的论坛" /><%end if%></div>
<div class="fl">
<h2><a href="Forums.asp?Fid=<%=ID1%>"><%=ForumData(2)%></a><%if ForumData(6)>0 then%><span class="or">(<%=ForumData(6)%>)</span><%end if%></h2>
<h3>主题: <%=ForumData(7)%>, 帖数: <%=ForumData(8)%><br />
最后发表: <%=ForumData(10)%> by <a href="User.asp?Name=<%=ForumData(11)%>"><%=ForumData(11)%></a></h3>
<h4>版主:<%=ModeratedList%></h4>
</div>
</div>
<%
if j=3 then j=0:Response.write "</div>"
end sub
HtmlEnd%>