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

    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Honor where Honor_Flag=1 order by Honor_Date desc"
    Rs_Manage.open Sql,Conn,1,1
    Class_Name="企业荣誉"
	Page_Name=Class_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">
                  <%
            Page_Nexterror=4
            Rs_Manage.PageSize = HonorMax_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="honor-name"><span style="width:80%;"><img src="Skins/Blue/Tx_Ar4.gif" /> <a href="<%=Rs_Manage("Honor_Pic")%>" title="点击查看大图" target="_blank"><b><%=Rs_Manage("Honor_Title")%></b></a></span><span style="width:20%;"><%=YearDa(Rs_Manage("Honor_Date"))%></span></div>
                  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="150"><div class="honor-bg"><a href="<%=Rs_Manage("Honor_Pic")%>" title="点击查看大图" target="_blank"><img src="<%=Rs_Manage("Honor_Pic")%>" height="100" width="150" border="0" /></a></div></td>
                      <td valign="top"><div class="honor-content"><%=Rs_Manage("Honor_Content")%></div></td>
                    </tr>
                  </table>
                  <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>
      <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()
    %>