📄 admin_sort.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="3"%>

<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">
<!--
function Admin_Sort_Check() {
 if (document.Admin_Sort.SoAS_Name.value=="") {
	JS_M_SoAS_Name.innerHTML="<font color=#FF0000>请填写类别(分类)或其它链接的名称</font>"
	document.Admin_Sort.SoAS_Name.focus();
	return (false);
	}
 if (document.Admin_Sort.SoAS_Order.value=="") {
	JS_M_SoAS_Order.innerHTML="<font color=#FF0000>请填写排列先后顺序的数字代码</font>"
	document.Admin_Sort.SoAS_Order.focus();
	return (false);
	}
 if ((document.Admin_Sort.SoAS_Type.value=="AsSort")&&(document.Admin_Sort.SoAS_SortID.value=="")) {
	JS_M_SoAS_Name.innerHTML="<font color=#FF0000>请选择分类所属的类别</font>"
	document.Admin_Sort.SoAS_SortID.focus();
	return (false);
	}
 if ((document.Admin_Sort.SoAS_Type.value=="Other")&&(document.Admin_Sort.SoAS_OtherLink.value=="")) {
	JS_M_SoAS_Type.innerHTML="<font color=#FF0000>请填写其它链接指向的网址</font>"
	document.Admin_Sort.SoAS_OtherLink.focus();
	return (false);
	}

	return true;
}
//-->
</Script>

<Script language="JavaScript">
<!--
function MakeVisible(cur,which) {
	if (which==0)
		cur.filters.alpha.opacity=100
	else
		cur.filters.alpha.opacity=20
	}
//-->
</Script>

</head>

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

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

<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim SoAS_Name,SoAS_SortID,SoAS_Type,SoAS_Order,SoAS_OtherLink,SoAS_Username,SoAS_IP,SoAS_DateTime
dim isSortModify,isAsSortModify
dim GuSortID,GuAsSortID

	
if Trim(Request.Form("GuComm"))="SOASADSA" or Trim(Request.Form("GuComm"))="SOASMOSA" then

	GuSystemError=false

	if Trim(Request.Form("SoAS_Name"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写类别(分类)或其它链接的名称"
		call GuMessage()

	elseif Trim(Request.Form("SoAS_Type"))="" then
 		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有选择类型，类别(分类)或其它链接"
		call GuMessage()

	elseif Trim(Request.Form("SoAS_Type"))="AsSort" and Trim(Request.Form("SoAS_SortID"))="" then
 		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有选择分类所属的类别"
		call GuMessage()

	elseif Trim(Request.Form("SoAS_Type"))="Other" and Trim(Request.Form("SoAS_OtherLink"))="" then
 		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写其它链接所指向的网址"
		call GuMessage()

	elseif Trim(Request.Form("SoAS_Order"))="" then
 		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写排列先后顺序的数字代码"
		call GuMessage()
	else
		SoAS_Name=Trim(Request.Form("SoAS_Name"))
		SoAS_SortID=Trim(Request.Form("SoAS_SortID"))
		SoAS_Type=Trim(Request.Form("SoAS_Type"))
		SoAS_Order=Trim(Request.Form("SoAS_Order"))

		if Trim(Request.Form("SoAS_Type"))="Other" then
			SoAS_OtherLink=Trim(Request.Form("SoAS_OtherLink"))
		else
			SoAS_OtherLink=""
		end if

		SoAS_Username=GuAdminUsername
		SoAS_IP=GuUserIP
		SoAS_DateTime=now()

		if Trim(Request.Form("GuComm"))="SOASADSA" then
			if Trim(Request.Form("SoAS_Type"))="AsSort" then
				Call AsSortAddSave()
			else
				Call SortAddSave()
			end if
		else
			if Trim(Request.Form("SoAS_Type"))="AsSort" then
				Call AsSortModifySave()
			else
				Call SortModifySave()
			end if
		end if

	end if

elseif Trim(Request.QueryString("GuComm"))="SOMO" or Trim(Request.QueryString("GuComm"))="OTMO" then
	isSortModify=True
	isAsSortModify=False
	Call Admin_Sort(isSortModify,isAsSortModify)

elseif Trim(Request.QueryString("GuComm"))="ASMO" then
	isSortModify=False
	isAsSortModify=True
	Call Admin_Sort(isSortModify,isAsSortModify)

elseif Trim(Request.QueryString("GuComm"))="SODE" then
	Call SortDelete()

elseif Trim(Request("GuComm"))="ASDE" then
	Call AsSortDelete()

else
	isSortModify=False
	isAsSortModify=False
	Call Admin_Sort(isSortModify,isAsSortModify)
end if


Sub SortAddSave()

	dim rsSo1
	set rsSo1=Server.CreateObject("Adodb.RecordSet")
	rsSo1.open "select * from "&GuTablePrefix&"_Sort where So_Name='"&SoAS_Name&"'",GuConn,1,1
	if not(rsSo1.bof and rsSo1.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="相同的类别名称(其它链接)已经存在"
	else
		dim rsSoA
		set rsSoA=Server.CreateObject("Adodb.RecordSet")
		rsSoA.open "select * from "&GuTablePrefix&"_Sort where So_Name='"&Trim(Request.Form("SoAS_Name"))&"'",GuConn,1,3
		GuSQL="select * from "&GuTablePrefix&"_Sort where (So_ID is null)"
		rsSoA.addnew
		rsSoA("So_Name")=SoAS_Name
		rsSoA("So_Type")=SoAS_Type
		rsSoA("So_Number")="0"
		rsSoA("So_OtherLink")=SoAS_OtherLink
		rsSoA("So_Order")=SoAS_Order
		rsSoA("So_Username")=SoAS_Username
		rsSoA("So_IP")=SoAS_IP
		rsSoA("So_DateTime")=SoAS_DateTime
		rsSoA.update
		rsSoA.close
		set rsSoA=Nothing
		GuSystemCode=00
		GuSystemMessage="新的类别名称(其它链接)已添加完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if
	rsSo1.close
	set rsSo1=Nothing

	call GuMessage()	
	
end Sub


Sub SortModifySave()

	dim rsSo2
	set rsSo2=Server.CreateObject("Adodb.RecordSet")
	rsSo2.open "select * from "&GuTablePrefix&"_Sort where So_Name='"&SoAS_Name&"' and So_ID<>"&Trim(Request.Form("SortID")),GuConn,1,1
	if not(rsSo2.bof and rsSo2.eof) then
		GuSystemCode=3
		GuSystemMessage="相同的类别名称(其它链接)已经存在"
	else
		GuSQL="update "&GuTablePrefix&"_Sort set So_Name='"&SoAS_Name&"',So_OtherLink='"&SoAS_OtherLink&"',So_Order="&SoAS_Order&" where So_ID="&Trim(Request.Form("SortID"))
		GuConn.execute GuSQL
		GuSystemCode=00
		GuSystemMessage="类别名称(其它链接)已修改完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if
	rsSo2.close
	set rsSo2=Nothing

	call GuMessage()

end Sub


Sub SortDelete()

	if Trim(Request.QueryString("GuSortID"))="" then
		GuSystemCode=3
		GuSystemMessage="没有选择要删除的类别名称"
	else
		GuSortID=Trim(Request.QueryString("GuSortID"))
		GuConn.execute("delete from "&GuTablePrefix&"_Sort where So_ID in ("&GuSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_AsSort where AS_SortID in ("&GuSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_Article where Ar_SortID in ("&GuSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_GuestBook where GB_SortID in ("&GuSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_ConfigIC where CIC_Type='Sort' and CIC_OldIDA in ("&GuSortID&")")
		GuSystemCode=00
		GuSystemMessage="该类别及以下的所有相关内容已删除完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if

	call GuMessage()

end Sub


sub AsSortAddSave()

	dim rsAS1
12 下一页
⌨️ 快捷键说明

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