bbs_class.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

Dim Class_Content,strCla
ii=0
Table_List="Tx_Board"
FileName="bbs_class"
    Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from " & Table_List & " where Class_Id=" & Id & " and Class_Flag=1"
    Rs.open Sql,Conn,1,1
        IF Rs.RecordCount=0 THEN Call Page_check(2,0)
        Class_Content=Rs("Class_Id") & "‖" & Rs("Class_Name") & "‖" & Rs("Class_Content") & "‖" & Rs("Class_UserGroud")
        Class_Content=split(Class_Content,"‖")
    Rs.close
    Set Rs=Nothing
	Call bbs_FlagID(Class_Content(3))
    Page_Name="论坛 -- " & Class_Content(1) & " -- " & Web_Const(0)
    Class_Name="<a HREF='bbs_index.asp'>论 坛</A> > "
    Class_Id=Id
    Call Class_Namex()
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
    %>
    <TABLE WIDTH="1000" BORDER="0" CEllPADDING="0" CELLSPACING="0">
        <TR>
        <TD VALIGN="top" CLASS="TABLE-Main">
            <DIV CLASS="bbs-top1"><IMG SRC="Skins/Blue/Tx_Ar5.gif"> <%=Class_Content(2)%></DIV>
            <DIV CLASS="bbs-indextalbe3"></DIV>
            <%Call bbs_Class(Id)%>
            <DIV CLASS="bbs-classadd"><SPAN CLASS="bbs-classtable4"><A HREF="bbs_add.asp?Id=<%=Class_Content(0)%>" TITLE="发表一个新主题"><IMG SRC="Skins/Blue/bbs_add.gif" BORDER="0" ALIGN=absmiddle></A></SPAN><SPAN CLASS="bbs-classtable6"><%Call page_Search("bbs")%></SPAN></DIV> 
            <TABLE WIDTH="100%"  BORDER="0" CEllPADDING="0" CELLSPACING="1" CLASS="table-bgx1"><TR CLASS="table-bgx2"><TD WIDTH="6%">状态</TD><TD>主题</TD><TD WIDTH="12%">作者</TD><TD WIDTH="6%">回复</TD><TD WIDTH="7%">点击</TD><TD WIDTH="30%">最后更新</TD></TR>
            <%
            Dim Bbs_Count,Bbs_Img,Bbs_Counts
            Set Rs_Manage=server.createobject("adodb.recordset")
            Sql="Select * from Tx_Bbs where Bbs_Board=" & int(Class_Content(0)) & " and Bbs_Flag=1 and Bbs_Id=Bbs_ClassId Order by Bbs_Top desc,Bbs_Date desc"
            Rs_Manage.open Sql,Conn,1,1
		  Page_Nexterror=4
                Rs_Manage.PageSize = bbsclassMax_Class
                totalrec=Rs_Manage.RecordCount 
                iPageSize=Rs_Manage.PageSize
                currentPage=request("page")
                IF currentpage="" THEN
                    currentpage=1
                Else
                    IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
                        currentpage=clng(currentpage)
                    End IF
                IF totalrec mod Cint(iPageSize)=0 THEN
                    n= totalrec \ Cint(iPageSize)
                Else
                    n= totalrec \ Cint(iPageSize)+1
                End IF
                IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
                    Rs_Manage.MoveFirst
                    IF currentpage > n THEN currentpage = n
                    IF currentpage<1 THEN currentpage=1
                    Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
                    While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
                        page_count=page_count+1
                        Bbs_Count=Conn.execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 and Bbs_ClassId=" & Rs_Manage("Bbs_Id"))(0)
                        Bbs_Count=Bbs_Count-1
                        Bbs_Img="<IMG SRC='Skins/Blue/f_new.gif' alt='无回复'>"
                        IF Bbs_Count<>0 THEN Bbs_Img="<IMG SRC='Skins/Blue/f_norm.gif' alt='有回复'>"
                        IF Bbs_Count>10 THEN Bbs_Img="<IMG SRC='Skins/Blue/f_hot.gif' alt='热门帖子'>"
                        IF Rs_Manage("Bbs_Top")=1 THEN Bbs_Img="<IMG SRC='Skins/Blue/f_top.gif' alt='固顶帖子'>"
                        Set Rs=server.createobject("adodb.recordset")
                        Sql="Select * from Tx_Bbs where Bbs_ClassId=" & Rs_Manage("Bbs_Id") & " order by Bbs_Date desc"
                        Rs.open Sql,Conn,1,1
                            Bbs_Counts="<SPAN STYLE='WIDTH: 115px;'>" & YearDami(Rs("Bbs_Date")) & "</SPAN> <SPAN CLASS=type-color2>|</SPAN> <SPAN>" & Rs("Bbs_Add") & "</SPAN>"
                        Rs.Close
                        Set Rs=Nothing
						strCla = "<TR>"
                            strCla = strCla & "<TD CLASS='table-bgx3'>" & Bbs_Img & "</TD>"
                            strCla = strCla & "<TD CLASS='bbs-classtable5'><a HREF='bbs_list.asp?Id=" & Rs_Manage("Bbs_Id") & "' TITLE='主题：" & Rs_Manage("Bbs_Title") & "&#13;作者：" & Rs_Manage("Bbs_Add") & "&#13;时间：" & YearDami(Rs_Manage("Bbs_Date")) & "'>" & gotTopic(Rs_Manage("Bbs_Title"),20,1) & "</A></TD>"
                            strCla = strCla & "<TD CLASS='table-bgx3'>" & Rs_Manage("Bbs_Add") & "</TD>"
                            strCla = strCla & "<TD CLASS='table-bgx3'><SPAN CLASS='type-color2'>" & Bbs_Count & "</SPAN></TD>"
                            strCla = strCla & "<TD CLASS='table-bgx3'>" & Rs_Manage("Bbs_Count") & "</TD>"
                            strCla = strCla & "<TD CLASS='bbs-classtable5'>" & Bbs_Counts & "</TD>"
						strCla = strCla & "</TR>"
						Response.Write strCla
				    Rs_Manage.MoveNext
				    Wend 
				End IF
	        Rs_Manage.Close
	        Set Rs_Manage=Nothing
            %>
			</TABLE>
            <%Call Page_Next()%>	
        </TD>
    </TR>
</TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>