如何横排图片asp代码 急

来源:百度知道 编辑:UC知道 时间:2024/05/28 18:45:11
每页三行,每行3图 以下代码怎么改?
<%
dim currentpage
dim totalput,n
CurrentPage=0
Totalput=0:N=0
IF Not RS.EOF Then
const maxperpage=5
RS.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > RS.pagecount then
currentpage=RS.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=RS.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
RS.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not RS.eof
%>
<tr><td height="100" width=&quo

<%
dim currentpage
dim totalput,n
CurrentPage=0
Totalput=0:N=0
IF Not RS.EOF Then
const maxperpage=5
RS.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > RS.pagecount then
currentpage=RS.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=RS.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
RS.move(currentpage-1)*maxperpage
i=0

j=1
do while i< maxperpage and not RS.eof

if j mod 3=1 then
tr="<tr><td align='left' width='229'>"