admin_blog_art.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 179 行
ASP
179 行
<!--#include file="mdb.asp"-->
<%Admin="BLOG"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/function_blog.asp"-->
<HTML><HEAD><TITLE>Hxcms管理中心—BLOG管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%
'****************************************************
' Hxcms Ver7.6 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
End If
if request.form("operation")="DEL" then
num=request.form("id").Count
for i=1 to num
conn.execute("delete from b_Content where blog_id="&request.form("id")(i))
next
end if
if request.querystring("action")="sites" then
if request.querystring("cat_id")<>"" then
sql="select * from b_Content where blog_CateID="&int(request.querystring("cat_id"))&" order by blog_id desc"
elseif request.form("keyword")<>"" then
keyword=trim(replace(request.form("keyword"),"'",""))
sql_tmp=1
sql="select * from b_Content where "&request("sea_type")&" like '%"&keyword&"%' order by blog_id DESC"
else
sql="select * from b_Content order by blog_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=Hxcmsss>
<td colspan="3">BLOG日志管理</td>
<td colspan="2" align="right" style="padding-top:2px;">
<select style="margin:-3px" name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
<option value="">选择显示方式</option>
<option value="admin_blog_art.asp?action=sites">显示所有BLOG</option>
<%sql="select * from b_cat"
set rss=server.createobject("adodb.recordset")
rss.open sql,conn,1,1
do while not rss.eof%>
<option value="admin_blog_art.asp?action=sites&cat_id=<%=rss("cate_id")%>"><%=rss("cate_Name")%></option>
<%rss.movenext
loop
if rss.bof and rss.eof then
%><option value="">当前没有分类</option>
<%end if
rss.close
set rss=nothing%>
</select></td>
</tr>
</form>
<form name="form3" method="post" action="">
<tr align="center" class=Hxcmsqs>
<td colspan="5">搜索（BLOG列表）关键字：<input type=text name=keyword size=15 maxlength=20>
<select name=sea_type size=1>
<option value='blog_Title'>按标题</option>
<option value='blog_Author'>按作者</option>
</select>
<input type=submit value='搜 索'></td>
</tr></form>
<tr class=Hxcmsqs align="center">
<td width="8%">选中</td>
<td width="60%">日志标题</td>
<td width="10%">作者</td>
<td width="12%">发表日期</td>
<td width="10%">编辑</td>
</tr>
<form name=form method=post action="admin_blog_art.asp?action=sites">
<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>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=adflperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalcs=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*adflperpage<totalcs then
rs.move(currentpage-1)*adflperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalcs mod adflperpage)=0 then
totalpages=totalcs\adflperpage
else
totalpages=totalcs\adflperpage+1
end if
i=0
do while not rs.eof and i<adflperpage
%>
<tr class=Hxcmsds>
<td align="center"><input Name=id type=checkbox Value=<%=rs("blog_id")%>></td>
<td><a href="showblog.asp?blog_id=<%=rs("blog_id")%>" target='_blank'><%=rs("blog_Title")%></a></td>
<td align="center"><%=rs("blog_Author")%></td>
<td align="center"><%=datevalue(rs("blog_PostTime"))%></td>
<td align="center"><a href="blog_edit.asp?blogID=<%=rs("blog_id")%>" target='_blank'>编辑</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
else%>
<tr class=Hxcmsqs>
<td colspan="5" height="22" align="center">当前没有BLOG！</td>
</tr>
<%end if%>
<tr class=Hxcmsqs>
<td class=Hxcmsds colspan="5">
<input type=hidden value=DEL name=operation>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量删除 onClick="return confirm('确定删除选中的日志吗?');" class="button"> <%if sql_tmp="1" then response.write "（搜索结果："&keyword&"）"%></td>
</tr></form>
<form name="form1" method="post" action="admin_blog_art.asp?action=sites&cat_id=<%=request.querystring("cat_id")%>">
<tr class=Hxcmsqs>
<td align="right" colspan="5"> <%=currentpage%> /<%=totalpages%>页,<%=totalcs%>条记录/<%=adflperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_blog_art.asp?action=sites&page=<%=i%>&cat_id=<%=request.querystring("cat_id")%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="admin_blog_art.asp?action=sites&page=<%=page%>&cat_id=<%=request.querystring("cat_id")%>" title="下一页">>></a>
<%end if%>
<input type="text" name="page" size="4" class="button">
<input type="submit" name="Submit" value="跳 转" class="button"></td>
</tr>
</form>
</table>
<%end if
'****************************************************
' Hxcms Ver7.6 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?