asp图片排序显示问题
asp 实现了图片上传功能及显示功能，但是在排序时,比如我希望一页显示12个图片（3*4)，现在只有6个照片，现在在页面上显示的是12个照片（其中6个可以看到，6个有×的照片），怎么写这个页面显示及分页的代码，各位大虾帮帮忙啊。。 问题点数：0、回复次数：2Top
1 楼zorou_fatal（The world and system is even）回复于 2003-08-04 11:11:03 得分 0
<%
dim conn
set conn=server.createobject("adodb.connection")'建立连接对象
conn.open "DR"'打开数据源
set rst=server.CreateObject("adodb.recordset")'建立记录集
SQL="select * from dr order by id asc"'SQL语句
rst.Open SQL,conn,1,1'以可以产生pagecount的方式打开
rst.PageSize=10'设定每页页数为十
totalpage=rst.PageCount'得到总页数
rst.AbsolutePage=1'先设定当前页数为1，然后在后面根据参数具体情况修改
if cint(Request.QueryString("Pages"))=0 then'判断，当无参数也就是页面初次加载的时候
rst.AbsolutePage=1'当然是在第一页
currentpage=1
else
if not cint(Request.QueryString("pages"))>totalpage then'判断，如果有参数传递过来且不大于最大页面数
rst.AbsolutePage=cint(Request.QueryString("pages"))'则当前页面就为传递过来的参数
currentpage=cint(Request.QueryString("pages"))
end if
end if
%>
当前是第<%=currentpage%>页
<%
for i=0 to 9 '开始写出每条记录
Response.Write rst("department")&rst("human")&"<br>"
rst.movenext
if rst.EOF then
exit for
end if
next%>
<%
for i=1 to totalpage'生成每一个链接
%>
<a href=pages.asp?pages=<%=i%>>第<%=i%>页</a><br>
<%
next
rst.Close'关闭对象，节约资源
set rst=nothing
conn.close
set conn=nothing
%>Top
2 楼zorou_fatal（The world and system is even）回复于 2003-08-04 11:11:43 得分 0
显示图片的部分，你可以写成一个function
嵌套到上面的循环中。Top
