<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************' 產品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）' 程序開發(fā)：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - 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="企業(yè)榮譽"
	Page_Name=Class_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">企業(yè)榮譽</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>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>