UC知道ASP问题 我不懂 是高手的请进 帮个忙!
来源：百度知道 编辑：UC知道 时间：2024/07/05 01:13:56
是一个商城的新品模板ASP文件 现在是横排只有一个商品 每页只能显示10个商品 我想改成横排4个 排5排 每页显示20个商品 不晓得怎么改 请求高手支招 感激不尽!
页面代码:
<!--#include file="Comm/conn.asp" -->
<%
Page=request("page")
If not isNumeric(page) then
response.write " 错误的参数！"
response.end
end if
pagecount=page
Dim pageurl
pageurl="prodnew.asp"
%>
<html><head>
<title>新品速递-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="shop.css" type="text/css">
</head>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<div align="center">
<!--#i
页面代码:
<!--#include file="Comm/conn.asp" -->
<%
Page=request("page")
If not isNumeric(page) then
response.write " 错误的参数！"
response.end
end if
pagecount=page
Dim pageurl
pageurl="prodnew.asp"
%>
<html><head>
<title>新品速递-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="shop.css" type="text/css">
</head>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<div align="center">
<!--#i
关键的都没贴出来，只贴了个头，汗~
do while *******
i=i+1
<td>...</td>
rs.movenext
loop
if i = 4 then response.write("<tr>")
if i=5 then i=1
do while not rs.eof <tr><td>第1格产品</td>rs.movenext<td>第2格产品</td>rs.movenext<td>第3格产品</td>rs.movenext<td>第4格产品</td></tr>rs.movenext n=n+1 if n>=5 then exit do end if loop大概就是这个模式，可以看懂吧，至于分页就不用我说了吧，他原来的程序里有。至于<td>里怎么做你就自己根据产品改下就行了.
i=1
w=4 '列数
h=5 '行数
'......
sql="select top "&w*h&" * from [table]"
'.....
response.write("<tr>")
do while not rs.eof
response.write("<td>"&rs("XXX")&"</td>")
i=i+1
if i mod w = 0 then
response.write("</tr>")
end if
rs.movenext
loop