| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 405 人关注过本帖
标题:分页和图片排列同在一个页面怎么处理?
只看楼主 加入收藏
小好
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-12-15
收藏
 问题点数:0 回复次数:0 
分页和图片排列同在一个页面怎么处理?

图片显示页和分面的页面
<%set connGraph=server.CreateObject("ADODB.connection")
connGraph.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("database/cai.mdb")

set rec=server.createobject("ADODB.recordset")
strsql="select * from shou"
rec.open strsql,connGraph,1,3

if not(rec.eof and rec.bof) then
dim page_size
dim page_no
dim page_total
dim number
page_size=3
if request.queryString("page_no")="" then
page_no=1
else
page_no=cint(request.queryString("page_no"))
end if
rec.pagesize=page_size
page_total=rec.pagecount

rec.absolutePage=page_no

number=page_size
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-image: url(image/17.jpg);
}
.STYLE1 {
font-size: 16px;
font-family: "宋体";
color: #333333;
}
.STYLE2 {color: #FFFFFF}
.STYLE3 {font-family: "华文彩云"; font-size: 18px;}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #006600;
}
a:active {
text-decoration: none;
color: #000000;
}
.STYLE12 {font-size: 18px}
.STYLE13 {font-family: "华文彩云"}
.STYLE15 {color: #000000}
a {
font-family: 宋体;
font-size: 14px;
}
.STYLE17 {
font-family: "隶书";
font-size: 18px;
}
-->
</style>
</head>

<body topmargin="0">
<table width="766" border="0" align="center">
<tr>
<td background="image/itemback.gif">
<%
do while not rec.eof and number>0
number=number-1
temp=rec("s_id")
%>
<table border="0" align="center">
<tr>
<td align="center" valign="middle" bgcolor="#FFFF66"><img src="a2.asp?id=<%=temp%>"></td>
</tr>
</table>
<%
rec.movenext
loop

%>
<table width="506" border="0" align="center">
<tr>
<td width="500"><font color="#000000" size="2">共有:<font color="red"><%=rec.recordcount%></font>张图片</font>
<% if page_no>1 then %>
<font color="#000099" size="2"><a href="a1.asp?page_no=<%=page_no-1%>">上一张</a></font>
<%else%>
<font color="#000099" size="2">上一页</font>
<%end if%>
<% if page_no< page_total then%>
<font color="#000099" size="2"><a href="a1.asp?page_no=<%=page_no+1%>">下一张</a></font>
<%else%>
<font color="#000099" size="2">下一页</font>
<%end if%>
<font color="#000000" size="2">一共有:<font color="red"><%=page_no%></font>/<font color="red"><%=page_total%></font>页</font> </td>
</tr>
</table>
<%
end if
rec.close
set rec=nothing
conngraph.Close
set conngraph=nothing
%></td>
</tr>
</table>
<table width="766" height="223" border="0" align="center">

</table>

</body>
</html>

图片排列的页面
<!--#include file="Conn.asp"-->
<%
set Rs=server.createobject("adodb.recordset")
Sql="select * from photo order by id desc"
Rs.open sql,conn,1,1
If Rs.Eof and Bof Then
Response.Write("暂无图片")
Else
i=1
%>
<table width="98" height="91" cellpadding="0" bgcolor="#F6F6F6" class="Photo_Tabel">

<%if i mod 4=0 then%><tr><%End if%>
<% do while not Rs.Eof %>
<td align="center" valign="middle">
<img src="<%=rs("photo")%>" alt="<%=Rs("id")%>" width="90" height="120" class="Photo_Tabel" style=""></td>
<%if i mod 4=0 then%></tr><%End if%>
<%
i=i+1
Rs.MoveNext
Loop
%>
</table>
<%End if%>

现在主要是想把图片排列用到前面的那个页面.我自己加入时就出现两个do语句产生冲突,那么解决呀

搜索更多相关主题的帖子: 排列 页面 
2007-01-11 21:50
快速回复:分页和图片排列同在一个页面怎么处理?
数据加载中...
 
   



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

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