[心缘地方]同学录
首页 | 功能说明 | 站长通知 | 最近更新 | 编码查看转换 | 代码下载 | 常见问题及讨论 | 《深入解析ASP核心技术》 | 王小鸭自动发工资条VBA版
登录系统:用户名: 密码: 如果要讨论问题,请先注册。
发表人 主题:老大请问一下制作一个调用所有照片的单独列表应该怎么制作?
wl0404
身份:user
发帖:21
登陆次数:48
1F 发表于 2008/5/23 22:00:07
老大请问一下制作一个调用所有照片的单独列表应该怎么制作?
就是一个列表全部显示我们上传上来的照片的,挺需要的,不然一页页的找同学的文件夹里实在是不好。一个文件每20张照片显示一页,然后翻页。请问该如何制作。

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3217
2F 发表于 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>



wl0404
身份:user
发帖:21
登陆次数:48
3F 发表于 2008/5/26 11:07:15
这个调出来是一列的.我要一行多列怎么修改呢?再麻烦一下.不然这样子好像不大美观.我要一行多列

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3217
4F 发表于 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>



wl0404
身份:user
发帖:21
登陆次数:48
5F 发表于 2008/5/30 20:53:29
谢谢老大,这个太实用了。呵呵果然调出了所有的照片。哈哈连加锁的照片都调出来,呼呼。谢谢谢谢。

 
标题:
消息图标:                                             
                                            
正文:



* UBB 代码开启

 
CopyRight © 心缘地方 2005-2999. All Rights Reserved