📄 admin_skin.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Skin" '其他权限
Dim ProjectName, rs, sql
ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))
If ProjectName = "" Then
Set rs = Conn.Execute("Select TemplateProjectName From PE_TemplateProject Where IsDefault=" & PE_True & "")
If rs.BOF And rs.EOF Then
Call WriteErrMsg("<li>系统中还没有默认方案,请到方案管理指定默认方案！</li>", ComeUrl)
Response.End
Else
ProjectName = rs("TemplateProjectName")
End If
Set rs = Nothing
End If
Response.Write "<html><head><title>" & ProjectName & "方案 ---- 风格管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle(ProjectName & "方案 ---- 风 格 管 理", 10007)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td><a href='Admin_Skin.asp'>风格管理首页</a> | "
Response.Write "<a href='Admin_Skin.asp?Action=Add'>添加风格</a> | "
Response.Write "<a href='Admin_Skin.asp?Action=Export'>风格导出</a> | "
Response.Write "<a href='Admin_Skin.asp?Action=Import'>风格导入</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Action = Trim(Request("Action"))
Select Case Action
Case "Add"
Call Add
Case "Modify"
Call Modify
Case "SaveAdd"
Call SaveAdd
Case "SaveModify"
Call SaveModify
Case "Set"
Call SetDefault
Case "Del"
Call DelSkin
Case "Export"
Call Export
Case "DoExport"
Call DoExport
Case "Import"
Call Import
Case "Import2"
Call Import2
Case "DoImport"
Call DoImport
Case "Refresh"
Call CreatSkinFile
If FoundErr = False Then
Call WriteSuccessMsg("刷新CSS风格文件成功！", ComeUrl)
End If
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
'=================================================
'过程名：Main
'作 用：调用风格首页
'=================================================
Sub main()
Dim rs, sql
Dim rsTemplateProject, rsProjectName, sqlTemplateProject, i, SysDefault
'得到系统方案默认名称
Set rsProjectName = Conn.Execute("Select TemplateProjectName From PE_TemplateProject Where IsDefault=" & PE_True & "")
If rsProjectName.BOF And rsProjectName.EOF Then
Call WriteErrMsg("<li>系统中还没有默认方案,请到方案管理指定默认方案！</li>", ComeUrl)
Exit Sub
Else
SysDefault = rsProjectName("TemplateProjectName")
End If
Set rsProjectName = Nothing
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write " function CheckAll(thisform){" & vbCrLf
Response.Write " for (var i=0;i<thisform.elements.length;i++){" & vbCrLf
Response.Write " var e = thisform.elements[i];" & vbCrLf
Response.Write " if (e.Name != ""chkAll""&&e.disabled!=true&&e.zzz!=1)" & vbCrLf
Response.Write " e.checked = thisform.chkAll.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write "<IMG SRC='images/img_u.gif' height='12'>您现在的位置：网站风格管理 >> " & ProjectName
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title' height='22' align='center'>"
Response.Write " <td width='30' align='center'><strong>选择</strong></td>"
Response.Write " <td width='50'><strong>ID</strong></td>"
Response.Write " <td width='100'><strong>方案名称</strong></td>"
Response.Write " <td ><strong>风格名称</strong></td>"
If SysDefault = ProjectName Then
Response.Write " <td width='60'><strong>系统默认</strong></td>"
Else
Response.Write " <td width='60'><strong>方案默认</strong></td>"
End If
Response.Write " <td width='300' height='22' align='center'><strong> 操作</strong></td>"
Response.Write " </tr>"
If ProjectName = "" Then
sql = "select * from PE_Skin where ProjectName='' or ProjectName is null"
ElseIf ProjectName = "所有方案" Then
sql = "select * from PE_Skin"
Else
sql = "select * from PE_Skin where ProjectName='" & ProjectName & "'"
End If
Set rs = Conn.Execute(sql)
If rs.BOF And rs.EOF Then
Response.Write "<tr class='tdbg'><td width='100%' colspan='8' align='center'>"
If ProjectName = "" Then
Response.Write "没 有 任 何 风 格"
Else
Response.Write "在 该 方 案 还 没 有 定 义 风 格"
End If
Response.Write "</td></tr>"
Else
Do While Not rs.EOF
Response.Write "<tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width=""30"" align=""center"" height=""30"">" & vbCrLf
Response.Write " <input type=""checkbox"" value=" & rs("SkinID") & " name=""SkinID"""
If rs("IsDefault") = True Or rs("IsDefaultInProject") = True Then Response.Write "disabled"
Response.Write "> " & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " <td width='50' align='center'>" & rs("SkinID") & "</td>"
Response.Write " <td align='center' width='100'>" & rs("ProjectName") & "</td>"
Response.Write " <td align='center'>" & rs("SkinName") & "</td>"
If SysDefault = ProjectName Then
Response.Write " <td width='60' align='center'>"
If rs("IsDefault") = True Then
Response.Write "<FONT style='font-size:12px' color='#008000'><b>√</b></FONT>"
End If
Response.Write "</td>"
Else
Response.Write " <td width='60' align='center'>"
If rs("IsDefaultInProject") = True Then
Response.Write "<b>√</b>"
Else
End If
Response.Write "</td>"
End If
Response.Write " <td width='300' align='center'>"
If SysDefault = ProjectName Then
If rs("IsDefault") = False And ProjectName = SysDefault Then
Response.Write " <a href='Admin_Skin.asp?Action=Set&DefaultType=1&SkinID=" & rs("SkinID") & "&ProjectName=" & ProjectName & "'>设为系统默认</a>"
Else
Response.Write "<font color='gray'> 设为系统默认</font>"
End If
Else
If rs("IsDefaultInProject") = False Then
Response.Write " <a href='Admin_Skin.asp?Action=Set&DefaultType=2&SkinID=" & rs("SkinID") & "&ProjectName=" & ProjectName & "'>设为方案默认</a>"
Else
Response.Write "<font color='gray'> 设为方案默认</font>"
End If
End If
Response.Write " <a href='Admin_Skin.asp?Action=Modify&ProjectName=" & ProjectName & "&SkinID=" & rs("SkinID") & "'>修改风格</a> "
If rs("IsDefaultInProject") = False And rs("IsDefault") = False Then
Response.Write "<a href='Admin_Skin.asp?Action=Del&SkinID=" & rs("SkinID") & "&ProjectName=" & ProjectName & "' onClick=""return confirm('确定要删除此风格吗？删除此风格后原使用此风格的文章将改为使用系统默认风格。');"">删除风格</a>"
Else
Response.Write "<font color='gray'>删除风格</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
rs.MoveNext
Loop
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td colspan=8 height=""30"">" & vbCrLf
Response.Write " <input name=""Action"" type=""hidden"" value=""Del""> " & vbCrLf
Response.Write " <input name=""chkAll"" type=""checkbox"" id=""chkAll"" onclick=CheckAll(this.form) value=""checkbox"" >选中所有项目" & vbCrLf
Response.Write " 将选定的项目： " & vbCrLf
Response.Write " <input type=""submit"" value=""批 量 删 除 "" name=""Del"" onclick='return confirm(""确定要删除此风格吗？删除此风格后原使用此风格的文章将改为使用系统默认风格。"");' > " & vbCrLf
Response.Write " <Input TYPE='hidden' Name='BatchTypeName' value='移动'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr> " & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='40' colspan='7' align='center'><input type='submit' name='Submit' value='刷新风格CSS文件' onclick=""document.myform.Action.value='Refresh'""></td>"
Response.Write " </tr>"
End If
Response.Write " </table>"
Response.Write "</form>"
rs.Close
Set rs = Nothing
End Sub
'=================================================
'过程名：Export
'作 用：导出风格
'=================================================
Sub Export()
Dim rs, sql, iCount
sql = "select * from PE_Skin"
Set rs = Conn.Execute(sql)
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>"
Response.Write " <tr class='title'> "
Response.Write " <td height='22' align='center'><strong>风格导出</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'><td height='10'></td></tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='center'>"
Response.Write " <table border='0' cellspacing='0' cellpadding='0'>"
Response.Write " <tr>"
Response.Write " <td>"
Response.Write " <select name='SkinID' size='2' multiple style='height:300px;width:450px;'>"
If rs.BOF And rs.EOF Then
Response.Write " <option value=''>还没有风格！</option>"
'关闭提交按钮
iCount = 0
Else
iCount = rs.RecordCount
Do While Not rs.EOF
Response.Write " <option value='" & rs("SkinID") & "'>" & rs("SkinName") & "</option>"
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td align='left'> <input type='button' name='Submit' value=' 选定所有 ' onclick='SelectAll()'>"
Response.Write " <br><br> <input type='button' name='Submit' value=' 取消选定 ' onclick='UnSelectAll()'><br><br><br><b> 提示：按住“Ctrl”或“Shift”键可以多选</b></td>"
Response.Write " </tr>"
Response.Write " <tr height='30'>"
Response.Write " <td colspan='2'>目标数据库：<input name='SkinMdb' type='text' id='SkinMdb' value='../Skin/Skin.mdb' size='20' maxlength='50'> <INPUT TYPE='checkbox' NAME='FormatConn' value='yes' id='id' checked> 先清空目标数据库</td>"
Response.Write " </tr>"
Response.Write " <tr height='50'>"
Response.Write " <td colspan='2' align='center'><input type='submit' name='Submit' value='执行导出操作' onClick=""document.myform.Action.value='DoExport';"">"
Response.Write " <input name='Action' type='hidden' id='Action' value='Export'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "<script language='javascript'>" & vbCrLf
Response.Write "function SelectAll(){" & vbCrLf
Response.Write " for(var i=0;i<document.myform.SkinID.length;i++){" & vbCrLf
Response.Write " document.myform.SkinID.options[i].selected=true;}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function UnSelectAll(){" & vbCrLf
Response.Write " for(var i=0;i<document.myform.SkinID.length;i++){" & vbCrLf
Response.Write " document.myform.SkinID.options[i].selected=false;}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -