📄 admin_article_list.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
<tr>
<td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td>
<td class="b1" valign="top">
<%
if cUserName="" then
msgtitle="非法操作"
msginfo="<li>你没有登录系统。<li><a href=""User.Asp"" target=_top>点此登录系统</a></li>"
call Sysmsg(msgtitle,msginfo)
else
set rs=server.createobject("adodb.recordset")
dim isMaster,selArticleID
isMaster=false
selArticleID=Trim(Request.Form("selArticleID"))
if chkMaster(cUserName) then isMaster=true
select case Trim(Request("action"))
case "s"
call Search_Article()
case "l"
call Search_Article()
case "batch_isDel"
call batch_isDel()
case "batch_isTop"
'call batch_isTop()
case "batch_noTop"
'call batch_noTop()
case "batch_isHot"
call batch_isHot()
case "batch_noHot"
call batch_noHot()
case "batch_isMov"
call batch_isMov()
case else
call main()
end select
set rs=nothing
end if
sub batch_isDel()
msgtitle="批量删除"
if selArticleID<>"" then
conn.execute("delete from Info_Article where ArticleID in ("&selArticleID&")")
msginfo="操作成功！"
else
msginfo="没有选择任何文章，本次操作取消！"
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub batch_isTop()
end sub
sub batch_noTop()
end sub
sub batch_isHot()
msgtitle="批量推荐"
if selArticleID<>"" then
conn.execute("update info_Article set isHot=1 where ArticleID in ("&selArticleID&")")
msginfo="操作成功！"
else
msginfo="没有选择任何文章，本次操作取消！"
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub batch_noHot()
msgtitle="批量取消推荐"
if selArticleID<>"" then
conn.execute("update Info_Article set isHot=0 where ArticleID in ("&selArticleID&")")
msginfo="操作成功！"
else
msginfo="没有选择任何文章，本次操作取消！"
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub batch_isMov()
msgtitle="批量移动"
if selArticleID<>"" then
if Trim(Request.Form("catalog"))<>"" then
dim splCatalog
splCatalog=split(Trim(Request.Form("catalog")),",")
if splCatalog(2)>0 then
conn.execute("update Info_Article set RootID="&splCatalog(0)&",CatalogID="&splCatalog(1)&",CatalogName='"&splCatalog(3)&"',isCreate=0 where ArticleID in ("&selArticleID&")")
msginfo="操作成功！"
else
msginfo="不能转移到一级分类下，本次操作取消。"
end if
else
msginfo="没有选择文章分类，本次操作取消。"
end if
else
msginfo="没有选择任何文章，本次操作取消！"
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub Search_Article()
dim q,keyword,sqlKeyword,splCatalog,sqlDateTime,sqlisIn,sqlisUser
keyword=checkStr(Trim(Request("keyword")))
dim currentpage,page_count,Pcount
dim totalrec,endpage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if Request("action")="s" then
if Trim(Request.Form("MaxPerPage"))<>"" then session("MaxPerPage")=Trim(Request.Form("MaxPerPage"))
if isnull(session("MaxPerPage")) or session("MaxPerPage")="" then session("MaxPerPage")=50
MaxPerPage=cint(session("MaxPerPage"))
q="&action=s&keyword="&keyword&"&selby="&Trim(Request("selby"))&"&catalog="&Request("catalog")&""
if Trim(Request("catalog"))="" then
sqlCatalog=""
if Request("selby")=1 then
sqlKeyword=" (" & translate(keyword,"Title") & ") "
elseif Request("selby")=2 then
sqlKeyword=" (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" (" & translate(keyword,"Title") & " or " & translate(keyword,"Content") & ") "
end if
else
splCatalog=split(Request("catalog"),",")
if cint(splCatalog(2))=0 then
sqlCatalog=" RootID="&splCatalog(1)&""
else
sqlCatalog=" CatalogID="&splCatalog(1)&""
end if
'Response.Write(sqlCatalog)
if Request("selby")=1 then
sqlKeyword=" and (" & translate(keyword,"Title") & ") "
elseif Request("selby")=2 then
sqlKeyword=" and (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" and (" & translate(keyword,"Title") & " or " & translate(keyword,"Content") & ") "
end if
'Response.Write(sqlKeyword)
end if
if Request("DateTime")<>"" then
sqlDateTime=" and datediff('d',DateTime,date())<"&datediff("d",Request("DateTime"),Now())&""
q=q&"&DateTime="&Trim(Request("DateTime"))&""
else
sqlDateTime=""
end if
if cint(Request("isIn"))=1 then
sqlisIn=" and images<>''"
q=q&"&isIn="&Trim(Request("isIn"))&""
elseif cint(Request("isIn"))=2 then
sqlisIn=" and isHot=1"
q=q&"&isIn="&Trim(Request("isIn"))&""
else
sqlisIn=""
end if
if Request("isUser")="yes" then
sqlisUser=" and UserName='"&cUserName&"'"
q=q&"&isUser="&Trim(Request("isUser"))&""
else
sqlisUser=""
end if
sql="select ArticleID,Title,CatalogID,CatalogName,DateTime,isTop,isHot,isHtml,UserName from info_Article Where "& sqlCatalog & sqlKeyword & sqlDateTime & sqlisIn & sqlisUser& " order by isTop desc,DateTime Desc"
'Response.Write(sql)
elseif Request("action")="l" then
MaxPerPage=30
q="&action=l"
sql="select ArticleID,Title,CatalogID,CatalogName,DateTime,isTop,isHot,isHtml,UserName from info_Article order by isTop desc,DateTime Desc"
end if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<COLGROUP>
<COL width=24>
<COL width=*>
<COL width=40>
<COL width=65>
<COL width=50>
<tr>
<td align="center" class="tdbg1"><a href="javascript:SelectAll()">选择</a></td>
<td class="tdbg1">分类和文章标题</td>
<td align="center" class="tdbg1">编辑</td>
<td align="center" class="tdbg1">日期</td>
<td align="center" class="tdbg1">用户</td>
</tr>
<SCRIPT language = "JavaScript">
function SelectAll() {
for (var i=0;i<document.myform.selArticleID.length;i++) {
var e=document.myform.selArticleID[i];
e.checked=!e.checked;
}
}
</script>
<form name="myform" method="post" action="Admin_Article_List.asp">
<% rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<tr bgcolor=""#FCFCFC""> <td></td><td colspan=""4"">Sorry！没有找到任何记录。</td></tr>"
else
totalrec=rs.recordcount
if (totalrec mod MaxPerPage)=0 then
Pcount= totalrec \ MaxPerPage
else
Pcount= totalrec \ MaxPerPage + 1
end if
RS.MoveFirst
if currentpage > Pcount then currentpage = Pcount
if currentpage<1 then currentpage=1
RS.Move (currentpage-1) * MaxPerPage
page_count=0
do while not rs.eof and page_count < MaxPerPage
%>
<tr>
<td align="center" class="tdbg2"><% if rs("UserName")=cUserName then
Response.Write "<input name=""selArticleID"" type=""checkbox"" value="""&rs("ArticleID")&""">"
elseif isMaster then
Response.Write "<input name=""selArticleID"" type=""checkbox"" value="""&rs("ArticleID")&""">"
else
Response.Write "--"
end if
%></td>
<td class="tdbg2"><%
if rs("isTop") then
Response.Write "<img src=""images/isTop.gif"" align=""absmiddle"">"
elseif rs("isHot") then
Response.Write "<img src=""images/isHot.gif"" align=""absmiddle"">"
else
Response.Write "<img src=""images/isList.gif"" align=""absmiddle"">"
end if
Response.Write "[<a href=""infolist/Catalog_"&rs("CatalogID")&"_1.html"" target=""_blank"">"&rs("CatalogName")&"</a>]"
Response.Write " <a href=""infoview/Article_"&rs("ArticleID")&".html"" target=""_blank"">"&cutStr(rs("Title"),50)&"</a>"
%> </td>
<td align="center" class="tdbg2"><% if rs("isHtml") then isEditer="&editor=html" else isEditer="&editor=ubb" end if
if rs("UserName")=cUserName then
response.write "<a href=""Admin_Article.Asp?action=edit&ArticleID="&rs("ArticleID")&isEditer&""" title=""修改文章"">编辑</a>"
elseif isMaster then
response.write "<a href=""Admin_Article.Asp?action=edit&ArticleID="&rs("ArticleID")&isEditer&""" title=""修改文章"">编辑</a>"
else
Response.Write "---"
end if
%></td>
<td align="center" class="tdbg2"><%= DateTimeFormat(rs("DateTime"),6) %></td>
<td align="center" class="tdbg2"><% =rs("UserName") %></td>
</tr><% page_count=page_count+1
rs.movenext:loop %>
<tr>
<td class="tdbg2" colspan="5"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td><%Response.Write "搜到:<b><font color=""red"">"&totalrec&"</font></b> 条"
Response.Write " 页次:<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页"
Response.Write " 每页<b>"&MaxPerPage&"</b>" %></td>
<td align="right">分页：<%
if currentpage > 4 then
response.write "<a href=""?page=1"&q&""">[1]</a>..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " <font color=""red"">["&i&"]</font>"
else
response.write " <a href=""?page="&i&""&q&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "...<a href=""?page="&Pcount&""&q&""">["&Pcount&"]</a>"
end if %></td></tr></table></td>
</tr>
<% end if:rs.close %>
<tr>
<td class="tdbg2" >管理</td>
<td class="tdbg2" colspan="4"><input type="radio" name="action" value="batch_isDel">批量删除
<input type="radio" name="action" value="batch_isHot">批量推荐
<input type="radio" name="action" value="batch_noHot">取消推荐
<input type="radio" name="action" value="batch_isMov">批量移动:<%
Response.Write "<select name=""catalog"">"& vbcrlf
Response.Write Catalog_Select(0,"info")
Response.Write "</select>"%>
<input type="submit" name="Submit3" value="执行" onclick="{if(confirm('您确定执行的操作吗?')){this.document.myform.submit();return true;}return false;}"> </td>
</tr>
<tr>
<td class="tdbg2">图例</td>
<td colspan="4" align="center" class="tdbg2"><img src="images/isTop.gif" align="absmiddle">置顶文章
<img src="images/isHot.gif" align="absmiddle">推荐文章 <img src="images/isList.gif" align="absmiddle">普通文章</td>
</tr>
</form>
</table>
<%
end sub
sub main()
%>
<SCRIPT src="js/calendar.js"></SCRIPT>
<SCRIPT LANGUAGE=javascript>
function CheckForm1()
{
if (form_soft.DateTime.value !=="")
{
if (chkDate(form_soft.DateTime.value)==false) {
alert("你设置的日期格式不正确！");
form_soft.DateTime.focus();
return (false);
}
}
}
function CheckForm2()
{
if (form_article.DateTime.value !=="")
{
if (chkDate(form_article.DateTime.value)==false) {
alert("你设置的日期格式不正确！");
form_article.DateTime.focus();
return (false);
}
}
}
function chkDate(sDate){
var r=/\d{4}(?:-\d{1,2}){0,2}/
//正则表达式，判断是否为yyyy-mm-dd,yyyy-mm,yyyy格式
if(sDate.match(r)==sDate){
var arr=sDate.split("-")
switch(arr.length){
//根据不同的yyyy-mm-dd,yyyy-mm格式判断年月日数字是否正确
case 3:
var tmpDate=new Date(arr[0],arr[1],arr[2]);
if(tmpDate.getMonth()==arr[1] && tmpDate.getFullYear()==arr[0]) return true;
break;
case 2:
if(arr[1]<13) return true;
break;
default:
return false;
}
}
return false;
}
</script>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<tr>
<form name="form_soft" method="post" action="" onSubmit="return CheckForm1();">
<tr>
<td colspan="4" align="center" class="tdbg1">文章管理搜索
<input name="action" type="hidden" value="s"></td>
</tr>
<tr class="tdbg2">
<td width="17%">包含的关键字</td>
<td colspan="3">(同时查询多个条件使用'<font color=#FF0000>or</font>' 分隔关键字，查询同时满足某条件使用'<font color=#FF0000>and</font>'分隔关键字)<br>
<input name="keyword" type="text" size="50" maxlength="80">
</td>
</tr>
<tr class="tdbg2">
<td>文章分类为</td>
<td ><select name="catalog">
<% Response.Write( Catalog_Select(0,"Info")) %>
</select></td>
<td>搜索选项</td>
<td><select name="selby" id="selby">
<option value="1">搜索文章标题</option>
<option value="2">搜索文章内容</option>
<option value="0">两者都搜索</option>
</select></td>
</tr>
<tr class="tdbg2">
<td width="17%">加入时间为</td>
<td > <input name="DateTime" type="text" id="DateTime" size="12" maxlength="10">
以来
<input type="button" name="Submit2" value="选择日期" onclick="showCalendar(DateTime,400,5);">
</td>
<td>每页显示</td>
<td><input name="MaxPerPage" type="text" value="50" size="4" maxlength="3">
条记录 </td>
</tr>
<tr class="tdbg2">
<td>其他选项</td>
<td colspan="3"> (
<input type="radio" name="isIn" value="1">
在<font color="#FF0000">图片文章</font>中搜
<input type="radio" name="isIn" value="2">
在<font color="#FF0000">推荐文章</font>中搜
<input name="isIn" type="radio" value="0" checked>
不限) (
<input name="isUser" type="checkbox" value="yes" <% if not isMaster then Response.Write "checked" %>>
只搜索自己添加的文章) </td>
</tr>
<tr class="tdbg2">
<td colspan="4" align="center"> <input type="submit" name="Submit" value=" 搜 索 "></td>
</tr>
</form>
</table>
<% end sub %>
</td>
</tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% CloseDatabase %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -