这一段表格是一个产品展示页面的代码,但是怎么改这个图片的格式还是对不齐,不是因为文字超过表格范围造成的,麻烦各位大哥看下有没什么好办法修改下代码使这个两行三列的产品对齐
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<table width="320" height="160" border="0" cellpadding="0" cellspacing="0" valign="TOP">
<%
Dim rs
set rs = server.createobject("adodb.recordset")
sql="select top 6 * from Goods where typeid=2 order by Id desc"
'sql="select * from Goods order by Id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td align=center>目前还没有软件。<br></td></tr>"
else
dim pageSize
rs.PageSize =6 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if%>
<tr>
<%ii=0
For i=1 To x%>
<td valign="top"><table border="0" align="left" cellpadding="0" cellspacing="0" valign="top">
<tr>
<%
If isNull(rs("ImageFile")) Then
%>
<td width="80" height="80" align="center"><img src="images/noImg.jpg" width="80" height="50" ></td>
<%else%>
<td width="80" height="80" align="center"><a href="ViewImage.asp?id=<%=rs("id")%>" onClick="return newswindow(this.href)"><img src="admin/images/<%=rs("imageFile")%>" width="48" height="48" border="0"><BR>
<%=rs("Model")%></td>
<%end if%>
<%rs.movenext
if rs.bof then
response.write "没有符合条件的产品"
end if
ii=ii+1%>
<%if ii mod 3 = 0 then%>
</tr>
<tr>
<%end if%>
<% next%>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
</table>