|
楼主 |
发表于 2006 年 1 月 21 日 09:36:58
|
显示全部楼层
大家帮我看看这代码怎么改?
<table width="130" border="0" align="center" cellpadding="0" cellspace="0">
<tr>
<%
SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
SqlList = SqlList + " WHERE C.ProID >= 1 And C.ProNew = 1 "
SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
set RsList = server.CreateObject("adodb.recordset")
RsList.open SqlList, objConn, 1, 1
if RsList.eof or RsList.bof then
Response.Write("暂无新产品信息")
else
for RsList_i = 1 to 15
%>
<%
if not RsList.eof then
%>
<td>
<table width="130" border="0" align="center" cellpadding="0" cellspace="0">
<tr>
<td>
<%
if isnull(RsList("roImage1")) = false and trim(RsList("roImage1")) <> "" then
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If Fs.FileExists( Server.MapPath("../Admin/Product10/ProImage1/"&RsList("roImage1"))) Then
%>
<a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel"))%>"><img src="../admin/Product10/ProImage1/<% = RsList("ProImage1") %>" border="0" width="120" height="120" align="middle" alt="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>"></a>
<%
End If
Set Fs = nothing
end if
%>
</td>
</tr>
<tr>
<td>
<a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>">
<% = gotTopic( RsList("ProModel"), 20 )%>
</a>
</td>
</tr>
</table>
</td>
<%
RsList.movenext
end if
%>
<%
if RsList.eof then exit for
next
end if
RsList.close
set RsList = nothing
%>
</tr>
</table>
想换行,两行就行,大家帮我改改好吗,我asp一点都不会,在改一个站,但想换行,不会,大家帮帮
3Q |
|