inform.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. 
'***********************************************************************************

Dim InformContent
    Set Rs=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Inform where Inform_Flag=1 And Inform_Id=" & Id
    Rs.open Sql,Conn,1,1
        IF Rs.RecordCount=0 OR Id="" THEN Call Page_check(1,0)
        InformContent=Rs("Inform_Title") & "‖" & Rs("Inform_Content") & "‖" & Rs("Inform_Date")
    Rs.Close
    Set Rs=Nothing
    InformContent=split(InformContent,"‖")
    Class_Name="浏览公告"
    Page_Name="公告 -- " & InformContent(0) & " -- " & 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="page-name"><%=InformContent(0)%></DIV>
                <DIV CLASS="inform-content"><%=InformContent(1)%></DIV>
                <DIV CLASS="add-time">发布时间：<%=YearDa(InformContent(2))%></DIV><br>
                <%
				Set Rs_Manage=server.Createobject("Adodb.Recordset")
                Sql="Select * from Tx_Inform where Inform_Flag=1 order by Inform_Date desc"
                Rs_Manage.open Sql,Conn,1,1
                    Rs_Manage.PageSize = InformMax_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
							%>
                            <DIV CLASS="inform-CLASS"><IMG SRC="Skins/Blue/Tx_Ar4.gif"> <A HREF=Inform.asp?Id=<%=Rs_Manage("Inform_Id")%> title='公告主题：<%=Rs_Manage("Inform_Title")%>&#13;发布时间：<%=YearDa(Rs_Manage("Inform_Date"))%>'><%=Rs_Manage("Inform_Title")%></A></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 page_Search("Products")%></DIV>
                    <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">订单搜索</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call page_Search("ShopCode")%></DIV>
            </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>