neclass.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

ii=0
Table_List="Tx_NeClass"
FileName="NeClass"
Class_Name="<A HREF=NeClass.asp>新闻列表</A> > "
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    IF Id="" THEN
        Sql="Select * from Tx_News where News_Flag=1 order by News_Date desc"
        Rs_Manage.open Sql,Conn,1,1
        Class_Name=Class_Name & "全部新闻"
    Else
        Class_Id=Id
        Call Class_Namex()
        Sql="Select * from Tx_News where News_ClassId in (" & Class_Id & ") and News_Flag=1 order by News_Date desc"
        Rs_Manage.open Sql,Conn,1,1
    End IF
    Page_Name="新闻列表 -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
    %>
    <TABLE WIDTH="770"  BORDER="0" ALIGN="center" cellpadding="0" CELLSPACING="0">
        <TR>
            <TD VALIGN="top" CLASS="TABLE-Main">
                <DIV CLASS="page-head">新闻列表</DIV><DIV CLASS="TABLE-Mainall"><DIV CLASS="news-classname"><SPAN STYLE="WIDTH: 20%;text-align:center;">时间</SPAN><SPAN STYLE="WIDTH: 65%;text-align:center;">主题</SPAN><SPAN STYLE="WIDTH: 15%;text-align:center;">浏览</SPAN></DIV>
                <%
                Page_Nexterror=4
                Rs_Manage.PageSize = NewsMax_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
                            sId=Rs_Manage("News_ClassId")
                            Call Class_Names()
                            %>
                            <DIV CLASS="news-classcontent"><SPAN STYLE="width:20%;color:#999999"><%=YearDa(Rs_Manage("News_Date"))%></SPAN><SPAN STYLE="width:65%;"><A HREF="News.asp?Id=<%=Rs_Manage("News_Id")%>" title="新闻主题：<%=Rs_Manage("News_Title")%>&#13;添加时间：<%=YearDa(Rs_Manage("News_Date"))%>"><%=gotTopic(Rs_Manage("News_Title"),26,1)%></A></SPAN><SPAN CLASS="type-color2" STYLE="width:15%;text-align:center;"><%=Rs_Manage("News_Count")%></SPAN></DIV><DIV CLASS="type-height2"></DIV>
                            <%
                        Rs_Manage.MoveNext
                        Wend 
                    End IF
                Rs_Manage.Close
                Set Rs_Manage=Nothing
                Call Page_Next()
				%>	
                </DIV>
            </TD>
            <TD WIDTH="5"></TD>
            <TD WIDTH="195" ALIGN="center" VALIGN="top" CLASS="TABLE-Side">
                    <DIV CLASS="TABLE-side1"><SPAN CLASS="type-color1">新闻分类</SPAN></DIV><DIV CLASS="TABLE-side3"><%Call Parent_Class(0)%></DIV>
                    <DIV CLASS="TABLE-side1"><SPAN CLASS="type-color1">新闻搜索</SPAN></DIV><DIV CLASS="TABLE-side3"><%Call page_Search("News")%></DIV>
                    <DIV CLASS="TABLE-side1"><SPAN CLASS="type-color1">热门新闻</SPAN></DIV><DIV CLASS="TABLE-side3"><%Call Page_Top("Tx_News","News_Title","News","News",NewsMax_Top)%></DIV>
			</TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>