📄 admin_list.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>

<html>
<head>
<title>文章资源管理</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
<Script Language="JavaScript" src="Include/DateSelect.js"></Script>

<Script Language="JavaScript">
<!--
function Admin_List_Check() {
 if (document.Admin_List.GuComm.value=="") {
	document.Admin_List.GuComm.focus();
	return (false);
	}
	return true;
}
//-->
</Script>

<Script Language="JavaScript">
<!--
function AdminListMenuShow(){
	if(document.Admin_List.GuComm.value=='CommNameColor') {
	Admin_List_Ar_NameColor.style.display="";
	}
	else {
	Admin_List_Ar_NameColor.style.display="none";
	}

	if(document.Admin_List.GuComm.value=='CommSortAsSort') {
	Admin_List_Ar_SOAS.style.display="";
	}
	else {
	Admin_List_Ar_SOAS.style.display="none";
	}

	if(document.Admin_List.GuComm.value=='CommDateTime') {
	Admin_List_Ar_DateTime.style.display="";
	}
	else {
	Admin_List_Ar_DateTime.style.display="none";
	}

	if(document.Admin_List.GuComm.value=='CommCommend') {
	Admin_List_Ar_Commend.style.display="";
	}
	else {
	Admin_List_Ar_Commend.style.display="none";
	}

}
//-->
</Script>

</head>

<body leftmargin="10" topmargin="10" bgcolor="#FFFFFF">

<!--#include file="Include/Session.asp"-->

<Script Language="JavaScript">
<!--
init();
//-->
</script>

<Script Language="JavaScript">
<!--
function ResumeError() {
	return true;
}
	window.onerror=ResumeError;
//-->
</Script>

<%  
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim GuResourceID
dim GuPage
dim GuKeyword,SortID,AsSortID,ArticleSortName

	if Trim(Request.Form("GuComm"))<>"" then
		if isEmpty(Request.Form("GuResourceID")) then
			GuSystemCode=3
			GuSystemMessage="没有选择要操作的文章"
			call GuMessage()
		else
			GuResourceID=Trim(Request.Form("GuResourceID"))

		select case Trim(Request.Form("GuComm"))
		case "CommNameColor"
			call ArticleNameColor()
		case "CommSortAsSort"
			call ArticleSortAsSort()
		case "CommDateTime"
			call ArticleDateTime()
		case "CommShow1"
			call ArticleShow1()
		case "CommShow0"
			call ArticleShow0()
		case "CommCommend"
			call ArticleCommend()
		case "CommReadClear"
			call ArticleReadClear()
		case "CommDelete"
			call ArticleDelete()
		case else
			call Admin_List()
		end select
		end if
	else
		call Admin_List()
	end if


sub ArticleNameColor()

	if Trim(Request.Form("Ar_NameColor_Select"))="" then
		GuSystemCode=3
		GuSystemMessage="没有选择文章标题要更改的颜色"
	else
		GuConn.execute("update "&GuTablePrefix&"_Article set Ar_NameColor='"&Trim(Request.Form("Ar_NameColor_Select"))&"' where Ar_ID in ("&GuResourceID&")")
		GuSystemCode=00
		GuSystemMessage="文章标题颜色批量设置已执行完成"
		GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if

	call GuMessage()

end sub

Sub ArticleSortAsSort()

	if Trim(Request.Form("SortID_Select"))="" or Trim(Request.Form("AsSortID_Select"))="" then
		GuSystemCode=3
		GuSystemMessage="没有选择文章类别或分类名称"
	else
		GuConn.execute("update "&GuTablePrefix&"_Article set Ar_SortID='"&Trim(Request.Form("SortID_Select"))&"',Ar_AsSortID='"&Trim(Request.Form("AsSortID_Select"))&"' where Ar_ID in ("&GuResourceID&")")
		GuConn.execute("update "&GuTablePrefix&"_GuestBook set GB_SortID='"&Trim(Request.Form("SortID_Select"))&"',GB_AsSortID='"&Trim(Request.Form("AsSortID_Select"))&"' where GB_GuResourceID in ("&GuResourceID&")")
		GuSystemCode=00
		GuSystemMessage="文章类别及分类批量更改已执行完成"
		GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if

	call GuMessage()

end sub

Sub ArticleDateTime()

	if Trim(Request.Form("Ar_DateTime"))="" then
		GuSystemCode=3
		GuSystemMessage="没有选择日期"
	else   
		GuConn.execute("update "&GuTablePrefix&"_Article set Ar_DateTime='"&Trim(Request.Form("Ar_DateTime"))&"' where Ar_ID in ("&GuResourceID&")")
		GuSystemCode=00
		GuSystemMessage="文章日期批量更改已执行完成"
		GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if

	call GuMessage()

end Sub

Sub ArticleShow1()

	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_Show=1 where Ar_ID in ("&GuResourceID&")")
	GuSystemCode=00
	GuSystemMessage="文章批量设置显示已完成"
	GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub

Sub ArticleShow0()

	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_Show=0 where Ar_ID in ("&GuResourceID&")")
	GuSystemCode=00
	GuSystemMessage="文章批量设置隐藏已执行完成"
	GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub

sub ArticleCommend()

	if Trim(Request.Form("Ar_CommendB"))="1" then
		GuConn.execute("update "&GuTablePrefix&"_Article set Ar_CommendB=1 where Ar_ID in ("&GuResourceID&")")
	else
		GuConn.execute("update "&GuTablePrefix&"_Article set Ar_CommendB=0 where Ar_ID in ("&GuResourceID&")")
	end if

	GuSystemCode=00
	GuSystemMessage="文章推荐批量设置已执行完成"
	GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub

Sub ArticleReadClear()

	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_DayHits=0 where Ar_ID in ("&GuResourceID&")")
	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_WeekHits=0 where Ar_ID in ("&GuResourceID&")")
	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_MonthHits=0 where Ar_ID in ("&GuResourceID&")")
	GuConn.execute("update "&GuTablePrefix&"_Article set Ar_AllHits=0 where Ar_ID in ("&GuResourceID&")")
	GuSystemCode=00
	GuSystemMessage="文章阅读次数已清除完成"
	GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub

Sub ArticleDelete()

	GuConn.execute("delete from "&GuTablePrefix&"_Article where Ar_ID in ("&GuResourceID&")")
	GuConn.execute("delete from "&GuTablePrefix&"_GuestBook where GB_GuResourceID in ("&GuResourceID&")")
	GuSystemCode=00
	GuSystemMessage="文章信息及相关留言已删除完成"
	GuSystemURL="<a href=""Admin_List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&NC="&Trim(Request.QueryString("NC"))&"&SH="&Trim(Request.QueryString("SH"))&"&UP="&Trim(Request.QueryString("UP"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

end sub


Sub Admin_List()
%>

<%
	dim GuPageSize,GuPageTotal,GuPageCount,GuPageStart
	
	GuPageSize=ArticleListPageSize
	GuPageTotal=1

	GuPage=Trim(Request.QueryString("GuPage"))
	if GuPage<>"" then
		GuPage=Cint(GuPage)
	else
		GuPage=1
	end if

	GuKeyword=Trim(Request.QueryString("GuKeyword"))

	if not isnull(GuKeyword) and GuKeyword<>"" then
		GuKeyword=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(GuKeyword,"'","’"),"<","＜"),">","＞"),"&","＆"),"?","？"),"delete","删除"),"update","更新"),"insert","插入"),"select","选择")
	else
		GuKeyword=""
	end if

	dim rsLi1
	set rsLi1=Server.CreateObject("Adodb.RecordSet")
	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))<>"" then
		SortID=" Ar_SortID="&Trim(Request.QueryString("So"))&" and  "
		AsSortID=" Ar_AsSortID="&Trim(Request.QueryString("AS"))&" "
		GuSQL="select AS_Name from "&GuTablePrefix&"_AsSort where AS_ID="&Trim(Request.QueryString("AS"))
		rsLi1.open GuSQL,GuConn,1,1
		ArticleSortName=rsLi1("AS_Name")
		rsLi1.close
		set rsLi1=Nothing
	 end if

	dim rsLi2
	set rsLi2=Server.CreateObject("Adodb.RecordSet")
	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))="" then
		SortID="Ar_SortID="&Request.QueryString("So")&" "
		GuSQL="select So_Name from "&GuTablePrefix&"_Sort where So_ID="&Trim(Request.QueryString("So"))
		rsLi2.open GuSQL,GuConn,1,1
12 下一页
⌨️ 快捷键说明

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