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

📄 admin_addskin.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../checkvalid.asp"-->
<!--#include file="../../Inc/Commoncode.asp" -->
<%If Not FRAdminLevel(108) Then
	Call ErrorMsg()
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.
' 版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'#########################################################
SkinID=request.QueryString("id")
action=request.QueryString("action")
skinname=request.form("skinname")
tempfa=request.form("tempfa")
filename=request.form("filename")
Application("filename")=filename
imgpath=request.form("imgpath")
content=request.form("content")
de=request.form("de")
if skinname<>"" and tempfa<>"0" and content<>"" then
	if action<>"edit" then
'*********************这是添加的**************************
		if de then
			set rsc=server.CreateObject("adodb.recordset")
			sql="select * from JOB_Skin where ProjectName='"&tempfa&"'"
			rsc.open sql,conn,1,3
			if not rsc.eof then
			do while not rsc.eof
				rsc("IsDefault")=False
			rsc.movenext
			loop
			end if
			rsc.close
			set rsc=nothing
		end if
'*********************查看方案是否默认*****************************
		set rsp=server.CreateObject("adodb.recordset")
		sql="select * from JOB_TemplateProject where TemplateProjectName='"&tempfa&"'"
		rsp.open sql,conn,1,1
			IsDefaultInProject=rsp("IsDefault")
		rsp.close
		set rsp=nothing
'**************************************************
		set rs=server.CreateObject ("adodb.recordset")
		sql="select * from JOB_Skin"
		rs.open sql,conn,1,3
		rs.addnew
		rs("SkinName")=SkinName
		rs("Skin_CSS")=server.HTMLEncode(content)
		rs("IsDefault")=de
		rs("ProjectName")=tempfa
		rs("IsDefaultInProject")=IsDefaultInProject
		rs("filename")=filename
		rs("imgpath")=imgpath
		rs.update
		rs.close
		set rs=nothing
	else
'*********************这是修改的**************************
		if de then
			set rsc=server.CreateObject("adodb.recordset")
			sql="select * from JOB_Skin where ProjectName='"&tempfa&"'"
			rsc.open sql,conn,1,3
			if not rsc.eof then
			do while not rsc.eof
				rsc("IsDefault")=False
			rsc.movenext
			loop
			end if
			rsc.close
			set rsc=nothing
		end if
		set rs=server.CreateObject ("adodb.recordset")
		sql="select * from JOB_Skin where SkinID="&SkinID
		rs.open sql,conn,1,3
		rs("SkinName")=SkinName
		rs("Skin_CSS")=server.HTMLEncode(content)
		rs("IsDefault")=de
		rs("ProjectName")=tempfa
		rs("filename")=filename
		rs("imgpath")=imgpath
		
		rs.update
		rs.close
		set rs=nothing
	end if
createsccfile()
response.write "<script language=javascript>alert('操作成功');location.href='Admin_Skin.asp?show=all';</script>"
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">
<LINK href="../css/style.css" rel=stylesheet type=text/css> 
<title>模板管理</title>
<script language="javascript" src="../Inc/Admin.js"></script><script language="javascript">
function check(){
	if(form1.skinname.value=="")
	{
		alert("对不起样式名称不能为空！");
		return false;
	}
	if(form1.tempfa.value==0)
	{
		alert("对不起请选择样式方案！");
		return false;
	}
	if(form1.imgpath.value==0)
	{
		alert("对不起请输入图片包地址！");
		return false;
	}
	if(form1.content.value=="")
	{
		alert("对不起样式内容不能为空！");
		return false;
	}

	return true;
}

</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>
<%
	if action="edit" and SkinID<>"" then
	set rs1=server.CreateObject("adodb.recordset")
	sql="select * from JOB_Skin where SkinID="&SkinID
	rs1.open sql,conn,1,1
	SkinName=rs1("SkinName")
	ProjectName=rs1("ProjectName")
	Skin_CSS=rs1("Skin_CSS")
	IsDefault=rs1("IsDefault")
	filename=rs1("filename")
	imgpath=rs1("imgpath")
	rs1.close
	set rs1=nothing
	end if
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder mt10">
  <form id="form1" name="form1" method="post" action="" onSubmit="return check();">
    <tr>
      <th height="22" colspan="4" align="center" >添加CSS </th>
    </tr>
    <tr class="amrow">
      <td width="120" height="20" align="right" bgcolor="#F0F0F0" class="cf7">名称： </td>
      <td width="825" height="20" bgcolor="#F0F0F0" class="cf7"><label>
        <input name="skinname" type="text" id="skinname" value="<%=SkinName%>" />
      </label></td>
    </tr>
    <tr class="amrow">
      <td height="20" align="right" bgcolor="#F0F0F0" class="cf7">对应方案：</td>
      <td height="20" bgcolor="#F0F0F0" class="cf7"><select name="tempfa" id="tempfa">
        <option value="0">请选择方案</option>
        <%
				Set rs= Server.CreateObject(FR_HR_RS)
				sql="select * from JOB_TemplateProject order by TemplateProjectID desc"
				rs.open sql,conn,1,1
				do while not rs.eof
				if  ProjectName = rs("TemplateProjectName") then
					response.write "<option value="&rs("TemplateProjectName")&" selected>"&rs("TemplateProjectName")&"</option>"
				else
					response.write "<option value="&rs("TemplateProjectName")&">"&rs("TemplateProjectName")&"</option>"
				end if
				rs.movenext
				loop
				rs.close
				set rs=nothing

		  %>
      </select></td>
    </tr>
    <tr class="amrow">
      <td height="20" align="right" bgcolor="#F0F0F0" class="cf7">生成文件：</td>
      <td height="20" bgcolor="#F0F0F0" class="cf7"><label>
        <input name="filename" type="text" id="filename" value="<%=filename%>" size="10">
      </label>.css
      说明:生成文件必须支持写文件到服务器,如不支持请清空</td>
    </tr>
    <tr class="amrow">
      <td height="20" align="right" bgcolor="#F0F0F0" class="cf7">图片包路径：</td>
      <td height="20" bgcolor="#F0F0F0" class="cf7"><label>
        <input name="imgpath" type="text" id="imgpath" value="<%=imgpath%>">
      说明:图片包路径最后必须包含"/"</label></td>
    </tr>
    

    <tr class="amrow">
      <td height="20" align="right" bgcolor="#F0F0F0" class="cf7">内容：</td>
      <td height="20" bgcolor="#F0F0F0" class="cf7">
	  <textarea name="content" rows=10 id=t1 style="width:100%;"><%=Skin_CSS%></textarea>	  </td>
    </tr>
    <tr class="amrow">
      <td height="20" align="right" bgcolor="#F0F0F0" class="cf7">是否默认：</td>
      <td height="20" bgcolor="#F0F0F0" class="cf7"><label>
	  <%
	  	if IsDefault=True then
	  %>
        <input name="de" type="radio" class="checkbox" value="True" checked="checked" />
		<% else %>
		        <input name="de" type="radio" class="checkbox" value="True" />
		<% end if %>

      </label>
      是 　
      <label>
	  <%
	  	if IsDefault=False then
	  %>

      <input name="de" type="radio" class="checkbox" value="False" checked="checked" />
		<% else %>
      <input name="de" type="radio" class="checkbox" value="False" />
		<% end if %>
	  </label>
      否</td>
    </tr>
    <tr class="amrow">
      <td height="20" colspan="2" align="center" bgcolor="#F0F0F0" class="cf7"><label>
        <input name="Submit" type="submit" class="inputs" value="<%
		if action="edit" then
		response.write "修改"
		else
		response.write "提交"
		end if
 %>" />
        &nbsp;
        <input name="Submit2" type="reset" class="inputs" value="重置" />
      </label></td>
    </tr>
  </form>
</table>
</body>
</html>
<%
Sub createsccfile()
	On error resume Next
	Dim Fso,filename,Skin_CSS
	Set FSO=Server.CreateObject(FR_HR_fso)
	If  Err Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>您的服务器不支持写文件,CSS文件写入失败！</li>"
		Exit Sub
	end If
	filename=Application("filename")
	Skin_CSS=content
	Fso.CreateTextFile(Server.MapPath("../../css/"& filename &".css")).WriteLine(Skin_CSS)
	If  Err Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>您的服务器不支持写文件,CSS文件写入失败！</li>"
		Exit Sub
	End If
	Set FSO=Nothing  
End Sub
%>

⌨️ 快捷键说明

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