<% TypeID=Request("TypeID") If TypeID<>"" And IsNumeric(TypeID)=true Then StrSql=" And ClassID In ("&TypeID&AllChildClass(TypeID,"Product_Class")&")" End If KeyWord=ReplaceBadChar(Trim(Request("KeyWord"))) If KeyWord<>"" Then StrSql=StrSql&" And Title Like '%"&KeyWord&"%' " End If Set Rs=Server.CreateObject("Adodb.RecordSet") Sql="Select * From [Product_List] Where 1=1"&StrSql&" Order By pid asc" 'Response.Write(Sql) Rs.Open Sql,Conn,1,1 Dim Page Page=Request("Page") PageSize =6 Rs.PageSize = PageSize Total=Rs.RecordCount PGNum=Rs.PageCount If Page="" Or clng(Page)<1 Then Page=1 If Clng(Page) > PGNum Then Page=PGNum If PGNum>0 Then Rs.AbsolutePage=Page i=1 If Not (Rs.Eof Or Rs.Bof) Then %> <% Else Response.Write("") End If Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %> <%Do While Not Rs.Eof And i<=2%> <%for j=1 to 3 if rs.eof then exit for end if %> <% Rs.MoveNext next%> <% If I Mod 1=0 Then Response.Write("") End if i=i+1 Loop %> " title="<%=Rs("Title")%>" target="_blank"> <% If Rs("Pic")="#" Then Response.Write("") Else Response.Write("") End If %> " target="_blank" title="<%=Rs("Title")%>"><%=Rs("Title")%> [共<%=Rs.PageCount%>页] [第<%=Page%>页] [<%=PageSize%>条/页] [共<%=Total%>条] <%if Page=1 then%> [首 页] [上一页] <%Else%> [首 页] [上一页] <%End If%> <%If Rs.PageCount-Page<1 Then%> [下一页] [尾 页] <%Else%> [下一页] [尾 页] <%End If%> <%For Pagei=1 To Rs.PageCount%> <%if Cint(Pagei)=Cint(Page) Then%> <%=Pagei%> <%Else%> <%=Pagei%> <%End If%> <%Next%> 目前没有添加任何产品信息。