prclass.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

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

ii=0
Table_List="Tx_PrClass"
FileName="Prclass"
Class_Name="<A HREF=Prclass.asp>产品列表</A> > "
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    IF Id="" THEN
        Sql="Select * from Tx_Products where Products_Flag=1 order by Products_Date desc"
        Rs_Manage.open Sql,Conn,1,1
        Class_Name=Class_Name & "全部产品"
    Else
        Class_Id=Id
        Call Class_Namex()
        Sql="Select * from Tx_Products where Products_ClassId in (" & Class_Id & ") and Products_Flag=1 order by Products_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="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">
                <%
                Page_Nexterror=4
                Rs_Manage.PageSize = ProductsMax_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("Products_ClassId")
                        Call Class_Names()
                        buyId=Rs_Manage("Products_Id")
                        %>
                        <TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
						    <TR>
                                <TD WIDTH="150"><DIV CLASS="products-classbg"><A HREF="Products.asp?Id=<%=Rs_Manage("Products_Id")%>" title="产品名称：<%=Rs_Manage("Products_Name")%>&#13;产品编号：<%=Rs_Manage("Products_Code")%>&#13;添加时间：<%=YearDa(Rs_Manage("Products_Date"))%>"><IMG SRC="<%=Rs_Manage("Products_Pic")%>" HEIGHT="100" WIDTH="150" BORDER="0"></A></DIV></TD>
                                <TD><DIV CLASS="products-classcontent">产品名称：<A HREF="Products.asp?Id=<%=Rs_Manage("Products_Id")%>" title="产品名称：<%=Rs_Manage("Products_Name")%>&#13;产品编号：<%=Rs_Manage("Products_Code")%>&#13;添加时间：<%=YearDa(Rs_Manage("Products_Date"))%>"><B><%=Rs_Manage("Products_Name")%></B></A><br>所属分类：<%=Class_Name%><br>编　　号：<SPAN CLASS="type-color2"><%=Rs_Manage("Products_Code")%></SPAN></DIV><DIV CLASS="products-classto"><A HREF="Products.asp?Id=<%=Rs_Manage("Products_Id")%>" title="产品名称：<%=Rs_Manage("Products_Name")%>&#13;产品编号：<%=Rs_Manage("Products_Code")%>&#13;添加时间：<%=YearDa(Rs_Manage("Products_Date"))%>"><IMG SRC="Skins/Blue/Check.gif" BORDER="0"></A> <%Call Page_Productsbuy()%></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 Parent_Class(0)%></DIV>
                <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>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">热门产品</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Top("Tx_Products","Products_Name","Products","Products",ProductsMax_Top)%></DIV>
            </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>