📄 admin_channel.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%
If Not FRAdminLevel(301) Then
	Call ErrorMsg()
End If
action=request("action")
id=request("id")
if action="stop" and id<>"" then
	conn.execute("update JOB_Channel set Disabled=True where ChannelID="&id)
end if
if action="start" and id<>"" then
	conn.execute("update JOB_Channel set Disabled=False where ChannelID="&id)
end if
if action="del" and id<>"" then
	dir=request.QueryString("dir")
	set rs=conn.execute("select ChannelID,orderid from JOB_Channel where ChannelID="&id)
	conn.execute("update JOB_Channel set orderid=orderid-1 where ChannelID>"&rs("orderid"))
	if dir<>"" then
	Set fso = CreateObject(FR_HR_fso)
	  if fso.FolderExists(server.MapPath("/"&dir)) Then    '判断文件夹是否存在
		 fso.DeleteFolder(server.MapPath("/"&dir))
	  end if            
	end if
	rs.close
	set rs=nothing
	conn.execute("delete from JOB_Channel where ChannelID="&id)
end if
%>

<html>
<head>
<title>嘉缘人才管理系统</title>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<link href="../css/style.css" rel=stylesheet type=text/css> 
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr>
    <th height=25 class="tableHeaderText">频道管理 </th>
  </tr>
  <tr>
    <td height="22" class="bodytitle"><font color="ff6600"><b class="style1">　频道管理</b></font>：　<A href="Admin_Channel.asp">频道管理首页</A>　|　<a href="Admin_addChannel.asp">添加频道</a>　|　<a href="admin_orderchannel.asp">频道排序</a></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr>
    <th height=25 colspan="10" class="tableHeaderText">频道管理 </th>
  </tr>
  <tr>
    <td width="55" align="center" class="bodytitle"><font color="ff6600"><b class="style1">频道ID</b></font></td>
    <td width="75" height="22" align="center" class="bodytitle"><font color="ff6600"><b class="style1">频道名称</b></font></td>
    <td width="70" align="center"><font color="ff6600"><b class="style1">打开方式</b></font></td>
    <td width="70" align="center" class="bodytitle"><font color="ff6600"><b class="style1">频道类型</b></font></td>
    <td width="205" height="22" align="center"><font color="ff6600"><b class="style1"><STRONG>频道目录/链接地址</STRONG></b></font></td>
    <td width="73" align="center"><font color="ff6600"><b class="style1"><STRONG>项目名称</STRONG></b></font></td>
    <td width="73" align="center"><font color="ff6600"><b class="style1"><STRONG>功能模块</STRONG></b></font></td>
    <td width="77" align="center"><STRONG><font color="ff6600"><b class="style1"><STRONG>生成HTML</STRONG></b></font></STRONG></td>
    <td width="68" height="22" align="center"><font color="ff6600"><b class="style1"><STRONG>频道状态</STRONG></b></font></td>
    <td width="139" align="center"><STRONG><font color="ff6600"><b class="style1"><STRONG>操作</STRONG></b></font></STRONG></td>
  </tr>
  <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from JOB_Channel order by orderid"
rs.open sql,conn,1,1
do while not rs.eof
  %>
  <tr 
  <%
    if rs("Disabled") then 
  response.write "bgcolor='#BFDFFF'"
  end if
  %> onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" bgcolor="#EFEFEF"> 
    <td width="55" align="center"><%=rs("ChannelID")%></td>
    <td width="75" align="center"><%=rs("ChannelName")%></td>
    <td align="center">
		<%
			if rs("OpenType")=0 then
			response.write "原窗口"
			else
			response.write "新窗口"
			end if
		%>
	</td>
    <td width="70" align="center">
		<%
			select case rs("ChannelType")
			case 0
			response.write "<font color=green>系统频道</font>"
			case 1
			response.write "<font color=blue>内部频道</font>"
			case 2
			response.write "<font color=red>外部频道</font>"
			end select
		%>
	</td>
    <td width="205">
		<%
			if not isnull(rs("LinkUrl")) then
			response.write "地址："&rs("LinkUrl")
			else
			response.write "目录："&rs("ChannelDir")
			end if
		%>
	</td>
    <td width="73" align="center"><%=rs("ChannelShortName")%>　</td>
	  <td width="73" align="center">
	  <%
	  		'myarray=("招聘","求职","院校","猎头","培训","留言","测评","派遣","下载","文章")
			select case rs("ModuleType")
			case 1
			response.write "求职"
			case 2
			response.write "招聘"
			case 3
			response.write "院校"
			case 4
			response.write "猎头"
			case 5
			response.write "培训"
			case 6
			response.write "留言"
			case 7
			response.write "测评"
			case 8
			response.write "派遣"
			case 9
			response.write "下载"
			case 10
			response.write "文章"
			case 11
			response.write "论坛"
			case 12
			response.write "视频招聘"
			case 13
			response.write "视频简历"
			case 14
			response.write "帮助"
			case 15
			response.write "分站"
			case else
			response.write "未知"
			end select
	  %>
    </td>
		<td width="77" align="center">
			<%
				if rs("UseCreateHTML")=0 then
					response.write "<font color=red>×</font>"
					else
					response.write "<font color=green>√</font>"
				end if
			%>
	</td>
		<td width="68" align="center">
			<%
				if rs("Disabled") then
					response.write "<font color=red>×</font>"
					else
					response.write "<font color=green>√</font>"
				end if
			%>
	</td>
        <td width="139">
			&nbsp;
			<%	
				'if rs("ChannelType")<>0 then
				response.write "<a href=admin_addchannel.asp?action=edit&eid="&rs("ChannelID")&">修改&nbsp;"
				'end if
				if rs("Disabled") then
				response.write "<a href=?action=start&id="&rs("ChannelID")&">开启</a>&nbsp;"
				else
				response.write "<a href=?action=stop&id="&rs("ChannelID")&">禁用</a>&nbsp;"
				end if
				if rs("ChannelType")<>0 then
				response.write "<a href=?action=del&id="&rs("ChannelID")&"&dir="&rs("ChannelDir")&">删除</a>"
				end if
			%>
	</td>
  </tr>
 <%
 rs.movenext
 loop
 rs.close
 set rs=nothing
 %>
</table>
<!--#include file="../inc/copy.asp" -->
</body>
</html>
<%conn.Close:Set conn=Nothing%>
⌨️ 快捷键说明

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