| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → [求助]一个图片的循环排列问题
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 701 人关注过本帖
标题：[求助]一个图片的循环排列问题
只看楼主 加入收藏
oyxh
Rank: 1
等　级：新手上路
帖　子：3
专家分：0
注　册：2006-1-21
楼主
收藏
 问题点数：0 回复次数：8 
[求助]一个图片的循环排列问题

现在的效果:

|图片|
|图片|
|图片|
|图片|
|图片|
|图片|
|图片|
|图片|
|图片|


我想要的效果

|图片||图片||图片|
|图片||图片||图片|
|图片||图片||图片|


我现在的代码如下:

<%
if catid="" then
response.Redirect "procat.asp"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select category from category where categoryid="&catid&" ",conn,1,1
strcat = trim(rs("category"))
rs.close
set rs = nothing
%>
<TABLE WIDTH="760" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
<tr><td width="180" valign=top>
<table class=table-you>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo1<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo1url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo2<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo2url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo3<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo3url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo4<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo4url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
</table>
</td><td width="580" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top">
<%
Const MaxPerPage=3
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if catid="" then
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introduce,price1,price2,discount,productdate,pic from product order by adddate desc",conn,1,1
else
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introduce,price1,price2,discount,productdate,pic from product where categoryid="&catid&" order by adddate desc",conn,1,1
end if

if err.number<>0 then
response.write "数据库中暂时无数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，此分类暂时还没有商品！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if

sub showContent
dim i
i=0

%>
<%
do while not rs.eof%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" class=table-xia>
<tr>
<td width="20%" valign="middle" align="center">
<TABLE WIDTH="100" HEIGHT="100" BORDER="0" CELLPADDING="0" CELLSPACING="1" BGCOLOR="#cccccc">
<TR>
<TD align="center" valign="middle" bgcolor="#FFFFFF">
<a href=product.asp?id=<% = rs("id") %>>
<% if trim(rs("pic"))<>"" then %>
<img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a>
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a>
<% end if %>
</TD></TR>
</TABLE>
</td>
<td width="80%"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td colspan="3"><a href=product.asp?id=<%=rs("id")%>></a></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td width="37%">&nbsp;</td>
<td width="63%" colspan="2">&nbsp;</td>
</tr>
<tr><td height="10"></td></tr>
</table>
</td>
</tr>
</table>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
End Sub

Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>


请高手指点修改啊,我快要急死掉了,,,,,,,,,,..

搜索更多相关主题的帖子: 排列　
2006-01-21 00:50
griefforyou
Rank: 6Rank: 6
等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15
第 2 楼
收藏
 得分:0 
有那么复杂吗？

天津网站建设 http://www./
2006-01-21 02:45
阳光白雪
Rank: 7Rank: 7Rank: 7
等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18
第 3 楼
收藏
 得分:0 

<%
if catid="" then
response.Redirect "procat.asp"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select category from category where categoryid="&catid&" ",conn,1,1
strcat = trim(rs("category"))
rs.close
set rs = nothing
%>
<TABLE WIDTH="760" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
<tr><td width="180" valign=top>
<table class=table-you>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo1<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo1url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo2<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo2url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo3<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo3url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<% if zuo4<>"" then %>
<tr>
<td align="center" class=table-xia><A HREF=<%=zuo4url%> TARGET="_blank"></A></td>
</tr>
<% end if %>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
<tr>
<td class=table-xia>&nbsp;</td>
</tr>
</table>
</td><td width="580" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top">
<%
Const MaxPerPage=3
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if catid="" then
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introduce,price1,price2,discount,productdate,pic from product order by adddate desc",conn,1,1
else
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introduce,price1,price2,discount,productdate,pic from product where categoryid="&catid&" order by adddate desc",conn,1,1
end if

if err.number<>0 then
response.write "数据库中暂时无数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，此分类暂时还没有商品！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if

sub showContent
dim i
i=0
do while not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" class=table-xia>
<tr>
<%
for k= 1 to 3 '每行输出三列
%>
 <td width="20%" valign="middle" align="center">
<TABLE WIDTH="100" HEIGHT="100" BORDER="0" CELLPADDING="0" CELLSPACING="1" BGCOLOR="#cccccc">
<TR>
<TD align="center" valign="middle" bgcolor="#FFFFFF">
<a href=product.asp?id=<% = rs("id") %>>
<% if trim(rs("pic"))<>"" then %>
<img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% end if %>
</a>
</TD>
</TR>
</TABLE>
</td>
<td width="80%">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td colspan="3"><a href=product.asp?id=<%=rs("id")%>></a></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td width="37%">&nbsp;</td>
<td width="63%" colspan="2">&nbsp;</td>
</tr>
<tr><td height="10"></td></tr>
</table>
</td>
<%
if rs.eof then exit for
i=i+1
rs.movenext
next
%>
 </tr>
</table>
<%
if rs.eof then exit for
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
End Sub

Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
end function '这里应该有结束函数的语句
%>


[此贴子已经被作者于2006-1-21 9:57:36编辑过]


专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）
2006-01-21 08:59
adleyliu
Rank: 1
等　级：新手上路
帖　子：146
专家分：0
注　册：2005-5-8
第 4 楼
收藏
 得分:0 
if i mod 3=0 then
response.write "<br>"
end if

或者response.write "<tr>"用表格换行

易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@
2006-01-21 09:54
caiyakang
Rank: 2
等　级：新手上路
威　望：5
帖　子：2111
专家分：0
注　册：2005-3-24
第 5 楼
收藏
 得分:0 
<table width="120" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center">
<%
Set rs=server.CreateObject("Adodb.Recordset")
dim i,icount
i=0
icount=1
 do while not rs.eof and i<rs.pagesize '在通过设置RS.PAGESIE,就可以得到一页输出多少行/.
%>
<td colspan="8" bgcolor="#FFFFFF"><a href="ShowClassPhoto.asp?PhotoID=<%=rs("PhotoID")%>"><img src="<%=rs("PhotoUrl")%>" width="120" height="120" border="0" title="<%=rs("PhotoContent")%>" style="filter:alpha(opacity=50)" onMouseOver="makevisible(this,0)" onMouseOut="makevisible(this,1)"/></a><br/>
<div align="left">名称:<%=rs("PhotoName")%><br>
<% Response.Write "发布者:<font color='blue'>" &rs("PhotoAutor") & "</font><br>"
Response.Write "发布日期:<font color='red'>" &rs("PhotoTime") & "</font><br>"
%>
</div> </td>
<%
If icount mod 5=0 Then '这里表示每5个为一行
Response.Write "</tr><tr>"
End If
%>
<%
i=i+1
icount=icount+1
rs.movenext
loop
End If
%>
</tr>
</table>
用表格输出可以起来换行作用。。

中国人的财富网:http://www..cn/
2006-01-21 10:16
adleyliu
Rank: 1
等　级：新手上路
帖　子：146
专家分：0
注　册：2005-5-8
第 6 楼
收藏
 得分:0 
顺便讨论一个问题。用表格换行，记录多了表格就会多，

这样影响速度，当然不会太明显！

我感觉"<br>"比表格哪个更好些！

易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@
2006-01-21 12:34
oyxh
Rank: 1
等　级：新手上路
帖　子：3
专家分：0
注　册：2006-1-21
第 7 楼
收藏
 得分:0 
阳光白雪 谢谢你.

按照你的指导,已经成功的显示出来了.再次感谢.

但是现在又出了一个新的问题.
第一页可以成功显示了,但是第二页出现了下面这个问题

错误类型：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
,
2006-01-21 12:42
阳光白雪
Rank: 7Rank: 7Rank: 7
等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18
第 8 楼
收藏
 得分:0 
<%
if rs.eof then exit do
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
呵呵，打错了！！

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）
2006-01-21 13:12
oyxh
Rank: 1
等　级：新手上路
帖　子：3
专家分：0
注　册：2006-1-21
第 9 楼
收藏
 得分:0 

恩?但是为什么只有两张图片的栏目还是会有这个问题呢?

错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录

而且我的第一个栏目第一页是非常正常的显示9张图片,第二页有7张图片就显示不了7张,而是6张?是不是第7张重叠在了第6张图片上了呢?

2006-01-21 13:34
快速回复：[求助]一个图片的循环排列问题
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.046372 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved