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

📄 admin_templateproject.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.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_TemplateProject.asp
'	作    用：模板方案管理
'	最后更新：Fine Sincere (Mr.Hou)
'	最后日期：2007-5-13
'************************************************************
If Not FRAdminLevel(401) Then
	Call ErrorMsg()
End If
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
Dim Action
Dim FoundErr,ErrMsg

Dim page,i
Dim totalPut
const MaxPerpage=20
Const strFileName="Admin_TemplateProject.asp"

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" />
<meta content="noindex,nofollow" name="robots" />
<title>Finereason HRCMS 6.0 后台管理系统</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel(TemplateProjectID,TemplateProjectName)
{
   if(confirm("您确定要删除方案【"+TemplateProjectName+"】吗？\n\n警告：此操作不可恢复，请慎重操作！"))
     location.href="<%=strFileName%>?Action=Del&TemplateProjectID="+TemplateProjectID
}
function unSelectAll()
{
    if(document.form1.chkAll.checked){
	document.form1.chkAll.checked = document.form1.chkAll.checked&0;
    } 	
}
function SelectAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll"&&e.disabled!=true&&e.zzz!=1)
       e.checked = form.chkAll.checked;
    }
}
function confirmX(num)
{
	if(num==1)
	{
		if(document.form1.TemplateProjectName.value.length<1)
		{
		alert("您必须输入新方案名称!")
		document.form1.TemplateProjectName.focus();
		return false;
		}
		if(document.form1.Intro.value.length<1)
		{
		alert("您必须输入新方案备注!")
		document.form1.Introe.focus();
		return false;
		}
		document.form1.action="Admin_TemplateProject.asp";
		document.form1.submit();		
	}
	return false;	
}
</script></head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr class="topbg">
    <th height="22" align="center" class="tableHeaderText"><strong >模板方案管理</strong></th>
  </tr>
  <tr>
    <td height="22"><span class="bodytitle"><font color="ff6600"><b class="style1">　管理选项</b></font>：</span>&nbsp;<a href="<%=strFileName%>?Action=Add">添加模板方案</a>&nbsp;|&nbsp;<a href="<%=strFileName%>">管理模板方案</a>&nbsp;&nbsp;[<a href="javascript:location.reload()">刷新页面</a>]</td>
  </tr>
</table> 
<%
Action=trim(Request("Action"))
Select Case Action
	Case "Add"
		Call ShowData()
	Case "Modify"
		Call ShowData()
	Case "SaveData"
		Call SaveData()
	Case "Default"
		Call Default()
	Case "Copy"
		Call Copy()
	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)
	sql="select * from JOB_TemplateProject order by TemplateProjectID desc"
	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="6%" height="22" class=tableHeaderText><strong>编号</strong></td>
		<td width="24%" class=tableHeaderText><strong>方案名称</strong></td> 
		<td width="25%" class=tableHeaderText><strong>方案备注</strong></td>
		<td width="10%" class=tableHeaderText><strong>是否默认</strong></td>
		<td width="29%" class=tableHeaderText><strong>操作选项</strong></td>
	    <td width="6%" class=tableHeaderText><strong>选中</strong></td>
	  </tr>
	<%
		do while not rs.eof
		TemplateProjectID=Rs("TemplateProjectID")
		TemplateProjectName=Rs("TemplateProjectName")
		Intro=Rs("Intro")
		IsDefault=Rs("IsDefault")
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		<td><%=TemplateProjectID%></td>
		<td><%=TemplateProjectName%></td> 
		<td><%=Intro%></td>
		<td><%if IsDefault = True then%>
		  √
            <%else%>
            ×
            <%end if%></td>
		<td><a href="Admin_Template.asp?id=<%=rs("TemplateProjectID")%>">管理模板</a>
		  <%if IsDefault = True then%>
		  <font color="#999999">设为默认</font>
		  <%else%>
		  <a href="<%=strFileName%>?Action=Default&TemplateProjectID=<%=TemplateProjectID%>">设置默认</a>
		  <%end if%><a href="<%=strFileName%>?Action=Modify&TemplateProjectID=<%=TemplateProjectID%>">
修改方案</a> <a href="<%=strFileName%>?Action=Copy&TemplateProjectID=<%=TemplateProjectID%>&TemplateProjectName=<%=TemplateProjectName%>副本&Intro=<%=Intro%>">复制</a>
<%if IsDefault = True then%>
<font color="#999999">删除</font>
<%else%>
<a href="javascript:ConfirmDel(<%=TemplateProjectID%>,'<%=TemplateProjectName%>');">删除</a>
<%end if%></td>
	    <td><input name="TemplateProjectID" type="checkbox" class="checkbox" value="<%=TemplateProjectID%>"<%if IsDefault = True then%> disabled<%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" align="right"><input name="chkAll" type="checkbox" class="checkbox" onClick="SelectAll(this.form)" value="checkbox" />
          <input name="Action" type="hidden" value="Del" />
          选中所有项目&nbsp;&nbsp;&nbsp;&nbsp;将选定的项目:&nbsp;
<input name="submit" type="submit" class="inputs" value="批量删除" /></td>
	    </tr>
		  <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()
	TemplateProjectID=trim(request.QueryString("TemplateProjectID"))
	If TemplateProjectID<>"" Then
		If IsNumeric(TemplateProjectID)=False Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误！</li>"
			Exit Sub
		End If
		sql="select * from JOB_TemplateProject where TemplateProjectID=" & TemplateProjectID
		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
			TemplateProjectName=Rs("TemplateProjectName")
			Intro=Rs("Intro")
			IsDefault=Rs("IsDefault")
		end if
		rs.Close
		Set rs=Nothing
	End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder mt10">
  <form name="form1" method="post" action="<%=strFileName%>">
    <tr class="title">
      <th height="22" colspan="8" align="center" ><strong>
        <%If TemplateProjectID<>"" Then%>
        修 改
        <%Else%>
        添 加
        <%End If%>
        方 案</strong></th>
    </tr>
    <tr class="amrow">
      <td width="17%" height="40" align="right"><strong>方案名称：</strong></td>
      <td width="22%"><input maxlength="100" size="25" name="TemplateProjectName" value="<%=TemplateProjectName%>" /></td>
      <td width="11%" align="right"><strong>方案备注：</strong></td>
      <td width="21%">
        <input maxlength="100" size="25" name="Intro" value="<%=Intro%>" />
      </td>
      <td width="10%" align="right"><strong>是否默认：</strong></td>
      <td width="19%"><input name="IsDefault" type="radio" class="checkbox" value="True" checked="checked"<%If IsDefault = True Then%><%End If%>  />
        是&nbsp;
        <input name="IsDefault" type="radio" class="checkbox" value="False" checked="checked"<%If IsDefault = False Then%><%End If%> />
      否</td>
    </tr>
    <tr class="tdbg">
      <td height="40" colspan="6" align="center"><input name="TemplateProjectID" type="hidden" value="<%=TemplateProjectID%>" />
          <input name="Action" type="hidden" value="SaveData" />
          <input name="btnSave" type="submit" class="inputs" style="cursor:pointer;" value="<%If TemplateProjectID<>"" Then%> 修 改 <%Else%> 添 加 <%End If%>" />
        &nbsp;
        <input name="btnCancel" type="button" class="inputs" style="cursor:pointer;" onClick="window.location.href='<%=strFileName%>'" value=" 取 消 " />
      </td>
    </tr>
  </form>
</table>
<%End Sub%>
<!--#include file="../inc/copy.asp" -->
<%Sub Default()
	TemplateProjectID=trim(request("TemplateProjectID"))
	if TemplateProjectID<>"" then
	conn.execute("update JOB_TemplateProject set IsDefault = "&FR_HR_False&" where IsDefault = "&FR_HR_True&"")
	conn.execute("update JOB_TemplateProject set IsDefault = "&FR_HR_True&" where TemplateProjectID="&TemplateProjectID&"")
	sql="select * from JOB_TemplateProject where TemplateProjectID="&TemplateProjectID
	set rs1=conn.execute(sql)
	de=rs1("TemplateProjectName")
	rs1.close
	set rs1=nothing
	conn.execute("update JOB_Template set IsDefaultInProject="&FR_HR_False&"")
	conn.execute("update JOB_Template set IsDefaultInProject="&FR_HR_True&" where ProjectName='"&de&"'")
	conn.execute("update JOB_Skin set IsDefaultInProject="&FR_HR_False&"")
	conn.execute("update JOB_Skin set IsDefaultInProject="&FR_HR_True&" where ProjectName='"&de&"'")
	end if
	Call main()
End Sub%>
<%Sub Copy()
	TemplateProjectID=trim(request("TemplateProjectID"))
	TemplateProjectName=trim(request("TemplateProjectName"))
	Intro=trim(request("Intro"))
	If TemplateProjectID<>"" Then
	set rs=Server.CreateObject(FR_HR_RS)
	sql="select * from JOB_TemplateProject"
	rs.open sql,conn,1,3
	rs.AddNew
	rs("TemplateProjectName")=TemplateProjectName
	rs("Intro")=Intro
	rs("IsDefault")=False
	rs.update
	rs.close
	set rs=nothing
	end if
    response.redirect strFileName
	response.End()
End Sub%>	
<%
sub SaveData()
	TemplateProjectID=trim(request("TemplateProjectID"))
	if TemplateProjectID<>"" And IsNumeric(TemplateProjectID)=False then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数错误！</li>"
		Exit Sub
		TemplateProjectID=CLng(TemplateProjectID)
	end if
	TemplateProjectName=Trim(Request.Form("TemplateProjectName"))
	Intro=Request.Form("Intro")
	IsDefault=Request.Form("IsDefault")
	If TemplateProjectName="" Then
		ErrMsg=ErrMsg &"<br><li>方案名称不能为空！</li>"
		FoundErr=True
	End If
	If Intro="" Then
		ErrMsg=ErrMsg &"<br><li>方案备注不能为空！</li>"
		FoundErr=True
	End If
	If IsDefault="" Then
		ErrMsg=ErrMsg &"<br><li>请选择是否默认！</li>"
		FoundErr=True
	End If
	
	If FoundErr=True Then
		Exit Sub
	End If

	set rs=Server.CreateObject(FR_HR_RS)
	If TemplateProjectID<>"" Then
		sql="select * from JOB_TemplateProject Where TemplateProjectID="&TemplateProjectID
	Else
		sql="select * from JOB_TemplateProject"
	End If
	rs.open sql,conn,1,3
	If TemplateProjectID="" Then
		rs.AddNew
	End If
	TemplateProjectNameOld=rs("TemplateProjectName")
	conn.execute("update JOB_Template set ProjectName='"&TemplateProjectName&"' where ProjectName='"&TemplateProjectNameOld&"'")
	conn.execute("update JOB_Skin set ProjectName='"&TemplateProjectName&"' where ProjectName='"&TemplateProjectNameOld&"'")
	rs("TemplateProjectName")=TemplateProjectName
	rs("Intro")=Intro
	if IsDefault="True" then
	If TemplateProjectID<>"" Then
	conn.execute("update JOB_TemplateProject set IsDefault = "&FR_HR_False&" where IsDefault = "&FR_HR_True&" and TemplateProjectID<>"&TemplateProjectID&"")
	Else
	conn.execute("update JOB_TemplateProject set IsDefault = "&FR_HR_False&" where IsDefault = "&FR_HR_True&"")
	End If
	end if
	rs("IsDefault")=IsDefault 
	rs.update
	rs.close
	set rs=nothing
    response.redirect strFileName
	response.End()
end sub
%>
<%
sub Del()
	TemplateProjectID=trim(Request("TemplateProjectID"))
	if TemplateProjectID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	end if
	sql="select * from JOB_TemplateProject where TemplateProjectID In("& TemplateProjectID &")"
    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)
			conn.execute("delete from JOB_Template where ProjectName='"&rs("TemplateProjectName")&"'")
			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 + -