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

📄 admin_label.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../../Inc/CommonFunction.asp" -->
<!--#include file="../checkvalid.asp"-->
<%
'************************************************************
'	Software name: Finereason HRCMS 6.0
'	软件名称:嘉缘人才网站内容管理系统 V6.0
'	Email: service@finereason.com . QQ:109530926
'	Web: http://www.finereason.com  http://www.yjys.net
'	Copyright (C) FineSincere Inc. All Rights Reserved.
'	版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'	文件名称：Admin_Label.asp
'	作    用：网站标签管理
'	最后更新：Fine Sincere (Mr.Hou)
'	最后日期：2007-5-14
'************************************************************
If Not FRAdminLevel(404) Then
	Call ErrorMsg()
End If
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
LabelType=trim(Request("LabelType"))
Dim Action
Dim FoundErr,ErrMsg

Dim page,i
Dim totalPut
const MaxPerpage=20
strFileName="Admin_Label.asp?LabelType="&LabelType&""
page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
	If page<1 Or Len(page)>10 Then
		page=1
	Else
    	page=CLng(page)
	End If
Else
	page=1
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Finereason HRCMS 6.0 后台管理系统</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel(ID,Name)
{
   if(confirm("您确定要删除标签【"+Name+"】吗？\n\n警告：此操作不可恢复，请慎重操作！"))
     location.href="<%=strFileName%>&Action=Del&LabelID="+ID
}
</script><style type="text/css">
<!--
#AddLabelM {
	display:none;
	background-color:#FFFFFF;
	position:absolute;
	left:240px;
	top:44px;
	width:120px;
	height:111px;
	z-index:1;
	padding:4px;
	FILTER: alpha(opacity=90);
}
#AddLabelM li{
margin:0;
padding:0 2px;
float:left;
width:100%
}
-->
</style>
</head>
<body>
<div id="AddLabelM"><li><a href="#" onClick="window.open('GetResumeList.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加人才函数标签</a></li>
<li><a href="#" onClick="window.open('GetComList.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加企业函数标签</a></li>
<li><a href="#" onClick="window.open('GetHireList.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加职位函数标签</a></li>
<li><a href="#" onClick="window.open('GetArticleList.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加文章函数标签</a></li>
<li><a href="#" onClick="window.open('GetSlide.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加幻灯片函数标签</a></li>
<li><a href="#" onClick="window.open('GetLink.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no');document.getElementById('AddLabelM').style.display='none';">添加链接函数标签</a></li></div>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr>
    <th height="22" align="center" >通用标签管理</th>
  </tr>
  <tr>
    <td height="20"><span class="bodytitle"><font color="ff6600"><b class="style1">　管理选项</b></font>：</span><a href="Admin_Label.asp">管理首页</a> | <a href="#" onClick="window.open ('HtmlLabel.asp?Action=Add','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no') ">添加静态标签</a> | <a href="#" onClick="javascript:document.getElementById('AddLabelM').style.display='block'">添加函数标签</a> |&nbsp;[<a href="javascript:location.reload()">刷新页面</a>]</td>
  </tr>
  <tr>
    <td height="20"><font color="ff6600"><b class="style1">　标签类型</b></font>：<a href="Admin_Label.asp">系统内置标签</a> | <a href="Admin_Label.asp?LabelType=5">自定义静态标签</a> | <a href="Admin_Label.asp?LabelType=6">自定义函数标签</a></td>
  </tr>
</table>
<%
Action=trim(Request("Action"))
Select Case Action
	Case "Add"
		Call ShowData()
	Case "Del"
		Call Del()
	Case Else
		Call main()
End Select

if FoundErr=True then
	call Show_Err()
end if

Conn.Close
Set Conn=Nothing
%>
<%
sub main()
Set rs= Server.CreateObject(FR_HR_RS)
	If LabelType<>"" Then
	sql="select * from JOB_Label where LabelType="&LabelType&" order by LabelID desc"
	else
	sql="select * from JOB_Label where LabelType<5 order by LabelID desc"
	end if
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>暂无此类标签，请添加后再进行管理！</li>"
		exit sub
	else
		totalPut=rs.recordcount
		if (page-1)*MaxPerpage>totalput then
			if (totalPut mod MaxPerpage)=0 then
				page= totalPut \ MaxPerpage
			else
				page= totalPut \ MaxPerpage + 1
			end if
		end if
		if page=1 then
			Call MainInfo()
		else
			if (page-1)*MaxPerpage<totalPut then
				rs.move  (page-1)*MaxPerpage
				dim bookmark
				bookmark=rs.bookmark
				Call MainInfo()
			else
				page=1
				Call MainInfo()
			end if
		end if
	end if
	rs.close
	set rs=nothing
End Sub
%>
<%Sub MainInfo()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder mt10">
<form name="form1" method="Post" action="<%=strFileName%>">
	  <tr class="title" align="center">
		<td width="5%" height="22" class=tableHeaderText><strong>编号</strong></td>
		<td width="18%" class=tableHeaderText><strong>标签名称</strong></td> 
		<td width="9%" class=tableHeaderText><strong>标签类型</strong></td>
		<td width="42%" class=tableHeaderText><strong>标签简介</strong></td>
		<td width="16%" class=tableHeaderText><strong>最后编辑时间</strong></td>
		<td width="10%" class=tableHeaderText><strong>操作选项</strong></td>
      </tr>
	<%
		do while not rs.eof
		LabelID=Rs("LabelID")
		LabelName=Rs("LabelName")
		LabelType=Rs("LabelType")
		LabelContent=Rs("LabelContent")
		LabelIntro=Rs("LabelIntro")
		Labeleditdate=Rs("Labeleditdate")
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		<td align="center"><%=LabelID%></td>
		<td align="left"><%=LabelName%></td> 
		<td align="center">
		<%Select Case LabelType
			Case 5
			Response.Write "静态标签"
			Case 6
			Response.Write "函数标签"
			Case 7
			Response.Write "动态标签"
			Case 8
			Response.Write "JS标签"
			Case else
			Response.Write "系统标签"
		End Select%></td>
		<td align="left"><%=LabelIntro%></td>
		<td align="center"><%=Labeleditdate%></td>
		<td align="center">
		<%select case LabelType
			case 0
				alink=Replace(left(LabelContent,InStr(LabelContent, "(")-1),"{$","")&".asp?Action=Modify&LabelID="&LabelID&""
			case 1
				alink="HtmlLabel.asp?Action=Modify&LabelID="&LabelID&""
			case 2
				alink=Replace(left(LabelContent,InStr(LabelContent, "(")-1),"{$","")&".asp?Action=Modify&LabelID="&LabelID&""
			case 3
				alink="DiyLabel.asp?Action=Modify&LabelID="&LabelID&""
			case 4
				alink="Jslabel.asp?Action=Modify&LabelID="&LabelID&""
			case 5
				alink="HtmlLabel.asp?Action=Modify&LabelID="&LabelID&""
			case 6
				alink=Replace(left(LabelContent,InStr(LabelContent, "(")-1),"{$","")&".asp?Action=Modify&LabelID="&LabelID&""
			case 7
				alink="DiyLabel.asp?Action=Modify&LabelID="&LabelID&""
			case 8
				alink="Jslabel.asp?Action=Modify&LabelID="&LabelID&""
		end select%>
		  <a href="#" onClick="window.open ('<%=alink%>','newwindow','height=500,width=550,top=0,left=0,toolbar=no,menubar=no,scrollbars=yes, resizable=no,location=no, status=no') ">
修改</a> 
<%if LabelType>=5 then%><a href="javascript:ConfirmDel(<%=LabelID%>,'<%=LabelName%>');">删除</a><%end if%></td>
      </tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
		loop
	%>
		  
		  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		    <td colspan="6"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"个标签")
End If%></td>
	      </tr>
</form>
</table>
<%End Sub%>
<%
Sub ShowData()
	LabelID=trim(request.QueryString("LabelID"))
	If LabelID<>"" Then
		If IsNumeric(LabelID)=False Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误！</li>"
			Exit Sub
		End If
		sql="select * from JOB_Label where LabelID=" & LabelID
		set rs=server.CreateObject (FR_HR_RS)
		rs.open sql,conn,1,1
		if rs.bof and rs.eof then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>此标签不存在或者已经删除！</li>"
			Exit Sub
		else
			Title=Rs("LabelName")
			Content=Rs("JOB_Content")
			Author=Rs("JOB_Author")
			DateAndTime=Rs("Labeladddate")
			IsSelected=Rs("JOB_IsSelected")
			LabelType=Rs("LabelType")
			ShowType=Rs("JOB_ShowType")
			OutTime=Rs("JOB_OutTime")
		end if
		rs.Close
		Set rs=Nothing
	End If
%>
<%End Sub%>
<%
sub Del()
	LabelID=trim(Request("LabelID"))
	if LabelID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	end if
	sql="select * from JOB_Label where LabelID In("& LabelID &")"
    set rs=server.CreateObject ("Adodb.recordset")
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>标签不存在或者已被删除！</li>"
		exit sub
	else
		Do While Not(rs.Eof)
			rs.delete
			rs.update
			rs.MoveNext
		Loop
	end if
	rs.close
	set rs=nothing
    response.redirect strFileName
	response.End()
end sub
%>

⌨️ 快捷键说明

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