📄 admin_skin.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../checkvalid.asp"-->
<%
If Not FRAdminLevel(403) 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_Skin.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
'#########################################################
'
' 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.
' 版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'#########################################################
%>
<!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(SkinID,SkinName)
{
   if(confirm("您确定要删除样式【"+SkinName+"】吗？\n\n警告：此操作不可恢复，请慎重操作！"))
     location.href="<%=strFileName%>?Action=Del&SkinID="+SkinID
}
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;
    }
}

</script></head>
<body>
<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_Addskin.asp">添加CSS</a> | <a href="Admin_Skin.asp?show=all">样式管理</a>&nbsp;&nbsp;[<a href="javascript:location.reload()">刷新页面</a>]</td>
  </tr>
</table>
<%
Action=trim(Request("Action"))
Select Case Action
	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_Skin order by SkinID 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="4%" height="22" class=tableHeaderText><strong>编号</strong></td>
		<td width="15%" class=tableHeaderText><strong>名称</strong></td> 
		<td width="25%" class=tableHeaderText><strong>对应方案</strong></td>
		<td width="11%" class=tableHeaderText><strong>图片包</strong></td>
		<td width="11%" class=tableHeaderText><strong>生成文件</strong></td>
		<td width="9%" class=tableHeaderText><strong>是否默认</strong></td>
		<td width="19%" class=tableHeaderText><strong>操作选项</strong></td>
	    <td width="6%" class=tableHeaderText><strong>选中</strong></td>
	  </tr>
	<%
		do while not rs.eof
		SkinID=Rs("SkinID")
		SkinName=Rs("SkinName")
		ProjectName=Rs("ProjectName")
		IsDefault=Rs("IsDefault")
		Filename=Rs("Filename")
		Imgpath=Rs("Imgpath")
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		<td><%=SkinID%></td>
		<td><%=SkinName%></td> 
		<td><%=ProjectName%></td>
		<td><%=Imgpath%></td>
		<td><%=Filename%>.css</td>
		<td><%if IsDefault = True then%>
		  √
            <%else%>
            ×
            <%end if%></td>
		<td><a href="Admin_addSkin.asp?action=edit&id=<%=rs("SkinID")%>">
修改样式内容</a>
<%if IsDefault = True then%>
<font color="#999999">删除</font>
<%else%>
<a href="javascript:ConfirmDel(<%=SkinID%>,'<%=SkinName%>');">删除</a>
<%end if%></td>
	    <td><input name="SkinID" type="checkbox" class="checkbox" value="<%=SkinID%>"<%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="8" 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="8"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"款样式")
End If%></td>
	      </tr>
</form>
</table>
<%End Sub%>

<!--#include file="../inc/copy.asp" -->
<%
sub Del()
	SkinID=trim(Request("SkinID"))
	if SkinID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	end if
	sql="select * from JOB_Skin where SkinID In("& SkinID &")"
    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 + -