📄 admin_all.asp
字号:
<%
if session("AdminName") = "" then
response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
Function SafeRequest(ParaName,ParaType)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 Then
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>讯网wap图片后台管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%
Select case Request("method")
Case 1
Call DelPhoto()
Call picreview()
End Select
keyword=request("keyword")
const MaxPerPage=20
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=SafeRequest("page",1)
else
currentPage=1
end if
%>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=23 colspan=2 class="topbg"><strong>图 片 管 理</strong></tr>
<tr>
<td width="100" class="tdbg" height=25><strong>管理快捷方式：</strong></td>
<td class="tdbg"><a href="Admin_All.asp">管理首页</a>
| <a href="Admin_All.asp">图片管理</a>
| <a href="Admin_Class.asp">分类管理</a>
| <a href="Admin_PicAdd.asp">添加图片</a>
| <a href="Admin_Affiche.asp">公告管理</a>
</td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="topbg">
<td height="25"><b>ID</b></td>
<td><b>选定</b></td>
<td><b>图片名称</b></td>
<td><b>大小</b></td>
<td><b>加入时间</b></td>
<td><b>评论管理</b></td>
<td><b>操作</b></td>
</tr>
<form action="" name="form1" method="post">
<%
set rs=server.createobject("adodb.recordset")
if keyword="" then
Sql = "Select * from desktop order by Desktopid desc"
else
Sql = "Select * from desktop where Desktopname like '%"& keyword &"%' order by Desktopid desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<br><b><center><font color=red>还没有添加图片。</font></b><br></center><br><br>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
%>
<%do while not rs.eof%>
<tr align="center" class="tdbg">
<td height="25" ><%=rs(0)%></td>
<td height="25" ><input type="checkbox" name="id" value="<%=rs(0)%>"></td>
<td height="25" ><a target="_blank" href="/<%=rs("DesktopPic")%>" title="图片浏览"><%=Replace(Rs("Desktopname"),Keyword,"<font color=red><b>"&Keyword&"</b></font>")%></a></td>
<td height="25"><%=rs("Desktopdx")%></td>
<td ><%=rs("Desktoptime")%> </td>
<td ><% if rs("DesktopRe")=0 then %>没有评论
<%else%>
<a href="Admin_ReviewView.asp?id=<%=rs("DesktopId")%>" title="管理"> <font color="#FF0000">有<%=rs("DesktopRe")%>条评论</font></a>
<%end if%></td>
<td ><a href="Admin_PicEdit.asp?NumID=<%=rs(0)%>">编辑</a></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr class="tdbg">
<td height="25" colspan="7" width="727"> 管理操作：全部选择
<input type="checkbox" name="chkall" onClick="javascript:CheckAll(this.form)" value="ON">
<input onClick="{if(confirm('确定删除选定的图片吗?\n\n删除后的图片将不能恢复。')){this.document.form1.submit();return true;}return false;}" type=submit value=删除 name=action class="tbutton">
<input type="hidden" name="method" value="1">
</td>
</tr>
</form>
<form action="" method="POST">
<tr class="tdbg">
<td height="25" colspan="7" width="727">
图片查找：<input type="text" name="keyword" maxlength="50" size="18" value="<%=keyword%>"><input type="submit" name="Submit2" value="提交"></td>
</tr></form>
<tr class="tdbg">
<td height="25" colspan="7" width="727">
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="""&filename&"?keyword="& keyword &"""><tr><td align=center> "
if CurrentPage<2 then
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 首页 上一页 "
else
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 <a href="&filename&"?page=1&keyword="& keyword &">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&keyword="& keyword &">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="& keyword &">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&keyword="& keyword &">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个/页 "
%>
转到：<form method="POST" action="Admin_All.asp">
<input type="text" name="page" size="5" value="<%=Page+1%>"> <input type="submit" value="提交" name="B1">
<%
response.write "</td></tr></FORM></table>"
end function
dim sql1
Sub DelPhoto()
id = SafeRequest("id",1)
sql = "delete * from desktop where Desktopid in ("& id &")"
sql1="delete from Pic_Review where IswNumsClass=("& id &") "
conn.execute(sql)
conn.execute(sql1)
Response.Write("<script>alert(""图片删除成功"");location.href=""Admin_All.asp"";</script>")
Response.End()
End Sub
%>
</td>
</tr>
</table>
</div>
<!--#include file="copyright.asp" -->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -