📄 admin_template.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../inc/commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%If Not FRAdminLevel(307) Then
	Call ErrorMsg()
End If
wid=request.QueryString("wid")
Const strFileName="Admin_Template.asp"
const MaxPerpage=10
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

'#########################################################
'
' 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 Network All Rights Reserved.
' 版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'#########################################################
id=request.QueryString("id")
tid=request.QueryString("tid")
show=request.QueryString("show")
idt=request.QueryString("idt")
cid=request.QueryString("cid")
did=request.QueryString("did")
action=request.QueryString("action")




if action="copy" and cid<>"" then
	sql="select * from JOB_Template where TemplateID="&cid
	set rsc=conn.execute(sql)
	if not rsc.eof then
		set rsf=server.CreateObject("adodb.recordset")
		sql="select * from JOB_Template"
		rsf.open sql,conn,1,3
		rsf.addnew
			rsf("ChannelID")=rsc("ChannelID")
			rsf("TemplateName")=rsc("TemplateName")&"副本"
			rsf("TemplateContent")=rsc("TemplateContent")
			rsf("IsDefault")=False
			rsf("ProjectName")=rsc("ProjectName")
			rsf("IsDefaultInProject")=rsc("IsDefaultInProject")
			rsf("Deleted")=rsc("Deleted")
			rsf("typeid")=rsc("typeid")
		rsf.update
		rsf.close
		set rsf=nothing
	end if
	rsc.close
	set rsc=nothing
end if






if action="del" and did<>"" then
	conn.execute("delete from JOB_Template where TemplateID="&did)
end if
'*************************模板设为默认部分*******************************
if action<>"" and action="yes" and idt<>"" then
		sql="select * from JOB_Template where TemplateID="&idt
		set rst=conn.execute(sql)
			ChannelID_t=rst("ChannelID")
			ProjectName_t=rst("ProjectName")
			typeid=rst("typeid")
		rst.close
		set rst=nothing
		conn.execute("update JOB_Template set IsDefault=False where ChannelID="&ChannelID_t&" and ProjectName='"&ProjectName_t&"' and typeid="&typeid)
		conn.execute("update JOB_Template set IsDefault=True where TemplateID="&idt)
end if
'********************************************************

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../css/style.css" rel=stylesheet type=text/css />
<title>无标题文档</title>
<style type="text/css">
<!--
.style11 {color: #0066CC;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr class="title">
    <th height="22" colspan="8" align="center" ><%call ChannelNametitle()%>模板管理</th>
  </tr>
  <tr class="amrow">
    <td height="20" colspan="6"><font color="ff6600"><b class="style11">　管理选项</b></font>： <a href="addinfo.asp?wid=<%=wid%>">添加
        <%call ChannelNametitle()%>
    </a> | <a href="index.asp?wid=<%=wid%>">管理
    <%call ChannelNametitle()%>
    </a> | <a href="Class_Ok.asp?action=add_class_1&amp;wid=<%=wid%>">添加信息类别</a> | <a href="type.asp?wid=<%=wid%>">管理信息类别</a> | <a href="Admin_AddTemp.asp?wid=<%=wid%>">添加模板</a> | <a href="Admin_Template.asp?wid=<%=wid%>">模板管理</a> |  [<a href="javascript:location.reload()">刷新页面</a>] </td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
    <tr class="title">
      <th height="22" colspan="12" align="center" ><%call ChannelNametitle()%>模板管理</th>
    </tr>
	  <tr class="tdbg">
      <td width="46" height="20" align="center"><font color="ff6600"><b class="style1">模板ID</b></font></td>
      <td width="115" align="center"><font color="ff6600"><b class="style1">模板名称</b></font></td>
      <td width="74" align="center"><font color="ff6600"><b class="style1">所属频道</b></font></td>
      <td width="199" align="center"><font color="ff6600"><b class="style1">所属方案</b></font></td>
      <td width="60" align="center"><font color="ff6600"><b class="style1">是否默认</b></font></td>
      <td width="62" align="center"><font color="ff6600"><b class="style1">默认方案</b></font></td>
      <td width="108" align="center"><font color="ff6600"><b class="style1">模板类型</b></font></td>
      <td width="31" align="center"><font color="ff6600"><b class="style1">修改</b></font></td>
      <td width="29" align="center"><font color="ff6600"><b class="style1">删除</b></font></td>
      <td width="33" align="center"><font color="ff6600"><b class="style1">复制</b></font></td>
    </tr>

	<%
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from JOB_Template where ChannelID="&wid&" order by ProjectName,ChannelID,typeid"
		rs.open sql,conn,1,1
		if not rs.eof then
		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)*MaxPerpage<totalPut then
				rs.move  (page-1)*MaxPerpage
			else
				page=1
			end if
		 do while not rs.eof
	%>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="46" height="20" align="center"><%=rs("TemplateID")%></td>
      <td width="115" align="center"><%=rs("TemplateName")%></td>
      <td width="74" align="center"><%
	  	set rsc=conn.execute("select * from JOB_Channel where ChannelID="&rs("ChannelID"))
		if not rsc.eof then
			response.write rsc("ChannelName")
		end if
		rsc.close
		set rsc=nothing
	  %></td>
      <td width="199" align="center"><%=rs("ProjectName")%></td>
      <td width="60" align="center">
  	  <%
			if rs("IsDefault") then
				response.write "<font color=green><a href="&strFileName&"?action=no&idt="&rs("TemplateID")&"&wid="&wid&">√</a></font>"
			else
				response.write "<font color=red><font color=green><a href="&strFileName&"?action=yes&show=all&idt="&rs("TemplateID")&"&wid="&wid&">×</a></font>"
			end if
		%>	  </td>
      <td width="62" align="center">
  	  <%
			if rs("IsDefaultInProject") then
				response.write "<font color=green>√</font>"
			else
				response.write "<font color=red>×</font>"
			end if
		%>	  </td>
      <td width="108" align="center"><%=myarray(rs("typeid"))%></td>
      <td width="31" align="center"><a href="Admin_AddTemp.asp?action=edit&id=<%=rs("TemplateID")%>&wid=<%=wid%>">修改</a></td>
      <td width="29" align="center"><a href="<%=strFileName%>?action=del&did=<%=rs("TemplateID")%>&wid=<%=wid%>">删除</a></td>
      <td width="33" align="center"><a href="<%=strFileName%>?action=copy&cid=<%=rs("TemplateID")%>&wid=<%=wid%>">复制</a></td>
    </tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
		loop
		else
		%>
		<tr>
 			<td height="22" colspan="12" align="center" >暂无模板		    </td>
		</tr>
		<%
		
	end if
	rs.close
	set rs=nothing

	%>
			<tr>
		  <td height="22" colspan="12" align="center" >
		  	<%
		  	If totalput>0 Then
				Call Showpage(strFileName&"?show=all&tid="&tid,totalput,MaxPerPage,false,true,"套模板")
		 	End If
			%></td>
  		</tr>
</table>
</body>
⌨️ 快捷键说明

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