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

ii=0
Table_List="PrClass"
FileName="Prclass"
Class_Name="<A HREF=Prclass.asp>产品列表</A> > "
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    IF Id="" THEN
        Sql="Select * from CS_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 CS_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="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%" height="100%" border="0"  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")%>产品编号：<%=Rs_Manage("Products_Code")%>添加时间：<%=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")%>产品编号：<%=Rs_Manage("Products_Code")%>添加时间：<%=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")%>产品编号：<%=Rs_Manage("Products_Code")%>添加时间：<%=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="2"></td>
              <td width="195" align="center" valign="top" class="TABLE-Side"><div>
                <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("CS_Products","Products_Name","Products","Products",ProductsMax_Top)%>
                </div>
              </div>                  </td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td valign="bottom" bgcolor="#082421"><img src="Skins/blak/leftad.jpg" width="321" /></td>
      </tr>
    </table>
	<%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>