身份：user
发帖：21
登陆次数：48
发表于 2008/5/23 22:00:07
老大请问一下制作一个调用所有照片的单独列表应该怎么制作？
就是一个列表全部显示我们上传上来的照片的，挺需要的，不然一页页的找同学的文件夹里实在是不好。一个文件每２０张照片显示一页，然后翻页。请问该如何制作。
身份：admin
发帖：1438
登陆次数：3287
发表于 2008/5/24 11:41:42
大概是这样：
<%@CODEPAGE="936"%>
<!--#include File="session.asp" -->
<!--#include File="conn.asp" -->
<!--#include File="include/listpages.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<title>相片浏览器</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<% call WriteCss()%>
</HEAD>
<body class="font-14px">
<br>
<%
'取得相册所有照片
myPagesize=20
set rs = server.createobject("adodb.recordset")
sql="select photoID,photoFilename,photoTitle,photoIntro from TBL_PHOTO order by photoID desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
call closeRs(rs)
call showMsg("没有照片。")
end if
call myPages(rs,myPagesize)
myCondition=""
call listpages(myCondition)
line=myPagesize
do while not rs.eof and line>0 %>
<font color="white">
<p><br> <b>标题:</b><%=rs("photoTitle")%>
<br> <b>简介:</b><%=rs("photoIntro")%>
<br> <a href="photo_viewphoto.asp?photoID=<%=rs("photoID")%>" target="_blank"><img src="<%=getPhotoViewURL(rs("photoFilename"))%>" style="border: 5px solid #ffffff;" title="转到该相片详细页面"></a></p></font>
<% rs.movenext
line=line-1
loop
call closeRs(rs)
call closeConn()
%><p><%call listpages(myCondition)%><p>
</body>
</html>
身份：user
发帖：21
登陆次数：48
发表于 2008/5/26 11:07:15
这个调出来是一列的．我要一行多列怎么修改呢？再麻烦一下．不然这样子好像不大美观．我要一行多列
身份：admin
发帖：1438
登陆次数：3287
发表于 2008/5/26 18:27:11
你改columnSize = 4这个值就行了，最好和myPagesize成倍数关系。
<%@CODEPAGE="936"%>
<!--#include File="session.asp" -->
<!--#include File="conn.asp" -->
<!--#include File="include/listpages.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<title>相片浏览器</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<% call WriteCss()%>
</HEAD>
<body class="font-14px">
<br>
<%
'取得相册所有照片
myPagesize=20
columnSize = 4 '每行4个
set rs = server.createobject("adodb.recordset")
sql="select photoID,photoFilename,photoTitle,photoIntro from TBL_PHOTO order by photoID desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
call closeRs(rs)
call showMsg("没有照片。")
end if
call myPages(rs,myPagesize)
myCondition=""
call listpages(myCondition)
line=myPagesize
%>
<TABLE width="100%" border="0" align="center" cellpadding="6" cellspacing="6">
<%do while not rs.eof and line>0 %>
<TR>
<% for i=1 to columnSize
if rs.eof or line<=0 then exit For
%> <TD width="1%" valign="top" >
<font color="white">
<p>
<a href="photo_viewphoto.asp?photoID=<%=rs("photoID")%>" target="_blank">
<img src="<%=getPhotoViewURL(rs("photoFilename"))%>" width=200 height=200 style="border: 5px solid #ffffff;" title="转到该相片详细页面"></a>
<br> <b>标题:</b><%=rs("photoTitle")%>
<br> <b>简介:</b><%=rs("photoIntro")%>
</p></font>
</TD>
<% rs.movenext
line=line-1
next
if i<>1 then '---最后一行，补足<td>
for j=1 to columnSize-i
response.Write("<TD> </TD>")
next
end if
%> </TR>
<% loop
call closeRs(rs)
call closeConn()
%>
</table>
<p><%call listpages(myCondition)%><p>
</body>
</html>
身份：user
发帖：21
登陆次数：48
发表于 2008/5/30 20:53:29
谢谢老大，这个太实用了。呵呵果然调出了所有的照片。哈哈连加锁的照片都调出来，呼呼。谢谢谢谢。
