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

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