📄 index.asp
字号:
<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--#include file=INC/bbsfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│ │
│ 感谢你使用 自由领域ASP+WAP同学录系统(测试版） │
│ 使用本免费源码您必须遵守以下规定 │
│ 不得公开发表代码 不得用做商业用途，不得向其他使用者收费。 │
│ │
│ 使用时，请保留此段信息，谢谢配合 │
│ │
│ 2004/12/19 │
│ │
└──────────────── http://99167.jahee.com ───┘
</per>
-->
<%
dim const_txl_HomeUrl,errstr,i
errstr=""
const_txl_HomeUrl="../"
call OpenDatabase
call txl_SiteHead(const_txlname&"-班级论坛")
Response.Flush()
call online
Call main
Response.Flush()
call CloseDatabase
call SiteBottom
Response.Flush()
Sub main
If const_bbs_login_limit=1 Then '论坛登录查看限制
If session("username")="" Then
errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有登录之后才能看到</font>!</li>"
errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
Call printerror("查看班级论坛出错！",errstr,779)
Exit Sub
End If
ElseIf const_bbs_login_limit=2 Then
If session("username")="" Then
errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有班级成员和嘉宾有查看权限</font>!</li>"
errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
Call printerror("查看班级论坛出错！",errstr,779)
Exit Sub
End If
If not (session("usertype")=3 or session("usertype")=4) Then
errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有班级成员和嘉宾有查看权限</font>!</li>"
errstr=errstr&"<li>你目前的身份没有该权限！</li>"
errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
Call printerror("查看班级论坛出错！",errstr,779)
Exit Sub
End If
End If
%>
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="" style="padding:2px;vertical-align:top; " align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="8">
<tr>
<td colspan="2" class="rig1"><B> 当前位置： <a href="<%=const_homepageurl%>">首页</a>
>> <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a>
>> <a href="index.asp">班级论坛</a> </B></td>
<td height="25" bgcolor="#FFFFFF" class="more">
<marquee direction="left" loop="-1" scrollamount="2" width="200" onMouseOver="this.stop()" onmouseout="this.start()">
<%Call BBSNotic%>
</marquee></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
<tr>
<td colspan="5" class="blu">+ 班级论坛区</td>
</tr>
<%Call ShowBBSList%>
</table><br>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
<tr>
<td class="blu">+ 论坛信息</td>
</tr>
<tr>
<td class="content"><%Call displaybbsinfo%></td>
</tr>
</table><br>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
<tr>
<td class="blu">+ 在线用户 </td>
</tr>
<tr>
<td class="content">
<%
call showonlineinfo
%>
</td>
</tr>
</table></td>
</tr>
</table>
<%End Sub%>
<%Sub ShowBBSList
Dim rs
set rs=conn.execute ("select * from boards order by orderid asc")
while not rs.eof
If Isempty(Application("walkman_ann_num_"&rs("BoardID"))) Then
Application.Lock
Application("walkman_ann_num_"&rs("BoardID"))=0
Application("walkman_ann_time_"&rs("BoardID"))=now()
Application.UnLock
End If
If datediff("d",Application("walkman_ann_time_"&rs("BoardID")),now())<>0 Then
Application.Lock
Application("walkman_ann_num_"&rs("BoardID"))=0
Application("walkman_ann_time_"&rs("BoardID"))=now()
Application.UnLock
End IF
%>
<tr>
<td width="4%"><img src="images/open.gif" width="24" height="24"></td>
<td width="44%" class="content">
<a href="BoardList.asp?BoardID=<%=rs("BoardID")%>" title="<%=rs("boardname")%>"><%=rs("boardname")%></a><br>
<%=rs("boardintro")%>
</td>
<td width="10%" class="content" align="center">主题 <%=rs("topicnum")%><br>
新帖 <%=Application("walkman_ann_num_"&rs("BoardID"))%> <br>
总量 <%=rs("AnnounceNum")%></td>
<td class="content">
<%Response.write ShowBoardNewest(Rs("BoardID"))%>
</td>
<td class="content"><%=showbbsmaster(rs("BoardID"))%></td>
</tr>
<%
Rs.movenext
Response.Flush()
Wend
Rs.close
set rs=nothing
end Sub
%>
<%Sub BBSNotic
Dim rs
set rs=conn.execute ("select bbsnotic from config where id=1")
Response.Write(rs(0))
rs.close
set rs=nothing
Response.Flush()
End Sub
SUB displaybbsinfo
dim rs,str_displaybbsinfo
str_displaybbsinfo=""
set rs=conn.execute ("select count(*) from Announce")
str_displaybbsinfo=str_displaybbsinfo&"总帖量：<b>"&rs(0)&"</b>帖"
rs.close
set rs=conn.execute ("select count(*) from Announce where datediff('d',ndatetime,now())=0 ")
str_displaybbsinfo=str_displaybbsinfo&" 今日新帖：<b>"&rs(0)&"</b>"
rs.close
set rs=conn.execute ("select count(*) from Announce where goodflag=1 ")
str_displaybbsinfo=str_displaybbsinfo&" 精华帖：<b>"&rs(0)&"</b>"
rs.close
set rs=conn.execute ("select count(*) from boards ")
str_displaybbsinfo=str_displaybbsinfo&" 版面：<b>"&rs(0)&"</b>个"
rs.close
set rs=conn.execute ("select count(*) from Announce where datediff('d',ndatetime,now())=1 ")
str_displaybbsinfo=str_displaybbsinfo&" 昨日帖：<b>"&rs(0)&"</b>"
rs.close
set rs=nothing
Response.Write(str_displaybbsinfo)
End SUB
'''''''''''''''''''''''''''''''''''
'显示论坛版面最新帖
'''''''''''''''''''''''''''''''''''
Function ShowBoardNewest(BoardID)
Dim Rs,ToID
Set Rs=conn.Execute ("select top 1 ID,parentID,boardid,title,username,ndatetime from Announce where boardid="&BoardID&" order by ID Desc")
If Rs.Eof Then
ShowBoardNewest="无"
Exit Function
End If
If Rs("parentID")=0 Then
ToID=Rs("ID")
Else
ToID=Rs("parentID")
End If
ShowBoardNewest="<a href='announce.asp?boardid="&BoardID&"&announceid="&ToID&"' title=""点击查看新帖："&Rs("Title")&""">"&walkgotTopic(Rs("Title"),30)&"</a><br>("&getmasterusername(Rs("username"))&","&Rs("ndatetime")&")"
Rs.Close
Set Rs=Nothing
Response.Flush
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -