⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_configic.asp

📁 浪人文章系统
💻 ASP
字号:
🔍 
<%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/PopText.js"></Script>

</head>

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

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

<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim CIC_ID,CIC_Name,CIC_Type,CIC_OldIDA,CIC_OldIDB,CIC_OldName,CIC_Number,CIC_Show,CIC_Order,CIC_IP,CIC_Username,CIC_DateTime
dim isConfigICModify

	CIC_IP=GuUserIP
	CIC_Username=GuAdminUsername
	CIC_DateTime=now()

if Trim(Request.QueryString("GuComm"))="Mo" then
	isConfigICModify=True
	Call Admin_ConfigIC(isConfigICModify)

elseif Trim(Request.QueryString("GuComm"))="MoSa" then
	Call ConfigICModifySave()

elseif Trim(Request.Form("GuComm"))="De" then
	Call ConfigICDelete()

elseif Trim(Request.QueryString("GuComm"))="AdSo" then
	Call ConfigICAddSort()

elseif Trim(Request.QueryString("GuComm"))="AdAS" then
	Call ConfigICAddAsSort()

else
	isConfigICModify=False
	Call Admin_ConfigIC(isConfigICModify)

end if


Sub ConfigICModifySave()

if Trim(Request.Form("CIC_ID"))="" then
	GuSystemCode=3
	GuSystemMessage="请先选择要编辑的资源统计栏目"

elseif Trim(Request.Form("CIC_Name"))="" then
	GuSystemCode=3
	GuSystemMessage="没有填写显示栏目名称"

elseif Trim(Request.Form("CIC_Order"))="" then
	GuSystemCode=3
	GuSystemMessage="没有填写排序代码"

else
	dim rsCIC1
	set rsCIC1=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_ConfigIC where CIC_ID="&Trim(Request.Form("CIC_ID"))
	rsCIC1.open GuSQL,GuConn,1,3
	rsCIC1("CIC_Name")=Trim(Request.Form("CIC_Name"))
	rsCIC1("CIC_Order")=Trim(Request.Form("CIC_Order"))

	if Trim(Request.Form("CIC_Show"))="1" then
		rsCIC1("CIC_Show")="1"
	else
		rsCIC1("CIC_Show")="0"
	end if

	rsCIC1.update
	rsCIC1.close
	set rsCIC1=Nothing
	GuSystemCode=00
	GuSystemMessage="首页资源统计显示栏目已修改完成"
	GuSystemURL="<a href=""Admin_ConfigIC.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end if

	call GuMessage()

end Sub


Sub ConfigICDelete()

if Trim(Request.Form("GuResourceID"))="" then
	GuSystemCode=3
	GuSystemMessage="没有选择要删除的栏目名称"
else
	GuConn.execute("delete from "&GuTablePrefix&"_ConfigIC where CIC_ID in ("&Trim(Request.Form("GuResourceID"))&")")
	GuSystemCode=00
	GuSystemMessage="所选首页资源统计栏目已删除完成"
	GuSystemURL="<a href=""Admin_ConfigIC.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end if

	call GuMessage()

end sub


Sub ConfigICAddSort()

	dim rsCIC4,SortID,So_ID,SortName,So_Name,SortNumber,So_Number
	set rsCIC4=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_Sort where So_ID="&Trim(Request.QueryString("GuSortID"))
	rsCIC4.open GuSQL,GuConn,1,1
	if rsCIC4.bof and rsCIC4.eof then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="所选类别名称不存在"
	else
		SortID=rsCIC4("So_ID")
		SortName=rsCIC4("So_Name")
		SortNumber=rsCIC4("So_Number")

		dim rsCIC5
		set rsCIC5=Server.CreateObject("Adodb.RecordSet")
		rsCIC5.open "select * from "&GuTablePrefix&"_ConfigIC where CIC_Type='Sort' and CIC_OldIDA="&SortID&" and CIC_OldName='"&SortName&"'",GuConn,1,1
		if not(rsCIC5.bof and rsCIC5.eof) then
			GuSystemError=true
			GuSystemCode=3
			GuSystemMessage="资源统计栏目已有相同的类别名称存在"
		else
			dim rsCIC6
			set rsCIC6=Server.CreateObject("Adodb.RecordSet")
			rsCIC6.open "select * from "&GuTablePrefix&"_ConfigIC where CIC_Name='"&SortName&"'",GuConn,1,3
			GuSQL="select * from "&GuTablePrefix&"_ConfigIC where (CIC_ID is null)"
			rsCIC6.addnew
			rsCIC6("CIC_Name")=SortName
			rsCIC6("CIC_Type")="Sort"
			rsCIC6("CIC_OldIDA")=SortID
			rsCIC6("CIC_OldIDB")=SortID
			rsCIC6("CIC_OldName")=SortName
			rsCIC6("CIC_Number")=SortNumber
			rsCIC6("CIC_Show")="1"
			rsCIC6("CIC_Order")="0"
			rsCIC6("CIC_Username")=CIC_Username
			rsCIC6("CIC_IP")=CIC_IP
			rsCIC6("CIC_DateTime")=now()
			rsCIC6.update
			rsCIC6.close
			set rsCIC6=Nothing
			GuSystemCode=00
			GuSystemMessage="所选类别已添加到首页资源统计栏目"
			GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_Back.gif"" border=""0""></a>&nbsp;<a href=""Admin_ConfigIC.asp""><img src=""Images/Admin_Button_Goto.gif"" border=""0""></a>"
		end if
		rsCIC5.close
		set rsCIC5=Nothing
		end if
	rsCIC4.close
	set rsCIC4=Nothing

	call GuMessage()

end Sub


Sub ConfigICAddAsSort()

	dim rsCIC7,SortID,AS_SortID,AsSortID,AS_ID,AsSortName,AsSortNumber
	set rsCIC7=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_AsSort where AS_ID="&Trim(Request.QueryString("GuAsSortID"))
	rsCIC7.open GuSQL,GuConn,1,1
	if rsCIC7.bof and rsCIC7.eof then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="所选分类名称不存在"
	else
		SortID=rsCIC7("AS_SortID")
		AsSortID=rsCIC7("AS_ID")
		AsSortName=rsCIC7("AS_Name")
		AsSortNumber=rsCIC7("AS_Number")

	dim rsCIC8
	set rsCIC8=Server.CreateObject("Adodb.RecordSet")
	rsCIC8.open "select * from "&GuTablePrefix&"_ConfigIC where CIC_Type='AsSort' and CIC_OldIDB="&AsSortID&" and CIC_OldName='"&AsSortName&"'",GuConn,1,1
		if not(rsCIC8.bof and rsCIC8.eof) then
			GuSystemError=true
			GuSystemCode=3
			GuSystemMessage="资源统计栏目已有相同的分类名称存在"
		else
			dim rsCIC9
			set rsCIC9=Server.CreateObject("Adodb.RecordSet")
			rsCIC9.open "select * from "&GuTablePrefix&"_ConfigIC where CIC_Name='"&AsSortName&"'",GuConn,1,3
			GuSQL="select * from "&GuTablePrefix&"_ConfigIC where (CIC_ID is null)"
			rsCIC9.addnew
			rsCIC9("CIC_Name")=AsSortName
			rsCIC9("CIC_Type")="AsSort"
			rsCIC9("CIC_OldIDA")=SortID
			rsCIC9("CIC_OldIDB")=AsSortID
			rsCIC9("CIC_OldName")=AsSortName
			rsCIC9("CIC_Number")=AsSortNumber
			rsCIC9("CIC_Show")="1"
			rsCIC9("CIC_Order")="0"
			rsCIC9("CIC_Username")=CIC_Username
			rsCIC9("CIC_IP")=CIC_IP
			rsCIC9("CIC_DateTime")=now()
			rsCIC9.update
			rsCIC9.close
			set rsCIC9=Nothing
			GuSystemCode=00
			GuSystemMessage="所选分类已添加到首页资源统计栏目"
			GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_Back.gif"" border=""0""></a>&nbsp;<a href=""Admin_ConfigIC.asp""><img src=""Images/Admin_Button_Goto.gif"" border=""0""></a>"
		end if
		rsCIC8.close
		set rsCIC8=Nothing
		end if
	rsCIC7.close
	set rsCIC7=Nothing

	call GuMessage()

end Sub


Sub Admin_ConfigIC(isConfigICModify)

	dim rsCIC1
	set rsCIC1=Server.CreateObject("Adodb.RecordSet")
	if isConfigICModify then
		rsCIC1.open "select * from "&GuTablePrefix&"_ConfigIC where CIC_ID="&Trim(Request.QueryString("CIC_ID")),GuConn,1,1
	end if
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_ConfigIC" method="post" action="Admin_ConfigIC.asp?GuComm=MoSa">
 <tr>
  <td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center" colspan="4"><font class="BlackS12"><b>首 页 资 源 统 计 栏 目 管 理</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" bgcolor="#FFFFFF" colspan="4"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">显示名称</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="CIC_Name" Maxlength="20" value="<%if isConfigICModify then Response.write rsCIC1("CIC_Name") end if %>" class="Admin_InputText" style="width:168;background-color:#EAFBF5;"></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">原有名称</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="CIC_OldName" Maxlength="20" value="<%if isConfigICModify then Response.write rsCIC1("CIC_OldName") end if %>" class="Admin_InputText" style="width:168;background-color:#FFFFFF;" readonly></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">排序代码</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="CIC_Order" Maxlength="7" value="<%if isConfigICModify then Response.write rsCIC1("CIC_Order") end if %>" class="Admin_InputText" style="width:70;background-color:#EAFBF5;" onKeypress="if(event.keyCode<48||event.keyCode>57)event.returnValue=false;"></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">设置状态</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<font class="BlackS12"><input type="radio" name="CIC_Show" value="1" id="CIC_Show1_L"<%if isConfigICModify then%><%if rsCIC1("CIC_Show")="1" then Response.write " checked" end if%><%end if%>><label for="CIC_Show1_L">显示</label>&nbsp;&nbsp;<input type="radio" name="CIC_Show" value="0" id="CIC_Show0_L"<%if isConfigICModify then%><%if rsCIC1("CIC_Show")="0" then Response.write " checked" end if%><%end if%>><label for="CIC_Show0_L">隐藏</label></font></td>
 </tr>
 <tr>
  <td width="80" height="38" bgcolor="#FFFFFF"></td>
  <td width="518" height="38" bgcolor="#FFFFFF" colspan="3">&nbsp;<input type="hidden" name="CIC_ID" value="<%if isConfigICModify then Response.write rsCIC1("CIC_ID") end if %>"><input type="submit" name="Submit" value="" class="Admin_Button_Modify">&nbsp;<input type="Reset" value name="Admin_Button_Reset" class="Admin_Button_Reset"></td>
 </tr>
</form>
</table>
<%
if isConfigICModify then
	rsCIC1.close
	set rsCIC1=Nothing
	end if
%>
<br>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_ConfigIC_List" method="post" action="Admin_ConfigIC.asp">
 <tr> 
  <td width="40" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编号</font></td>
  <td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">选择</font></td>
  <td width="180" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">显示名称</font></td>
  <td width="41" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">状态</font></td>
  <td width="41" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编号</font></td>
  <td width="138" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">原有名称</font></td>
  <td width="68" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">排序代码</font></td>
  <td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编辑</font></td>
 </tr>
<%
dim rsCIC2
set rsCIC2=Server.CreateObject("Adodb.RecordSet")
rsCIC2.open "select top 100 * from "&GuTablePrefix&"_ConfigIC order by CIC_Order asc",GuConn,1,1
if rsCIC2.bof and rsCIC2.eof then
	Response.write "<tr><td width=""600"" height=""40"" bgcolor=""#FFFFFF"" colspan=""8"">&nbsp;<font class=""SilverS12"">没有找到相关数据</font></td></tr>"
else
	do while not rsCIC2.eof
	CIC_ID=rsCIC2("CIC_ID")
%><tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
  <td width="40" height="26" align="center"><font class="BlackS12"><%=CIC_ID%></font></td>
  <td width="38" height="26" align="center"><input type="checkbox" name="GuResourceID" value="<%=CIC_ID%>"<%if CIC_ID="1" or CIC_ID="2" or CIC_ID="3" or CIC_ID="4" or CIC_ID="5" or CIC_ID="6" then Response.write " disabled" end if%>></td>
  <td width="180" height="26">&nbsp;<font class="BlackV12"><%=rsCIC2("CIC_Name")%></font></td>
  <td width="41" height="26" align="center"><%if rsCIC2("CIC_Show")="1" then Response.write "<font class=""BlackV12"">显示" else Response.write "<font class=""SilverS12"">隐藏" end if%></font></td>
  <td width="41" height="26" align="center"><font class="BlackS12"><%=rsCIC2("CIC_OldIDB")%></font></td>
  <td width="138" height="26">&nbsp;<font class="BlackV12"><%=rsCIC2("CIC_OldName")%></font></td>
  <td width="68" height="26" align="center"><font class="BlackS12"><%=rsCIC2("CIC_Order")%></font></td>
  <td width="38" height="26" align="center"><a href="Admin_ConfigIC.asp?GuComm=Mo&CIC_ID=<%=CIC_ID%>"><img src="Images/Admin_Modify.gif" border="0" width="16" height="16" title="编辑"></a></td>
 </tr>
<%
	rsCIC2.movenext
	loop
%>
<tr>
  <td width="600" height="38" bgcolor="#FFFFFF" colspan="8" align="right"><input type="hidden" name="GuComm" value="De"><input type="submit" name="Submit" value class="Admin_Button_Delete">&nbsp;</td>
 </tr>
<%
end if
	rsCIC2.close
	set rsCIC2=Nothing
%>
</form>
</table>

<br>

<%end sub%>

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

</body>
</html>

<%CloseDatabase%>

⌨️ 快捷键说明

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