asp动态表格横向展示图片，自动换行，再分页显示，如何改这个代码？

asp动态表格横向展示图片，自动换行，再分页显示，如何改这个代码？

下面这这个页面能竖着显示图片及名称，能否让它横着显示3张，再换行，共显示4行，再分页；代码怎么改？

如果再想显示共有图片数，共有多少页，本页是第几页，代码怎么写？

<%OPTION EXPLICIT%><html>
<head>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片展示</title>
</head>
<body bgcolor="#ffffff" class="p9" onload="addfile()">
<table width="140" height="130" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" class="p9" style="border-collapse: collapse">
<%
dim conn,rs,i,ServerPath
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase.mdb")
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from FileInfo",conn,1,3
if not (rs.BOF and rs.EOF) then
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
for i=1 to rs.RecordCount
%>

<tr>
<td width="140" height="102" align="center" ><A HREF="<%=serverpath&"readdbfile.asp?filename="&rs("FileName")%>" target="_blank"><img src="<%=serverpath&"readdbfile.asp?filename="&rs("FileName")%>" width="130" height="90" border="0" align="middle"></A></td>
</tr>
<tr>
<td height="25" align="center" ><A HREF="<%=serverpath&"readdbfile.asp?filename="&rs("FileName")%>"><%=rs("FileName")%></A></td>
</tr>

<%
rs.MoveNext
next
%>
<%
rs.Close
set rs=nothing
end if
%>
</table>

</body>
</html>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
%>
asp图片只能竖着排列：
如：

http://www.sqwy.cn/test/upfile/14pic.asp

能否让它横着显示3张，再换行，共显示4行，再分页；代码怎么改？

最新回答

内谎言太羙。

2024-09-03 09:27:54

这是我正在用的.里面的关键字改成你的就可以的.一定注意判断语句.OK.不行
的说.和我联系!

///////////////////////////////////////////////////////////
<table>
'这里加入你的ASP语句如下.给你加了一些.
<%
dim conn,rs,i,ServerPath
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase.mdb")
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from FileInfo",conn,1,3
if not (rs.BOF and rs.EOF) then
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
for i=1 to rs.RecordCount
%>

<TR align="left" bgcolor="#48d47c">
<%for i=1 to 4%>
<%'判断循环是否超出记录
if not rs.eof then
%>
<TD width="25%" vAlign=top>
<TABLE borderColor=#009cc3 cellSpacing=1 cellPadding=1 width="100%"
border=0>

<TR>
<TD width="100%" bgColor=#FEEECF height=24>
<P align=center><B><FONT style="FONT-SIZE: 14px"
color=#0000ff></FONT></B><a href="show.asp?name=<%= rs("type") %>" target="_blank"><%= rs("title") %></a></P></TD></TR>
<TR>
<TD vAlign=top width="100%"
background="images/textbg.jpg"
bgColor=#eff7fe height=127>
<P align=center>
<TABLE cellSpacing=0 cellPadding=0 width="93%" border=0>

<TR>
<TD width="100%">
<P
style="MARGIN-TOP: 2px"> <a href="comment.asp?name=<%=rs("type")%>&nb=<%=rs("id")%>" target="_blank" class="black"><%= rs("content") %></a></P></TD></TR> </TABLE></P></TD></TR>
<TR>
<TD width="100%" bgColor=#efefef>
<P align=center><FONT color=#ff0000>发布时间:</FONT><font color="#008000"><%= rs("times") %></font><BR><FONT color=#ff0000>固顶广告</FONT>
<FONT color=#008000>有效期还有<%=DateDiff("d",Date(),rs("Endtime")) %>天</FONT> </P></TD></TR> </TABLE>
</TD>

<% rs.movenext
end if'判断结束一定要在记录集下移之后
next
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%></TR>
</table>
////////////////////////////////////////////////

从此我爱的人都像你

2024-09-03 08:42:15

能否让它横着显示3张，再换行，共显示4行，再分页；代码怎么改？?
///////////////////////////////////////////////////////////////
现说好了，我只给你思路，绝对行。
<table>
< do while not rs.eof and 分页条件
<tr>
<td>显示项目</td>
<%rs.movenext
curRecord=curRecord+1
if rs.eof then
exit do
end if
%>
<td>显示项目</td>
<%rs.movenext
curRecord=curRecord+1
if rs.eof then
exit do
end if
%>
<td>显示项目</td>
</tr>
<%rs.movenext
curRecord=curRecord+1
if rs.eof then
exit do
end if
%>

</table>

思路：
ASP一次输出一条记录，不换行，那么HTML呢？
控制表格格式不就可以了吗？
表格每走一格，数据库向前走一条记录，
依次类推，3条记录就造3格，4条造4格。。。。
当走到最后则退出循环。
至于你的分页条件是3格4排，那么pagesize=12
分页代码自己找

风中的歌声

2024-09-03 08:45:37

<%if i==3 or i==6 or i==9 then%>
</tr><tr>
<%end if %>
分页显示最好是在提取数据时加限制，每页需要多少条就提取多少条。在上下翻页按钮上改变提取范围

我要回答

匿名回答

asp动态表格横向展示图片，自动换行，再分页显示，如何改这个代码？

您可能感兴趣问答

Collapsible

热门标签

热点问答