<% '###################################### ' eWebEditor v6.2 - Advanced online web based WYSIWYG HTML editor. ' Copyright (c) 2003-2008 eWebSoft.com ' ' For further information go to http://www.ewebsoft.com/ ' This copyright notice MUST stay intact for use. '###################################### %> <% Dim sStyleID, sStyleName, sFixWidth, sSkin, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl, sStyleUploadObject, sStyleAutoDir, sStyleBaseHref, sStyleContentPath, sStyleAutoRemote, sStyleShowBorder, sStyleAllowBrowse Dim sSLTFlag, sSLTMinSize, sSLTOkSize, sSYWZFlag, sSYText, sSYFontColor, sSYFontSize, sSYFontName, sSYPicPath, sSLTSYObject, sSLTSYExt, sSYWZMinWidth, sSYShadowColor, sSYShadowOffset, sSYWZMinHeight, sSYWZPosition, sSYWZTextWidth, sSYWZTextHeight, sSYWZPaddingH, sSYWZPaddingV, sSYTPFlag, sSYTPMinWidth, sSYTPMinHeight, sSYTPPosition, sSYTPPaddingH, sSYTPPaddingV, sSYTPImageWidth, sSYTPImageHeight, sSYTPOpacity, sCusDirFlag Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleRemoteExt, sStyleLocalExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize, sStyleRemoteSize, sStyleLocalSize Dim sToolBarID, sToolBarName, sToolBarOrder, sToolBarButton Dim sSBCode, sSBEdit, sSBText, sSBView Dim sEnterMode, sAreaCssMode Dim nStyleID sPosition = sPosition & "样式管理" If sAction = "STYLEPREVIEW" Then Call InitStyle() Call ShowStylePreview() Response.End End If Call Header() Call ShowPosition() Call Content() Call Footer() Sub Content() Select Case sAction Case "UPDATECONFIG" Call DoUpdateConfig() Case "COPY" Call InitStyle() Call DoCopy() Call ShowStyleList() Case "STYLEADD" Call ShowStyleForm("ADD") Case "STYLESET" Call InitStyle() Call ShowStyleForm("SET") Case "STYLEADDSAVE" Call CheckStyleForm() Call DoStyleAddSave() Case "STYLESETSAVE" Call CheckStyleForm() Call DoStyleSetSave() Case "STYLEDEL" Call InitStyle() Call DoStyleDel() Call ShowStyleList() Case "CODE" Call InitStyle() Call ShowStyleCode() Case "TOOLBAR" Call InitStyle() Call ShowToolBarList() Case "TOOLBARADD" Call InitStyle() Call DoToolBarAdd() Call ShowToolBarList() Case "TOOLBARMODI" Call InitStyle() Call DoToolBarModi() Call ShowToolBarList() Case "TOOLBARDEL" Call InitStyle() Call DoToolBarDel() Call ShowToolBarList() Case "BUTTONSET" Call InitStyle() Call InitToolBar() Call ShowButtonList() Case "BUTTONSAVE" Call InitStyle() Call InitToolBar() Call DoButtonSave() Case Else Call ShowStyleList() End Select End Sub Sub ShowPosition() Response.Write "" & _ "" & _ "" & _ "
" & sPosition & "
[所有样式列表]    [新建一样式]    [更新所有样式的前台配置文件]    [返回前一页]

" End Sub Sub ShowMessage(str) Response.Write "
" & str & "

" End Sub Sub ShowStyleList() Call ShowMessage("以下为当前所有样式列表：") Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" Dim sManage, i, aCurrStyle For i = 1 To Ubound(aStyle) aCurrStyle = Split(aStyle(i), "|||") sManage = "预览|代码|设置|工具栏|拷贝|删除" Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" Next Response.Write "
样式名最佳宽度最佳高度说明管理
" & outHTML(aCurrStyle(0)) & "" & aCurrStyle(4) & "" & aCurrStyle(5) & "" & outHTML(aCurrStyle(26)) & "" & sManage & "

" Call ShowMessage("提示：你可以通过“拷贝”一样式以达到快速新建样式的目的。") End Sub Sub DoCopy() Dim i, b, sNewID, sNewName b = False i = 0 Do While b = False i = i + 1 sNewName = sStyleName & i If StyleName2ID(sNewName) = -1 Then b = True End If Loop Dim nNewStyleID nNewStyleID = Ubound(aStyle) + 1 Redim Preserve aStyle(nNewStyleID) aStyle(nNewStyleID) = sNewName & Mid(aStyle(nStyleID), Len(sStyleName)+1) Dim nToolbarNum, nNewToolbarID, aCurrToolbar nToolbarNum = Ubound(aToolbar) For i = 1 To nToolbarNum aCurrToolbar = Split(aToolbar(i), "|||") If aCurrToolbar(0) = sStyleID Then nNewToolbarID = Ubound(aToolbar) + 1 Redim Preserve aToolbar(nNewToolbarID) aToolbar(nNewToolbarID) = nNewStyleID & "|||" & aCurrToolbar(1) & "|||" & aCurrToolbar(2) & "|||" & aCurrToolbar(3) End If Next Call WriteConfig() Call WriteStyle(nNewStyleID) Call GoUrl("?") End Sub Function StyleName2ID(str) Dim i StyleName2ID = -1 For i = 1 To UBound(aStyle) If Lcase(Split(aStyle(i), "|||")(0)) = Lcase(str) Then StyleName2ID = i Exit Function End If Next End Function Sub ShowStyleForm(sFlag) Dim s_Title, s_Action Dim s_FormStateFlag, s_FormDetectFromWord, s_FormInitMode, s_FormBaseUrl, s_FormUploadObject, s_FormAutoDir, s_FormAutoRemote, s_FormShowBorder, s_FormSLTFlag, s_FormSYWZFlag, s_FormSLTSYObject, s_FormAllowBrowse, s_FormSYTPFlag, s_FormSYWZPosition, s_FormSYTPPosition, s_FormCusDirFlag Dim s_FormSBCode, s_FormSBEdit, s_FormSBView, s_FormSBText Dim s_FormEnterMode, s_FormAreaCssMode If sFlag = "ADD" Then sStyleID = "" sStyleName = "" sFixWidth = "" sSkin = "office2003" sStyleUploadDir = "uploadfile/" sStyleBaseHref = "" sStyleContentPath = "" sStyleWidth = "550" sStyleHeight = "350" sStyleMemo = "" s_Title = "新增样式" s_Action = "StyleAddSave" sStyleFileExt = "rar|zip|exe|doc|xls|chm|hlp" sStyleFlashExt = "swf" sStyleImageExt = "gif|jpg|jpeg|bmp" sStyleMediaExt = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov" sStyleRemoteExt = "gif|jpg|bmp" sStyleFileSize = "500" sStyleFlashSize = "100" sStyleImageSize = "100" sStyleMediaSize = "100" sStyleRemoteSize = "100" sStyleStateFlag = "1" sSBCode = "1" sSBEdit = "1" sSBText = "1" sSBView = "1" sEnterMode = "1" sAreaCssMode = "0" sStyleAutoRemote = "1" sStyleShowBorder = "0" sStyleAllowBrowse = "0" sStyleUploadObject = "0" sStyleAutoDir = "0" sStyleDetectFromWord = "1" sStyleInitMode = "EDIT" sStyleBaseUrl = "1" sSLTFlag = "0" sSLTMinSize = "300" sSLTOkSize = "120" sSYWZFlag = "0" sSYText = "版权所有..." sSYFontColor = "000000" sSYFontSize = "12" sSYFontName = "宋体" sSYPicPath = "" sSLTSYObject = "0" sSLTSYExt = "bmp|jpg|jpeg|gif" sSYWZMinWidth = "100" sSYShadowColor = "FFFFFF" sSYShadowOffset = "1" sStyleLocalExt = "gif|jpg|bmp|wmz" sStyleLocalSize = "100" sSYWZMinHeight = "100" sSYWZPosition = "1" sSYWZTextWidth = "66" sSYWZTextHeight = "17" sSYWZPaddingH = "5" sSYWZPaddingV = "5" sSYTPFlag = "0" sSYTPMinWidth = "100" sSYTPMinHeight = "100" sSYTPPosition = "1" sSYTPPaddingH = "5" sSYTPPaddingV = "5" sSYTPImageWidth = "88" sSYTPImageHeight = "31" sSYTPOpacity = "1" sCusDirFlag = "0" Else sStyleName = inHTML(sStyleName) sSkin = inHTML(sSkin) sStyleUploadDir = inHTML(sStyleUploadDir) sStyleBaseHref = inHTML(sStyleBaseHref) sStyleContentPath = inHTML(sStyleContentPath) sStyleMemo = inHTML(sStyleMemo) sSYText = inHTML(sSYText) sSYFontColor = inHTML(sSYFontColor) sSYFontSize = inHTML(sSYFontSize) sSYFontName = inHTML(sSYFontName) sSYPicPath = inHTML(sSYPicPath) s_Title = "设置样式" s_Action = "StyleSetSave" End If s_FormStateFlag = InitCheckBox("d_stateflag", "1", sStyleStateFlag) s_FormSBCode = InitCheckBox("d_sbcode", "1", sSBCode) s_FormSBEdit = InitCheckBox("d_sbedit", "1", sSBEdit) s_FormSBText = InitCheckBox("d_sbtext", "1", sSBText) s_FormSBView = InitCheckBox("d_sbview", "1", sSBView) s_FormEnterMode = InitSelect("d_entermode", Split("Enter输入

，Shift+Enter输入
|Enter输入
，Shift+Enter输入

", "|"), Split("1|2", "|"), sEnterMode, "", "") s_FormAreaCssMode = InitSelect("d_areacssmode", Split("常规模式|Word导入模式", "|"), Split("0|1", "|"), sAreaCssMode, "", "") s_FormAutoRemote = InitSelect("d_autoremote", Split("自动上传|不自动上传", "|"), Split("1|0", "|"), sStyleAutoRemote, "", "") s_FormShowBorder = InitSelect("d_showborder", Split("默认显示|默认不显示", "|"), Split("1|0", "|"), sStyleShowBorder, "", "") s_FormAllowBrowse = InitSelect("d_allowbrowse", Split("是,开启|否,关闭", "|"), Split("1|0", "|"), sStyleAllowBrowse, "", "") s_FormUploadObject = InitSelect("d_uploadobject", Split("无组件上传类|ASPUpload上传组件|SA-FileUp上传组件|LyfUpload上传组件", "|"), Split("0|1|2|3", "|"), sStyleUploadObject, "", "") s_FormAutoDir = InitSelect("d_autodir", Split("不使用|年目录|年月目录|年月日目录", "|"), Split("0|1|2|3", "|"), sStyleAutoDir, "", "") s_FormDetectFromWord = InitSelect("d_detectfromword", Split("自动检测有提示|不自动检测", "|"), Split("1|0", "|"), sStyleDetectFromWord, "", "") s_FormInitMode = InitSelect("d_initmode", Split("代码模式|编辑模式|文本模式|预览模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "", "") s_FormBaseUrl = InitSelect("d_baseurl", Split("相对路径|绝对根路径|绝对全路径|站外绝对全路径", "|"), Split("0|1|2|3", "|"), sStyleBaseUrl, "", "") s_FormSLTFlag = InitSelect("d_sltflag", Split("使用|不使用", "|"), Split("1|0", "|"), sSLTFlag, "", "") s_FormSYWZFlag = InitSelect("d_sywzflag", Split("不使用|使用|前台用户控制", "|"), Split("0|1|2", "|"), sSYWZFlag, "", "") s_FormSLTSYObject = InitSelect("d_sltsyobject", Split("AspJpeg图形组件", "|"), Split("0", "|"), sSLTSYObject, "", "") s_FormSYTPFlag = InitSelect("d_sytpflag", Split("不使用|使用|前台用户控制", "|"), Split("0|1|2", "|"), sSYTPFlag, "", "") s_FormSYWZPosition = InitSelect("d_sywzposition", Split("左上|左中|左下|中上|中中|中下|右上|右中|右下", "|"), Split("1|2|3|4|5|6|7|8|9", "|"), sSYWZPosition, "", "") s_FormSYTPPosition = InitSelect("d_sytpposition", Split("左上|左中|左下|中上|中中|中下|右上|右中|右下", "|"), Split("1|2|3|4|5|6|7|8|9", "|"), sSYTPPosition, "", "") s_FormCusDirFlag = InitSelect("d_cusdirflag", Split("禁用|启用", "|"), Split("0|1", "|"), sCusDirFlag, "", "") Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
  " & s_Title & "（鼠标移到输入框可看说明，带*号为必填项）
样式名称： *初始模式：" & s_FormInitMode & " *
限宽模式宽度：界面皮肤目录： *
最佳宽度： *最佳高度： *
显示状态栏及按钮：" & s_FormStateFlag & "状态栏 " & s_FormSBCode & "代码 " & s_FormSBEdit & "编辑 " & s_FormSBText & "文本 " & s_FormSBView & "预览*Word粘贴：" & s_FormDetectFromWord & " *
远程文件：" & s_FormAutoRemote & " *指导方针：" & s_FormShowBorder & " *
回车换行模式：" & s_FormEnterMode & " *编辑区CSS模式：" & s_FormAreaCssMode & " *
备注说明：
   上传相关设置（相关设置说明详见用户手册）：
上传组件：" & s_FormUploadObject & " *年月日自动目录：" & s_FormAutoDir & " *
上传文件浏览：" & s_FormAllowBrowse & " *自定上传路径接口：" & s_FormCusDirFlag & "
路径模式：" & s_FormBaseUrl & " * 说明上传路径： *
显示路径：内容路径：
   允许上传文件类型及文件大小设置（文件大小单位为KB，0表示不允许）：
图片类型：图片限制：KB
Flash类型：Flash限制：KB
媒体类型：媒体限制：KB
附件类型：附件限制：KB
远程类型：远程限制：KB
本地类型：本地限制：KB
   缩略图及水印相关设置：
图形处理组件：" & s_FormSLTSYObject & "处理图形扩展名：
缩略图使用状态：" & s_FormSLTFlag & "缩略图长度条件：px
缩略图生成长度：px  
文字水印使用状态：" & s_FormSYWZFlag & "文字水印启用条件：宽:px  高:px
文字水印内容：文字水印字体颜色：
文字水印阴影颜色：文字水印阴影大小：px
文字水印字体大小：px文字水印字体名称：
文字水印位置：" & s_FormSYWZPosition & "文字水印边距：左右:px  上下:px
文字水印文字占位：宽:px  高:px 
图片水印使用状态：" & s_FormSYTPFlag & "图片水印启用条件：宽:px  高:px
图片水印位置：" & s_FormSYTPPosition & "图片水印边距：左右:px  上下:px
图片水印图片路径：图片水印透明度：
图片水印图片占位：宽:px  高:px 
水印宽高检测区：
 

" Dim sMsg sMsg = "

路径模式设置说明：
" & _ "相对路径：指所有的相关上传或自动插入文件路径，编辑后都以""UploadFile/...""或""../UploadFile/...""形式呈现，当使用此模式时，显示路径和内容路径必填，显示路径必须以""/""开头和结尾，内容路径设置中不能以""/""开头。
" & _ "绝对根路径：指所有的相关上传或自动插入文件路径，编辑后都以""/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。
" & _ "绝对全路径：指所有的相关上传或自动插入文件路径，编辑后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。
" & _ "站外绝对全路径：当使用此模式时，上传路径必须是实际物理路径，如：""c:\xxx\""；显示路径为空；内容路径必须以""http""开头。

" Call ShowMessage(sMsg) End Sub Sub InitStyle() Dim b, aCurrStyle b = False sStyleID = Trim(Request("id")) If IsNumeric(sStyleID) = True Then nStyleID = Clng(sStyleID) If nStyleID <= Ubound(aStyle) Then aCurrStyle = Split(aStyle(nStyleID), "|||") sStyleName = aCurrStyle(0) sFixWidth = aCurrStyle(1) sSkin = aCurrStyle(2) sStyleUploadDir = aCurrStyle(3) sStyleBaseHref = aCurrStyle(22) sStyleContentPath = aCurrStyle(23) sStyleWidth = aCurrStyle(4) sStyleHeight = aCurrStyle(5) sStyleMemo = aCurrStyle(26) sStyleFileExt = aCurrStyle(6) sStyleFlashExt = aCurrStyle(7) sStyleImageExt = aCurrStyle(8) sStyleMediaExt = aCurrStyle(9) sStyleRemoteExt = aCurrStyle(10) sStyleFileSize = aCurrStyle(11) sStyleFlashSize = aCurrStyle(12) sStyleImageSize = aCurrStyle(13) sStyleMediaSize = aCurrStyle(14) sStyleRemoteSize = aCurrStyle(15) sStyleStateFlag = aCurrStyle(16) sSBCode = aCurrStyle(62) sSBEdit = aCurrStyle(63) sSBText = aCurrStyle(64) sSBView = aCurrStyle(65) sEnterMode = aCurrStyle(66) sAreaCssMode = aCurrStyle(67) sStyleAutoRemote = aCurrStyle(24) sStyleShowBorder = aCurrStyle(25) sStyleUploadObject = aCurrStyle(20) sStyleAutoDir = aCurrStyle(21) sStyleDetectFromWord = aCurrStyle(17) sStyleInitMode = aCurrStyle(18) sStyleBaseUrl = aCurrStyle(19) sSLTFlag = aCurrStyle(29) sSLTMinSize = aCurrStyle(30) sSLTOkSize = aCurrStyle(31) sSYWZFlag = aCurrStyle(32) sSYText = aCurrStyle(33) sSYFontColor = aCurrStyle(34) sSYFontSize = aCurrStyle(35) sSYFontName = aCurrStyle(36) sSYPicPath = aCurrStyle(37) sSLTSYObject = aCurrStyle(38) sSLTSYExt = aCurrStyle(39) sSYWZMinWidth = aCurrStyle(40) sSYShadowColor = aCurrStyle(41) sSYShadowOffset = aCurrStyle(42) sStyleAllowBrowse = aCurrStyle(43) sStyleLocalExt = aCurrStyle(44) sStyleLocalSize = aCurrStyle(45) sSYWZMinHeight = aCurrStyle(46) sSYWZPosition = aCurrStyle(47) sSYWZTextWidth = aCurrStyle(48) sSYWZTextHeight = aCurrStyle(49) sSYWZPaddingH = aCurrStyle(50) sSYWZPaddingV = aCurrStyle(51) sSYTPFlag = aCurrStyle(52) sSYTPMinWidth = aCurrStyle(53) sSYTPMinHeight = aCurrStyle(54) sSYTPPosition = aCurrStyle(55) sSYTPPaddingH = aCurrStyle(56) sSYTPPaddingV = aCurrStyle(57) sSYTPImageWidth = aCurrStyle(58) sSYTPImageHeight = aCurrStyle(59) sSYTPOpacity = aCurrStyle(60) sCusDirFlag = aCurrStyle(61) b = True End If End If If b = False Then GoError "无效的样式ID号，请通过页面上的链接进行操作！" End If End Sub Sub CheckStyleForm() sStyleName = Trim(Request("d_name")) sFixWidth = Trim(Request("d_fixwidth")) sSkin = Trim(Request("d_skin")) sStyleUploadDir = Trim(Request("d_uploaddir")) sStyleBaseHref = Trim(Request("d_basehref")) sStyleContentPath = Trim(Request("d_contentpath")) sStyleWidth = Trim(Request("d_width")) sStyleHeight = Trim(Request("d_height")) sStyleMemo = Trim(Request("d_memo")) sStyleImageExt = Trim(Request("d_imageext")) sStyleFlashExt = Trim(Request("d_flashext")) sStyleMediaExt = Trim(Request("d_mediaext")) sStyleRemoteExt = Trim(Request("d_remoteext")) sStyleFileExt = Trim(Request("d_fileext")) sStyleImageSize = Trim(Request("d_imagesize")) sStyleFlashSize = Trim(Request("d_flashsize")) sStyleMediaSize = Trim(Request("d_mediasize")) sStyleRemoteSize = Trim(Request("d_remotesize")) sStyleFileSize = Trim(Request("d_filesize")) sStyleStateFlag = Trim(Request("d_stateflag")) sSBCode = Trim(Request("d_sbcode")) sSBEdit = Trim(Request("d_sbedit")) sSBText = Trim(Request("d_sbtext")) sSBView = Trim(Request("d_sbview")) sEnterMode = Trim(Request("d_entermode")) sAreaCssMode = Trim(Request("d_areacssmode")) sStyleAutoRemote = Trim(Request("d_autoremote")) sStyleShowBorder = Trim(Request("d_showborder")) sStyleUploadObject = Trim(Request("d_uploadobject")) sStyleAutoDir = Trim(Request("d_autodir")) sStyleDetectFromWord = Trim(Request("d_detectfromword")) sStyleInitMode = Trim(Request("d_initmode")) sStyleBaseUrl = Trim(Request("d_baseurl")) sSLTFlag = Trim(Request("d_sltflag")) sSLTMinSize = Trim(Request("d_sltminsize")) sSLTOkSize = Trim(Request("d_sltoksize")) sSYWZFlag = Trim(Request("d_sywzflag")) sSYText = Trim(Request("d_sytext")) sSYFontColor = Trim(Request("d_syfontcolor")) sSYFontSize = Trim(Request("d_syfontsize")) sSYFontName = Trim(Request("d_syfontname")) sSYPicPath = Trim(Request("d_sypicpath")) sSLTSYObject = Trim(Request("d_sltsyobject")) sSLTSYExt = Trim(Request("d_sltsyext")) sSYWZMinWidth = Trim(Request("d_sywzminwidth")) sSYShadowColor = Trim(Request("d_syshadowcolor")) sSYShadowOffset = Trim(Request("d_syshadowoffset")) sStyleAllowBrowse = Trim(Request("d_allowbrowse")) sStyleLocalExt = Trim(Request("d_localext")) sStyleLocalSize = Trim(Request("d_localsize")) sSYWZMinHeight = Trim(Request("d_sywzminheight")) sSYWZPosition = Trim(Request("d_sywzposition")) sSYWZTextWidth = Trim(Request("d_sywztextwidth")) sSYWZTextHeight = Trim(Request("d_sywztextheight")) sSYWZPaddingH = Trim(Request("d_sywzpaddingh")) sSYWZPaddingV = Trim(Request("d_sywzpaddingv")) sSYTPFlag = Trim(Request("d_sytpflag")) sSYTPMinWidth = Trim(Request("d_sytpminwidth")) sSYTPMinHeight = Trim(Request("d_sytpminheight")) sSYTPPosition = Trim(Request("d_sytpposition")) sSYTPPaddingH = Trim(Request("d_sytppaddingh")) sSYTPPaddingV = Trim(Request("d_sytppaddingv")) sSYTPImageWidth = Trim(Request("d_sytpimagewidth")) sSYTPImageHeight = Trim(Request("d_sytpimageheight")) sSYTPOpacity = Trim(Request("d_sytpopacity")) sCusDirFlag = Trim(Request("d_cusdirflag")) End Sub Sub DoStyleAddSave() If StyleName2ID(sStyleName) <> -1 Then GoError "此样式名已经存在，请用另一个样式名！" End If Dim nNewStyleID nNewStyleID = Ubound(aStyle) + 1 Redim Preserve aStyle(nNewStyleID) aStyle(nNewStyleID) = sStyleName & "|||" & sFixWidth & "|||" & sSkin & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||||||||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYWZFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYWZMinWidth & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse & "|||" & sStyleLocalExt & "|||" & sStyleLocalSize & "|||" & sSYWZMinHeight & "|||" & sSYWZPosition & "|||" & sSYWZTextWidth & "|||" & sSYWZTextHeight & "|||" & sSYWZPaddingH & "|||" & sSYWZPaddingV & "|||" & sSYTPFlag & "|||" & sSYTPMinWidth & "|||" & sSYTPMinHeight & "|||" & sSYTPPosition & "|||" & sSYTPPaddingH & "|||" & sSYTPPaddingV & "|||" & sSYTPImageWidth & "|||" & sSYTPImageHeight & "|||" & sSYTPOpacity & "|||" & sCusDirFlag & "|||" & sSBCode & "|||" & sSBEdit & "|||" & sSBText & "|||" & sSBView & "|||" & sEnterMode & "|||" & sAreaCssMode Call WriteConfig() Call WriteStyle(nNewStyleID) Call ShowMessage("样式增加成功！
  • 设置此样式下的工具栏") End Sub Sub DoUpdateConfig() Dim i Call WriteConfig() For i = 1 To UBound(aStyle) Call WriteStyle(i) Next Call ShowMessage("所有样式的前台配置文件更新操作成功！
  • 返回所有样式列表") End Sub Sub DoStyleSetSave() Dim n, s_OldStyleName sStyleID = Trim(Request("id")) If IsNumeric(sStyleID) = True Then n = StyleName2ID(sStyleName) If CStr(n) <> sStyleID And n <> -1 Then GoError "此样式名已经存在，请用另一个样式名！" End If If Clng(sStyleID) < 1 And Clng(sStyleID)>UBound(aStyle) Then GoError "无效的样式ID号，请通过页面上的链接进行操作！" End If s_OldStyleName = Split(aStyle(Clng(sStyleID)), "|||")(0) aStyle(Clng(sStyleID)) = sStyleName & "|||" & sFixWidth & "|||" & sSkin & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||||||||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYWZFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYWZMinWidth & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse & "|||" & sStyleLocalExt & "|||" & sStyleLocalSize & "|||" & sSYWZMinHeight & "|||" & sSYWZPosition & "|||" & sSYWZTextWidth & "|||" & sSYWZTextHeight & "|||" & sSYWZPaddingH & "|||" & sSYWZPaddingV & "|||" & sSYTPFlag & "|||" & sSYTPMinWidth & "|||" & sSYTPMinHeight & "|||" & sSYTPPosition & "|||" & sSYTPPaddingH & "|||" & sSYTPPaddingV & "|||" & sSYTPImageWidth & "|||" & sSYTPImageHeight & "|||" & sSYTPOpacity & "|||" & sCusDirFlag & "|||" & sSBCode & "|||" & sSBEdit & "|||" & sSBText & "|||" & sSBView & "|||" & sEnterMode & "|||" & sAreaCssMode Else GoError "无效的样式ID号，请通过页面上的链接进行操作！" End If Call WriteConfig() If LCase(s_OldStyleName) <> LCase(sStyleName) Then Call DeleteFile(s_OldStyleName) End If Call WriteStyle(Clng(sStyleID)) Call ShowMessage("样式修改成功！
  • 预览此样式
  • 设置此样式下的工具栏
  • 重新设置此样式") End Sub Sub DoStyleDel() aStyle(Clng(sStyleID)) = "" Call WriteConfig() Call DeleteFile(sStyleName) Call GoUrl("?") End Sub Sub ShowStylePreview() Response.Write "" & _ "样式预览" & _ "" & _ "" & _ "" & _ "" & _ "" End Sub Sub ShowStyleCode() Response.Write "" & _ "" & _ "" & _ "
    样式（" & outHTML(sStyleName) & "）的最佳调用代码如下（其中XXX按实际关联的表单项进行修改）：
    " End Sub Sub ShowToolBarList() Call ShowMessage("样式（" & outHTML(sStyleName) & "）下的工具栏管理：") Dim s_AddForm, s_ModiForm, i, aCurrToolbar Dim nMaxOrder nMaxOrder = 0 For i = 1 To UBound(aToolbar) aCurrToolbar = Split(aToolbar(i), "|||") If aCurrToolbar(0) = sStyleID Then If Clng(aCurrToolbar(3)) > nMaxOrder Then nMaxOrder = Clng(aCurrToolbar(3)) End If End If Next nMaxOrder = nMaxOrder + 1 s_AddForm = "
    " & _ "" & _ "" & _ "
    工具栏名： 排序号：
    " Dim s_Manage s_ModiForm = "
    " & _ "" & _ "" For i = 1 To UBound(aToolbar) aCurrToolbar = Split(aToolbar(i), "|||") If aCurrToolbar(0) = sStyleID Then s_Manage = "按钮设置" s_Manage = s_Manage & "|删除" s_ModiForm = s_ModiForm & "" & _ "" & _ "" & _ "" & _ "" & _ "" End If Next s_ModiForm = s_ModiForm & "
    ID工具栏名排序号操作
    " & i & "" & s_Manage & "
    " Response.Write s_AddForm & s_ModiForm End Sub Sub DoToolBarAdd() Dim s_Name, s_Order s_Name = Trim(Request("d_name")) s_Order = Trim(Request("d_order")) If s_Name = "" Then GoError "工具栏名不能为空！" End If If IsNumeric(s_Order) = False Then GoError "无效的工具栏排序号，排序号必须为数字！" End If Dim nToolbarNum nToolbarNum = Ubound(aToolbar) + 1 Redim Preserve aToolbar(nToolbarNum) aToolbar(nToolbarNum) = sStyleID & "||||||" & s_Name & "|||" & s_Order Call WriteConfig() Call WriteStyle(Clng(sStyleID)) Response.Write "" Call GoUrl("?action=toolbar&id=" & sStyleID) End Sub Sub DoToolBarModi() Dim s_Name, s_Order, i, aCurrToolbar For i = 1 To UBound(aToolbar) aCurrToolbar = Split(aToolbar(i), "|||") If aCurrToolbar(0) = sStyleID Then s_Name = Trim(Request("d_name" & i)) s_Order = Trim(Request("d_order" & i)) If s_Name = "" Or IsNumeric(s_Order) = False Then aCurrToolbar(0) = "" s_Name = "" End If aToolbar(i) = aCurrToolbar(0) & "|||" & aCurrToolbar(1) & "|||" & s_Name & "|||" & s_Order End If Next Call WriteConfig() Call WriteStyle(Clng(sStyleID)) Response.Write "" Call GoUrl("?action=toolbar&id=" & sStyleID) End Sub Sub DoToolBarDel() Dim s_DelID s_DelID = Trim(Request("delid")) If IsNumeric(s_DelID) = True Then aToolbar(Clng(s_DelID)) = "" Call WriteConfig() Call WriteStyle(Clng(sStyleID)) Response.Write "" Call GoUrl("?action=toolbar&id=" & sStyleID) End If End Sub Sub InitToolBar() Dim b, aCurrToolbar, nToolbarID b = False sToolBarID = Trim(Request("toolbarid")) If IsNumeric(sToolBarID) = True Then If Clng(sToolBarID) <= UBound(aToolbar) And Clng(sToolBarID) > 0 Then aCurrToolbar = Split(aToolbar(Clng(sToolbarID)), "|||") sToolBarName = aCurrToolbar(2) sToolBarOrder = aCurrToolbar(3) sToolBarButton = aCurrToolbar(1) b = True End If End If If b = False Then GoError "无效的工具栏ID号，请通过页面上的链接进行操作！" End If End Sub Sub ShowButtonList() Call ShowMessage("当前样式：" & outHTML(sStyleName) & "  当前工具栏：" & outHTML(sToolBarName) & "") %>
    可选按钮已选按钮




    <% Call ShowMessage("提示：你可以通过按“Ctrl”“Shift”来快速多选定，可以在指定项上“双击”快速增加或删除项。可以选定多个按钮同时上移或下移操作。") End Sub Sub DoButtonSave() Dim s_Button, nToolBarID, aCurrToolbar s_Button = Trim(Request("d_button")) nToolBarID = Clng(sToolBarID) aCurrToolbar = Split(aToolbar(nToolBarID), "|||") aToolbar(nToolBarID) = aCurrToolbar(0) & "|||" & s_Button & "|||" & aCurrToolbar(2) & "|||" & aCurrToolbar(3) Call WriteConfig() Call WriteStyle(Clng(sStyleID)) Call ShowMessage("工具栏按钮设置保存成功！
  • 预览此样式
  • 返回工具栏管理
  • 重新设置此工具栏下的按钮") End Sub Sub WriteStyle(n_StyleID) Dim sConfig Dim aTmpStyle sConfig = "" aTmpStyle = Split(aStyle(n_StyleID), "|||") sConfig = sConfig & "config.FixWidth = """ & aTmpStyle(1) & """;" & Vbcrlf If aTmpStyle(19) = "3" Then sConfig = sConfig & "config.UploadUrl = """ & aTmpStyle(23) & """;" & Vbcrlf Else sConfig = sConfig & "config.UploadUrl = """ & aTmpStyle(3) & """;" & Vbcrlf End If sConfig = sConfig & "config.InitMode = """ & aTmpStyle(18) & """;" & Vbcrlf sConfig = sConfig & "config.AutoDetectPasteFromWord = """ & aTmpStyle(17) & """;" & Vbcrlf sConfig = sConfig & "config.BaseUrl = """ & aTmpStyle(19) & """;" & Vbcrlf sConfig = sConfig & "config.BaseHref = """ & aTmpStyle(22) & """;" & Vbcrlf sConfig = sConfig & "config.AutoRemote = """ & aTmpStyle(24) & """;" & Vbcrlf sConfig = sConfig & "config.ShowBorder = """ & aTmpStyle(25) & """;" & Vbcrlf sConfig = sConfig & "config.StateFlag = """ & aTmpStyle(16) & """;" & Vbcrlf sConfig = sConfig & "config.SBCode = """ & aTmpStyle(62) & """;" & Vbcrlf sConfig = sConfig & "config.SBEdit = """ & aTmpStyle(63) & """;" & Vbcrlf sConfig = sConfig & "config.SBText = """ & aTmpStyle(64) & """;" & Vbcrlf sConfig = sConfig & "config.SBView = """ & aTmpStyle(65) & """;" & Vbcrlf sConfig = sConfig & "config.EnterMode = """ & aTmpStyle(66) & """;" & Vbcrlf sConfig = sConfig & "config.Skin = """ & aTmpStyle(2) & """;" & Vbcrlf sConfig = sConfig & "config.AllowBrowse = """ & aTmpStyle(43) & """;" & Vbcrlf sConfig = sConfig & "config.AllowImageSize = """ & aTmpStyle(13) & """;" & Vbcrlf sConfig = sConfig & "config.AllowFlashSize = """ & aTmpStyle(12) & """;" & Vbcrlf sConfig = sConfig & "config.AllowMediaSize = """ & aTmpStyle(14) & """;" & Vbcrlf sConfig = sConfig & "config.AllowFileSize = """ & aTmpStyle(11) & """;" & Vbcrlf sConfig = sConfig & "config.AllowRemoteSize = """ & aTmpStyle(15) & """;" & Vbcrlf sConfig = sConfig & "config.AllowLocalSize = """ & aTmpStyle(45) & """;" & Vbcrlf sConfig = sConfig & "config.AllowImageExt = """ & aTmpStyle(8) & """;" & Vbcrlf sConfig = sConfig & "config.AllowFlashExt = """ & aTmpStyle(7) & """;" & Vbcrlf sConfig = sConfig & "config.AllowMediaExt = """ & aTmpStyle(9) & """;" & Vbcrlf sConfig = sConfig & "config.AllowFileExt = """ & aTmpStyle(6) & """;" & Vbcrlf sConfig = sConfig & "config.AllowRemoteExt = """ & aTmpStyle(10) & """;" & Vbcrlf sConfig = sConfig & "config.AreaCssMode = """ & aTmpStyle(67) & """;" & Vbcrlf sConfig = sConfig & "config.SYWZFlag = """ & aTmpStyle(32) & """;" & Vbcrlf sConfig = sConfig & "config.SYTPFlag = """ & aTmpStyle(52) & """;" & Vbcrlf sConfig = sConfig & "config.ServerExt = ""asp"";" & vbCrLf sConfig = sConfig & Vbcrlf sConfig = sConfig & "config.Toolbars = [" & Vbcrlf Dim s_Order, s_ID, n, aTmpToolbar s_Order = "" s_ID = "" For n = 1 To UBound(aToolbar) If aToolbar(n) <> "" Then aTmpToolbar = Split(aToolbar(n), "|||") If aTmpToolbar(0) = CStr(n_StyleID) Then If s_ID <> "" Then s_ID = s_ID & "|" s_Order = s_Order & "|" End If s_ID = s_ID & CStr(n) s_Order = s_Order & aTmpToolbar(3) End If End If Next Dim a_ID, a_Order, aTmpButton, i If s_ID <> "" Then a_ID = Split(s_ID, "|") a_Order = Split(s_Order, "|") For n = 0 To UBound(a_Order) a_Order(n) = Clng(a_Order(n)) a_ID(n) = Clng(a_ID(n)) Next a_ID = Sort(a_ID, a_Order) For n = 0 To UBound(a_ID) aTmpToolbar = Split(aToolbar(a_ID(n)), "|||") aTmpButton = Split(aTmpToolbar(1), "|") If n >0 Then sConfig = sConfig & "," & Vbcrlf End If sConfig = sConfig & Chr(9) & "[" For i = 0 To UBound(aTmpButton) If i > 0 Then sConfig = sConfig & ", " End If sConfig = sConfig & """" & aTmpButton(i) & """" Next sConfig = sConfig & "]" Next End If sConfig = sConfig & Vbcrlf & "];" & Vbcrlf Call WriteFile("../style/" & LCase(aTmpStyle(0)) & ".js", sConfig) End Sub Sub DeleteFile(s_StyleName) On Error Resume Next Dim oFSO, sMapFileName Set oFSO = Server.CreateObject("Scripting.FileSystemObject") sMapFileName = Server.MapPath("../style/" & LCase(s_StyleName) & ".js") If oFSO.FileExists(sMapFileName) Then oFSO.DeleteFile(sMapFileName) End If Set oFSO = Nothing End Sub Sub GoUrl(url) Response.Write "" Response.End End Sub %>