asp一行只能显示一个产品,我想一行显示八个产品
<body bgcolor= "#9f273c ">
<table width= "100% " height= "534 " border= "0 " cellpadding= "0 " cellspacing= "0 " background= "image/leatherbg.jpg " bgcolor= "#FCF7F4 ">
<tr>
<td width= "52% " height= "534 " align= "center " valign= "top "> <table width= "86% " height= "509 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td height= "412 " align= "center " valign= "top ">
<TABLE WIDTH= "635 " height= "393 " BORDER= "0 " ALIGN= "CENTER " CELLPADDING= "0 " CELLSPACING= "0 " >
<TR>
<TD HEIGHT= "89 " align= "left " VALIGN= "bottom "> <strong> Your direction : <a href= "../ "> First Page </a> -> <a href= "../product.htm "> Product </a> </strong> </TD>
</TR>
<TR> <TD width= "654 " HEIGHT= "304 " align= "left " VALIGN= "top ">
<!--#include file= "conn.asp "-->
<!--#include file= "config.asp "-->
<% dim action
action=SafeRequest( "action ",1)
Const MaxPerPage=8
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest( "page ",1)) then
currentPage=Cint(SafeRequest( "page ",1))
else
currentPage=1
end if
set rs=server.CreateObject( "adodb.recordset ")
select case action
case " "
rs.open "select id,prename,name,company,mark,intro,introduce,predate,productdate,pretype,type,viewnum,price,price1,price2,other,grade,discount,pic,stock,amount from product where discount <=1 and stock > = 1 order by id asc ",conn,1,1
case "12 "
rs.open "select id,prename,name,company,mark,intro,introduce,predate,productdate,pretype,type,viewnum,price,price1,price2,other,grade,discount,pic,stock,amount from product where discount <=0.20 and stock > = 1 order by id asc ",conn,1,1
case "34 "
rs.open "select id,prena