<%
If Request.QueryString("Page")="" Then
Page=1
Else
Page=CInt(Request.QueryString("Page"))
End If
If Request("Category")="请选择" and Request("CategoryBase")="请选择" and Request("Company")="请选择" Then
strSQL="select * from ProductPrice"
ElseIf Request("Category")="" and Request("CategoryBase")="" and Request("Company")="" Then
strSQL="select * from ProductPrice"
Else
strSQL="select * from ProductPrice where "
If Request("Category")<>"请选择" Then
strSQL=strSQL+"CategoryID='"+Request("Category")+"' and "
End If
If Request("CategoryBase")<>"请选择" Then
strSQL=strSQL+"CategoryBaseID='"+Request("CategoryBase")+"' and "
End If
If Request("Company")<>"请选择" Then
strSQL=strSQL+"Company='"+Request("Company")+"' and "
End If
strSQL=Left(strSQL,Len(strSQL)-5)
End If
Session("DataCmd").CommandText=strSQL
Set Session("DataCmd").ActiveConnection=Session("DataConn")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open Session("DataCmd").CommandText,Session("DataConn"),3,3
RecordSum=0
PageSum=0
If Not rs.Eof Then
RecordSum=rs.RecordCount
rs.PageSize=20
PageSum=CInt(rs.PageCount)
rs.AbsolutePage=Page
End If
iCount=0
Do While Not rs.Eof
If Not rs.Eof Then
iCount=iCount+1
If iCount Mod 2=0 Then
%>
<tr>
<td width="25%" class="TdClass_0"><a href="#" onclick="ShowBody('<%=rs("ID")%>');"><%=rs("Type")%></a></td>
<td width="25%" class="TdClass_0"><%=rs("Company")%></td>
<td width="25%" class="TdClass_0"><a href="#" onclick="ShowBody('<%=rs("ID")%>');"><%=rs("Price")%></a></td>
<td width="25%" class="TdClass_0"><a href="#" onclick="ShowLogo('<%=rs("ID")%>','<%=rs("OLEFilePath")%>')"><img src="/ImgLib/Imgage.gif" border=0></a></td>
</tr>
<%
Else
%>
<tr>
<td width="25%" class="TdClass_1"><a href="#" onclick="ShowBody('<%=rs("ID")%>');"><%=rs("Type")%></a></td>
<td width="25%" class="TdClass_1"><%=rs("Company")%></td>
<td width="25%" class="TdClass_1"><a href="#" onclick="ShowBody('<%=rs("ID")%>');"><%=rs("Price")%></a></td>
<td width="25%" class="TdClass_1"><a href="#" onclick="ShowLogo('<%=rs("ID")%>','<%=rs("OLEFilePath")%>')"><img src="/ImgLib/Imgage.gif" border=0></a></td>
</tr>
<%
End If
End If
rs.MoveNext
If iCount=20 Then
Exit Do
End If
Loop
%>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="25%" class="TdClass_Head"><%If Page>1 Then%><a href="Browse.asp?Category=<%=Request("Category")%>&CategoryBase=<%=Request("CategoryBase")%>&Company=<%=Request("Company")%>&Page=<%=Page-1%>">上一页</a><%End If%></td>
<td width="25%" class="TdClass_Head">产品<%=RecordSum%>项</td>
<td width="25%" class="TdClass_Head">共有<%=PageSum%>页</td>
<td width="25%" class="TdClass_Head"><%If Page<PageSum Then%><a href="Browse.asp?Category=<%=Request("Category")%>&CategoryBase=<%=Request("CategoryBase")%>&Company=<%=Request("Company")%>&Page=<%=Page+1%>">下一页</a><%End If%></td>
</tr>
</table>
