📄 label_admin.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
字号:
<!--#include file="ACT.Function.asp"-->
<!--#include file="../ACT_inc/cls_pageview.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACTCMS_Label</title>
<link href="Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<% 	Dim Types,ShowErr,Sqls,LabelFlag
	Dim strLocalUrl,i,LabelFolderName,rst
	If Not ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then   Call Actcms.Alert("对不起，你没有操作权限！","")
	Types = ACTCMS.ChkNumeric(ACTCMS.S("Type"))
	LabelFlag = request.QueryString("LabelFlag")
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	IF Request.QueryString("Action") = "Del" Then
		IF ACTCMS.ChkNumeric(Request.QueryString("ID")) = "" Then Response.Write "错误参数":response.end
		actcms.ACTExe("Delete from Label_Act Where ID=" & actcms.ChkNumeric(Request.QueryString("ID")))		
		Set conn=nothing
		ShowErr = "<li>标签删除成功！</li>"
		Response.Redirect("Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl=Label_Admin.asp?Type="&Types&"")
  		Response.End
	End IF
	Dim intPageNow
	intPageNow = request.QueryString("page")
	IF LabelFlag <> "" Then LabelFlag = "And LabelFlag ="& LabelFlag & " "
	Dim intPageSize, strPageInfo
	intPageSize = 20
	Dim arrRecordInfo,pages
	Dim sql, sqlCount
	pages = "LabelFlag="&request.QueryString("LabelFlag")&"&Type="&Types&"&page"
	Sqls = " Where LabelType = "&Types&" "& LabelFlag
				
	Sql = "SELECT [ID], [LabelName], [AddDate],[LabelFlag],[LabelContent]" & _
		" FROM [Label_Act]" &Sqls& _
		"ORDER BY [ID] deSC"
	SqlCount = "SELECT Count([ID])" & _
			" FROM [Label_Act]"&Sqls

	Dim clsRecordInfo
	Set clsRecordInfo = New Cls_PageView
		clsRecordInfo.intRecordCount = 2816
		clsRecordInfo.strSqlCount = sqlCount
		clsRecordInfo.strSql = sql
		clsRecordInfo.intPageSize = intPageSize
		clsRecordInfo.intPageNow = intPageNow
		clsRecordInfo.strPageUrl = strLocalUrl
		clsRecordInfo.strPageVar = pages
	clsRecordInfo.objConn = Conn		
	arrRecordInfo = clsRecordInfo.arrRecordInfo
	strPageInfo = clsRecordInfo.strPageInfo
	Set clsRecordInfo = nothing
	 %>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr>
    <td class="bg_tr">您现在的位置：后台管理中心 >> 标签库</td>
  </tr>
  <tr>
    <td ><a href="?Type=<%=request.QueryString("Type")%>">全部标签</a>
	<%Set rst=actcms.actexe("Select ID,Foldername From ACT_LabelFolder")
		Do While Not rst.Eof
			response.write "<a href=""?Type=1&LabelFlag="&rst("id")&""">"&rst("Foldername")&"</a> ┆"
		rst.MoveNext
		Loop
	  rst.Close:Set rst=Nothing
	%>
	<a href="Label_Admin.asp?Type=2"><strong>自定义静态标签</strong></a>&nbsp; <a href="Include/AddLabel.asp?Action=Add" ><strong>创建标签</strong></a><strong>
	┆<a href="Include/StaticLabel.asp?Action=Add">创建自定义标签</a></strong>
	┆<strong><a href="Include/FreeLabel.asp?Action=Add">创建自由标签</a></strong>
	┆<strong><a href="Include/ACT.LabelinOut.asp?A=Out">标签导出</a></strong>
	┆<strong><a href="Include/ACT.LabelinOut.asp?A=in">标签导入</a></strong>
	</td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr>
    <td width="5%" align="center" class="bg_tr">序号</td>
    <td  align="center" class="bg_tr">标签名称</td>
	<% IF Types = "1" Then%>
	<td  align="center" class="bg_tr">标签属性</td>
	<%End If %>
	<td align="center" class="bg_tr">标签目录</td>
    <td  align="center" class="bg_tr">时间</td>
    <td align="center" class="bg_tr" nowrap>描述/操作</td>
  </tr>
  <%
		If IsArray(arrRecordInfo) Then
			For i = 0 to UBound(arrRecordInfo, 2)
%>
  <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
    <td align="center" ><%= arrRecordInfo(0,i) %></td>
    <td >
	<% IF Types = "1" Then%>
	<a href="include/EditLabel.asp?ID=<%= arrRecordInfo(0,i) %>"><%= arrRecordInfo(1,i) %></a>
	<% ElseIF  Types = "2" Then%>
	<a href="include/StaticLabel.asp?Action=EditLabel&ID=<%= arrRecordInfo(0,i) %>" ><%= arrRecordInfo(1,i) %></a>
	<% Else%>
	<a href="include/FreeLabel.asp?Action=EditLabel&ID=<%= arrRecordInfo(0,i) %>" ><%="{ACTSQL_" & Replace(Replace(arrRecordInfo(1,i), "{ACTSQL_", ""), "}", "") & "()}"  %></a>
	<% End IF %></td>
	 
	 <%
	 IF Types = "1" Then
	 response.write "<td align=""center"">"
	  Dim str,FileNames
	  Str=mid(arrRecordInfo(4,i), InStrrev(arrRecordInfo(4,i), "("))
	  FileNames=Replace(Replace(arrRecordInfo(4,i),Str,""),"{$","")
	  Select Case FileNames
				Case "GetArticleList"
					FileNames="栏目文章列表"
				Case "GetArticlePic"
					FileNames="图片文章列表"
				Case "GetSlide"
					FileNames="幻灯片文章"
				Case "GetLastArticleList"
					FileNames="分页文章列表"
				Case "GetClassForArticleList"
					FileNames="循环栏目文章"
				Case "CorrelationArticleList"
					FileNames="相关文章列表"
				Case "GetNavigation"
					FileNames="网站位置导航"
				Case "GetLinkList"
					FileNames="友情链接列表"
				Case "GetClassNavigation"
					FileNames="网站总导航"
	  End Select 
		response.write  FileNames&"标签 </td>"
	End If 
	 %>
	
	 <td align="center" >
	 <%
	 Set LabelFolderName = ACTCMS.ACTEXE("Select ID,Foldername From ACT_LabelFolder where id="&arrRecordInfo(3,i)&" ")
	 If Not LabelFolderName.eof Then
		response.write "<font color=green>"&LabelFolderName("Foldername")&"</font>"
	 Else
		response.write "<font color=green>系统默认</font>"
	 End If 
	 %>
	 </td>
    <td align="center" ><%= arrRecordInfo(2,i) %></td>
	<td align="center" >
	<% IF Types = "1" Then%>
	<a href="include/ACT.LabelCopy.Asp?A=C&N=<%= arrRecordInfo(1,i) %>&Type=<%= Types %>&ID=<%= arrRecordInfo(0,i) %>">复制</a> ┆
	<a href="include/EditLabel.asp?ID=<%= arrRecordInfo(0,i) %>" >修改</a>
	<% ElseIF  Types = "2" Then%>
	<a href="include/StaticLabel.asp?Action=EditLabel&ID=<%= arrRecordInfo(0,i) %>" >修改</a>
	<% Else%>
	<a href="include/FreeLabel.asp?Action=EditLabel&ID=<%= arrRecordInfo(0,i) %>" >修改</a>
	<% End IF %>
	┆<a href="?Action=Del&Type=<%= Types %>&ID=<%= arrRecordInfo(0,i) %>" onClick="return confirm('确认删除此标签吗?')"> 删除</a> </td>
  </tr>
  <% 
	Next
	End If
	%>
	<tr >
	<td height="25" colspan="7" align="center" ><%= strPageInfo%></td></tr>
</table>
</body>
</html>
<script language="javascript">
function OpenWidndows(Url,Width,Height,WindowObj)
{
	var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:no;help:no;scroll:no;status:0;help:0;scroll:0;');
	return ReturnStr;
}
function OpenWindows(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + 
',resizable=1,scrollbars=1,menubar=0,status=yes');
}
function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
</script>
⌨️ 快捷键说明

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