📄 classalbum.asp
字号:
<!--#INCLUDE file="inc/DB.INC" -->
<!--#INCLUDE FILE="char.asp" -->
<!-- #include file="inc/func.inc" -->
<%
userid=session("myuserid")
password=session("mypwd")
if isman(userid,password)=0 then
%>
<script>
alert("你不是管理员，无权进入！");
parent.location.href="index.asp";
</script>
<%
else%>
<html>
<meta NAME=GENERATOR Content="text/html" CHARSET=GB2312>
<title>班级相册管理</title><head>
<link rel=stylesheet type=text/css href=jscs/css.CSS>
<script language="JavaScript" src="jscs/jsfun.js"></script>
</head>
<script language="JavaScript" src="jscs/pop_pic.js"></script>
<body bgcolor="#F2F8FF">
<%
MaxPhotoSize=clng(65535*2+2)
photopath="photo/"
sub alldelete()
sql="select picid from [classpic]"
set rs=conn.execute(sql)
if rs.eof then
errmsg="操作失败！班级相册内还没有任何照片！"
call error(errmsg,"javascript:history.back()")
exit sub
end if
i=0
do until rs.eof
call delphoto(rs(0))
rs.movenext
i=i+1
loop
set rs=nothing
stitle="删除照片"
smsg="您已经成功的从班级相册中删除了"&i&"张照片！"
call success(stitle,smsg,"classalbum.asp")
end sub
sub seldelete()
dim idlist,idarr,id
If request("id")="" then
Errmsg="请选择所要删除的文件！"
call error(errmsg,"javascript:history.back()")
exit sub
end if
idlist=request("id")
if instr(idlist,",")>0 then
idArr=split(idlist)
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call delphoto(id)
next
else
call delphoto(clng(idlist))
end if
stitle="删除照片"
smsg="您已经成功的从班级相册中删除了照片！"
call success(stitle,smsg,"classalbum.asp")
End sub
sub delphoto(id)
sql="select filename,name from [classpic] where picid="&id
set rs=conn.execute(sql)
photofile=PhotoPath&rs(0)
username=rs(1)
set rs=nothing
on error resume next
set fso = CreateObject("Scripting.FileSystemObject")
filepath=server.mappath(photofile)
if fso.FileExits(filepath)=true then
Set file = fso.GetFile(filepath)
file.delete
end if
set file=nothing
set fso=nothing
sql="delete from [classpic] where picid="&cstr(id)
conn.execute sql
end sub
if request("action")="全部删除" then
call alldelete()
elseif request("action")="删除所选"then
call seldelete()
elseif request("action")="上传照片" then
'call upform()
elseif request("action")="upload" then
'call uploadphoto()
else
call showalbum()
end if
sub showalbum()
dim totalPages,currentPage
currentPage=request.querystring("page")
stats=ordername
%>
<br><br>
<form action="classalbum.asp" method=post name=album>
<table width=90% bgcolor=#CED8CA cellspacing=0 border=0 align=center>
<tr>
<td>
<table cellpadding=5 cellspacing=1 border=0 width=100% bgcolor=#0099CC>
<tr bgcolor=#99CCFF>
<td colspan=5 valign=top width=350 align=center> >> <B>班级相册</B> <<
<font face=宋体> </font></td>
<td colspan=2>相册中照片数：<%=allphotoes()%></td>
</tr>
<tr bgcolor=#D2E9FE>
<td align=center nowrap><b>照片说明</b></td>
<td align=center nowrap><b>提供者</b></td>
<td align=center nowrap><b>照片类型</b></td>
<td align=center nowrap><b>照片大小</b></td>
<td align=center nowrap><b>点击次数</b></td>
<td align=center nowrap><b>上载时间</b></td>
<td align=center nowrap><b>操作</b></td>
</tr>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select classpic.*,txluser.truename from [classpic],[txluser] where txluser.userid=classpic.name order by picid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr bgcolor=#99CCFF>
<td colspan=9> 目前还没有照片.</td>
</tr>
<%
else
rs.pagesize=20
totalpages=rs.pagecount
if currentpage="" then currentpage=1
if not isNumeric(currentpage) then
currentpage=1
elseif Cint(currentpage)>totalpages then
currentpage=totalpages
end if
currentpage=Cint(currentpage)
rs.absolutepage=currentpage
for i=1 to 20
if rs.eof then exit for
%>
<tr bgcolor=#99CCFF>
<td valign=top>
<img class=hand src="images/<%=right(rs("filename"),3)%>.gif" dypop="<%=rs("remark")%>" dyclass="red">
<a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")>
<%=rs("remark")%>
</a>
</td>
<td align=center>
<%=rs("truename")%>
</td>
<td align=center><%=rs("type")%></td>
<td align=center><%=rs("filesize")\1024%>KB</td>
<td align=center>
<%=rs("visitcount")%>
</td>
<td align=center><%=formatdatetime(rs("datetime"),2)%></td>
<td align=center><input type=checkbox name=id value=<%=rs("picid")%>></td>
</tr>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
<tr bgcolor=#D2E9FE><td colspan=7 align=right nowrap>
<input type=checkbox name=chkall value=on onclick="return CheckAll(this.form)">选中所有显示记录 <input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.album.submit();return true;}return false;}" value="删除所选"> <!--<input type=submit name=action onclick="{if(confirm('确定清除所有的纪录吗?')){this.document.album.submit();return true;}return false;}" value="全部删除">-->
</td></tr>
</table>
</td></tr>
</table>
<table width=85% align="center" >
<tr><td align=right>
<% if currentpage=0 then currentpage=1
response.write "共 "&totalpages&" 页 第 "¤tpage&" 页 "
if currentpage=1 or totalpages=0 then
response.write "<font color=gray>首页 前页</font>"
else
response.write "<a href=?page=1&orders="&orders&">首页</a> <a href=?page="¤tpage-1&"&orders="&orders&">前页</a>"
end if
if currentpage=totalpages or totalpages=0 then
response.write " <font color=gray>后页 尾页</font>"
else
response.write " <a href=?page="¤tpage+1&"&orders="&orders&">后页</a> <a href=?page="&totalpages&"&orders="&orders&">尾页</a>"
end if
%>
<%
end sub
function allphotoes()
tmprs=conn.execute("Select count(picid) from [classpic]")
allphotoes=tmprs(0)
set tmprs=nothing
if isnull(allphotoes) then allphotoes=0
end function
%>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -