网站的产品列表模块如何九宫格显示?
怎么样修改才能将我的产品列表改成五行四列的显示?代码如下:
<%
dim aid
aid = request("aid")
url = ""
where = ""
if aid <> "" then
call CheckNum(aid)
url="&aid="&aid
where = " and A.aid = "&aid
end if
Const PAGESIZE=6
Const PARTSIZE=10
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
prosql = "select A.title,A.id,A.aid,A.propic,B.aname from tsm_pro A,tsm_probc B where A.aid = B.aid "&where&" order by id desc"
%>
<SCRIPT language=JavaScript>
<!--
var flag=false;
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>=100/100){
if(image.width>100){
ImgD.width=100;
ImgD.height=(image.height*100)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt="点击查看详细信息...";
}
else{
if(image.height>100){
ImgD.height=100;
ImgD.width=(image.width*100)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt="点击查看详细信息...";
}
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
//-->
</SCRIPT>
<table width="943" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="32" colspan="2" background="images/dh-m.jpg"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle" class="wz">您现在的位置:首页 <font face="webdings">8</font></span> 产品列表</td>
</tr>
</table></td>
</tr>
</table>
<table width="943" border="0" align="center">
<tr>
<td rowspan="2" valign="top"><!--左边-->
<!--#include file="leftproduct.asp"--></td>
</tr>
<tr>
<td valign="top"><table width="725" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
<tr><td height="28" background="images/table.jpg" class="wz">产品列表</td></tr>
<tr>
<td height="14" colspan="3" background="images/txt-top.jpg"></td>
</tr>
<tr>
<td colspan="3