先做下广告
本页面：界面美观、功能强大、保密性强、访问速度快、人性化的提示，贴近你的需求

一个可以调用所有照片的页面，在老大的代码基础上改的


附件在下面



界面预览：
-------------------------------







功能说明：
--------------------------------
1.整合网站的皮肤，界面更美观

2.相片有相框，并调用缩略图，以加快显示速度

3.显示照片原来长和宽的比例，避免对照片产生拉伸变形

4.不显示加密的相片和相册(要是都显示了就失去相册加密的意义了)，保密性强

5.照片相关信息的提示功能(如标题、上传人、上传时间、点击率等)，鼠标移到照片上就会显示这些东西

6.分页显示

……



更新说明：
-------------------------------
班级成员登录此页面后可以看到班级的所有照片(按上传时间的先后顺序排列)
管理员登录后，在“权限设置”的“班级相册”中，可以修改本页面的访问权限



更新文件列表：
--------------------------------
│  photo_allphoto.asp
├─include
│      top.asp



使用方法：
--------------------------------
1.用管理员登录班级，进入左侧功能列表的“执行SQL”，复制下面全部语句执行一次(注意要全部复制，然后执行)。

insert into TBL_SystemFileInfo values('photo_allphoto.asp','显示班级所有照片页面','--班级所有照片','Y','Y','Y','Y','N','N')

2.将变更的asp文件上传覆盖。

3.再次用管理员登录后，在“权限设置”的“班级相册”中，根据自己的需要重新设置本页面(大概在第四行：显示班级所有照片页面)的各级访问权限。



代码预览：
--------------------------------
<%@CODEPAGE="936"%>
<!--#include File="session.asp" -->
<!--#include File="conn.asp" -->
<!--#include File="checkAccess.asp" -->
<!--#include File="include/listpages.asp" -->

<!----------------------------------------以下开始是界面------------------------------------>
<!--#include File="include/top.asp" -->
<!--#include File="include/leftbar.asp" -->
<script>hiddenFunctionMenu();</script>
<script language="JavaScript" src="js/photosize.js"></script>
<%
'取得相册所有照片 
myPagesize=20
columns = 4 '每行4个
set rs = server.createobject("adodb.recordset")
sql="select P.photoID,P.photoFilename,U.realName,P.photoTitle,P.photoSize,P.addTime,P.photoWidth,P.photoHeight,P.photoClick "&_
    "from (TBL_Photo P inner join TBL_Album A on P.albumID=A.albumID) "&_
    "inner join TBL_USER U on U.userName=P.userName "&_
    "where A.locked='no' and P.locked='no' "&_
    "order by P.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="2" cellspacing="2">
<%do while not rs.eof and line>0 %>
<tr> 
<%  for i=1 to columns 
        if rs.eof or line<=0 then exit For
%>
  <td valign="top">
      <div class="photoShowBlock2">
      <a href="photo_viewphoto.asp?photoID=<%=rs("photoID")%>" target="_blank">
    <img src="<%=getPhotoURL(rs("photoFilename"))%>" alt='标  题：<%=rs("photoTitle")%>
上传者：<%=rs("realName")%>
大  小：<%=Round(rs("photoSize")/1024)%> KB
时  间：<%=rs("addTime")%>    
分辨率：<%=rs("photoWidth")%>x<%=rs("photoHeight")%>
点击数：<%=rs("photoClick")%>' border="0" width="160" height="120" onload="DrawImage(this);"></a>
    </div>
  </td>
<%        rs.movenext
        line=line-1
    next
    if i<>1 then  '---最后一行，补足<td>
        for j=1 to columns-i
            response.Write("<TD> </TD>")
        next
    end if
%>
</tr>
<% loop %>
</table>
<%rs.close%>

<p><%call listpages(myCondition)%><p>
<!--#include File="include/foot.asp" -->