neclass.asp

整站源码jsp 有兴趣的可以看看

<%@ 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. 
'***********************************************************************************

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="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="top" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span></td>
        <td rowspan="2" valign="top"><table width="100%"  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")%>添加时间：<%=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></td>
      </tr>
      <tr>
        <td valign="bottom" bgcolor="#082421" class="leftbg"><img src="Skins/blak/leftad.jpg" width="321" /></td>
      </tr>
    </table>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>