开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
style.aspx
资源名称：eWebEditor+for+asp.net.rar　[点击查看]
上传用户：avia982301
上传日期：2008-10-30
资源大小：557k
文件大小：50k
源码类别：

.net编程

开发平台：

C#

style.aspx：源码内容
  1. <!--#include file = "private.aspx"-->
  3. <%
  4. '######################################
  5. ' eWebEditor v4.00 - Advanced online web based WYSIWYG HTML editor.
  6. ' Copyright (c) 2003-2007 eWebSoft.com
  7. '
  8. ' For further information go to http://www.ewebsoft.com/
  9. ' This copyright notice MUST stay intact for use.
  10. '######################################
  11. %>
  13. <%
  15. sPosition = sPosition & "样式管理"
  17. If sAction = "STYLEPREVIEW" Then
  18. Call InitStyle()
  19. Call ShowStylePreview()
  20. Response.End
  21. End If
  24. Call Header()
  25. Call ShowPosition()
  26. Call Content()
  27. Call Footer()
  29. %>
  31. <script language="vb" runat="server">
  32. Dim sStyleID, sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, nStyleIsSys, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl, sStyleUploadObject, sStyleAutoDir, sStyleBaseHref, sStyleContentPath, sStyleAutoRemote, sStyleShowBorder, sAutoDetectLanguage, sDefaultLanguage, sStyleAllowBrowse
  33. Dim sSLTFlag, sSLTMinSize, sSLTOkSize, sSYFlag, sSYText, sSYFontColor, sSYFontSize, sSYFontName, sSYPicPath, sSLTSYObject, sSLTSYExt, sSYMinSize, sSYShadowColor, sSYShadowOffset
  34. Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleRemoteExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize, sStyleRemoteSize
  35. Dim sToolBarID, sToolBarName, sToolBarOrder, sToolBarButton
  37. Dim nStyleID
  39. Sub Content()
  40. Select Case sAction
  41. Case "UPDATECONFIG"
  42. Call DoUpdateConfig()
  43. Case "COPY"
  44. Call InitStyle()
  45. Call DoCopy()
  46. Call ShowStyleList()
  47. Case "STYLEADD"
  48. Call ShowStyleForm("ADD")
  49. Case "STYLESET"
  50. Call InitStyle()
  51. Call ShowStyleForm("SET")
  52. Case "STYLEADDSAVE"
  53. Call CheckStyleForm()
  54. Call DoStyleAddSave()
  55. Case "STYLESETSAVE"
  56. Call CheckStyleForm()
  57. Call DoStyleSetSave()
  58. Case "STYLEDEL"
  59. Call InitStyle()
  60. Call DoStyleDel()
  61. Call ShowStyleList()
  62. Case "CODE"
  63. Call InitStyle()
  64. Call ShowStyleCode()
  65. Case "TOOLBAR"
  66. Call InitStyle()
  67. Call ShowToolBarList()
  68. Case "TOOLBARADD"
  69. Call InitStyle()
  70. Call DoToolBarAdd()
  71. Call ShowToolBarList()
  72. Case "TOOLBARMODI"
  73. Call InitStyle()
  74. Call DoToolBarModi()
  75. Call ShowToolBarList()
  76. Case "TOOLBARDEL"
  77. Call InitStyle()
  78. Call DoToolBarDel()
  79. Call ShowToolBarList()
  80. Case "BUTTONSET"
  81. Call InitStyle()
  82. Call InitToolBar()
  83. Call ShowButtonList()
  84. Case "BUTTONSAVE"
  85. Call InitStyle()
  86. Call InitToolBar()
  87. Call DoButtonSave()
  88. Case Else
  89. Call ShowStyleList()
  90. End Select
  91. End Sub
  94. Sub ShowPosition()
  95. Response.Write ("<table border=0 cellspacing=1 align=center class=navi>" & _
  96. "<tr><th>" & sPosition & "</th></tr>" & _
  97. "<tr><td align=center>[<a href='?'>所有样式列表</a>]&nbsp;&nbsp;&nbsp;&nbsp;[<a href='?action=styleadd'>新建一样式</a>]&nbsp;&nbsp;&nbsp;&nbsp;[<a href='?action=updateconfig'>更新所有样式的前台配置文件</a>]&nbsp;&nbsp;&nbsp;&nbsp;[<a href='#' onclick='history.back()'>返回前一页</a>]</td></tr>" & _
  98. "</table><br>")
  99. End Sub
  101. Sub ShowMessage(str)
  102. Response.Write ("<table border=0 cellspacing=1 align=center class=list><tr><td>" & str & "</td></tr></table><br>")
  103. End Sub
  105. Sub ShowStyleList()
  106. Call ShowMessage("<b class=blue>以下为当前所有样式列表：</b>")
  108. Response.Write ("<table border=0 cellpadding=0 cellspacing=1 class=list align=center>" & _
  109. "<form action='?action=del' method=post name=myform>" & _
  110. "<tr align=center>" & _
  111. "<th width='10%'>样式名</th>" & _
  112. "<th width='10%'>最佳宽度</th>" & _
  113. "<th width='10%'>最佳高度</th>" & _
  114. "<th width='45%'>说明</th>" & _
  115. "<th width='25%'>管理</th>" & _
  116. "</tr>")
  118. Dim sManage, i, aCurrStyle
  119. For i = 1 To Ubound(aStyle)
  120. aCurrStyle = Split(aStyle(i), "|||")
  121. sManage = "<a href='?action=stylepreview&id=" & i & "' target='_blank'>预览</a>|<a href='?action=code&id=" & i & "'>代码</a>|<a href='?action=styleset&id=" & i & "'>设置</a>|<a href='?action=toolbar&id=" & i & "'>工具栏</a>|<a href='?action=copy&id=" & i & "'>拷贝</a>|<a href='?action=styledel&id=" & i & "' onclick=""return confirm('提示：您确定要删除此样式吗？')"">删除</a>"
  122. Response.Write ("<tr align=center>" & _
  123. "<td>" & outHTML(aCurrStyle(0)) & "</td>" & _
  124. "<td>" & aCurrStyle(4) & "</td>" & _
  125. "<td>" & aCurrStyle(5) & "</td>" & _
  126. "<td align=left>" & outHTML(aCurrStyle(26)) & "</td>" & _
  127. "<td>" & sManage & "</td>" & _
  128. "</tr>")
  129. Next
  131. Response.Write ("</table><br>")
  133. Call ShowMessage("<b class=blue>提示：</b>你可以通过""拷贝""一样式以达到快速新建样式的目的。")
  135. End Sub
  137. Sub DoCopy()
  138. Dim i, b, sNewID, sNewName
  139. b = False
  140. i = 0
  141. Do While b = False
  142. i = i + 1
  143. sNewName = sStyleName & i
  144. If StyleName2ID(sNewName) = -1 Then
  145. b = True
  146. End If
  147. Loop
  149. Dim nNewStyleID
  150. nNewStyleID = Ubound(aStyle) + 1
  151. Redim Preserve aStyle(nNewStyleID)
  152. aStyle(nNewStyleID) = sNewName & Mid(aStyle(nStyleID), Len(sStyleName)+1)
  154. Dim nToolbarNum, nNewToolbarID, aCurrToolbar
  155. nToolbarNum = Ubound(aToolbar)
  156. For i = 1 To nToolbarNum
  157. aCurrToolbar = Split(aToolbar(i), "|||")
  158. If aCurrToolbar(0) = sStyleID Then
  159. nNewToolbarID = Ubound(aToolbar) + 1
  160. Redim Preserve aToolbar(nNewToolbarID)
  161. aToolbar(nNewToolbarID) = nNewStyleID & "|||" & aCurrToolbar(1) & "|||" & aCurrToolbar(2) & "|||" & aCurrToolbar(3)
  162. End If
  163. Next
  165. Call WriteConfig()
  166. Call WriteStyle(nNewStyleID)
  167. Call GoUrl("?")
  169. End Sub
  171. Function StyleName2ID(str)
  172. Dim i
  173. StyleName2ID = -1
  174. For i = 1 To UBound(aStyle)
  175. If Lcase(Split(aStyle(i), "|||")(0)) = Lcase(str) Then
  176. StyleName2ID = i
  177. Exit Function
  178. End If
  179. Next
  180. End Function
  182. Sub ShowStyleForm(sFlag)
  183. Dim s_Title, s_Button, s_Action
  184. Dim s_FormStateFlag, s_FormDetectFromWord, s_FormInitMode, s_FormBaseUrl, s_FormUploadObject, s_FormAutoDir, s_FormAutoRemote, s_FormShowBorder, s_FormAutoDetectLanguage, s_FormDefaultLanguage, s_FormSLTFlag, s_FormSYFlag, s_FormSLTSYObject, s_FormAllowBrowse
  186. If sFlag = "ADD" Then
  187. sStyleID = ""
  188. sStyleName = ""
  189. sStyleDir = "standard"
  190. sStyleCSS = "office"
  191. sStyleUploadDir = "UploadFile/"
  192. sStyleBaseHref = "http://Localhost/eWebEditor/"
  193. sStyleContentPath = "UploadFile/"
  194. sStyleWidth = "600"
  195. sStyleHeight = "400"
  196. sStyleMemo = ""
  197. nStyleIsSys = 0
  198. s_Title = "新增样式"
  199. s_Action = "StyleAddSave"
  200. sStyleFileExt = "rar|zip|exe|doc|xls|chm|hlp"
  201. sStyleFlashExt = "swf"
  202. sStyleImageExt = "gif|jpg|jpeg|bmp"
  203. sStyleMediaExt = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
  204. sStyleRemoteExt = "gif|jpg|bmp"
  205. sStyleFileSize = "500"
  206. sStyleFlashSize = "100"
  207. sStyleImageSize = "100"
  208. sStyleMediaSize = "100"
  209. sStyleRemoteSize = "100"
  210. sStyleStateFlag = "1"
  211. sStyleAutoRemote = "1"
  212. sStyleShowBorder = "0"
  213. sAutoDetectLanguage = "1"
  214. sDefaultLanguage = "zh-cn"
  215. sStyleAllowBrowse = "0"
  216. sStyleUploadObject = "0"
  217. sStyleAutoDir = "0"
  218. sStyleDetectFromWord = "1"
  219. sStyleInitMode = "EDIT"
  220. sStyleBaseUrl = "0"
  221. sSLTFlag = "0"
  222. sSLTMinSize = "300"
  223. sSLTOkSize = "120"
  224. sSYFlag = "0"
  225. sSYText = "版权所有..."
  226. sSYFontColor = "000000"
  227. sSYFontSize = "12"
  228. sSYFontName = "宋体"
  229. sSYPicPath = ""
  230. sSLTSYObject = "0"
  231. sSLTSYExt = "bmp|jpg|jpeg|gif"
  232. sSYMinSize = "100"
  233. sSYShadowColor = "FFFFFF"
  234. sSYShadowOffset = "1"
  235. Else
  236. sStyleName = inHTML(sStyleName)
  237. sStyleDir = inHTML(sStyleDir)
  238. sStyleCSS = inHTML(sStyleCSS)
  239. sStyleUploadDir = inHTML(sStyleUploadDir)
  240. sStyleBaseHref = inHTML(sStyleBaseHref)
  241. sStyleContentPath = inHTML(sStyleContentPath)
  242. sStyleMemo = inHTML(sStyleMemo)
  243. sSYText = inHTML(sSYText)
  244. sSYFontColor = inHTML(sSYFontColor)
  245. sSYFontSize = inHTML(sSYFontSize)
  246. sSYFontName = inHTML(sSYFontName)
  247. sSYPicPath = inHTML(sSYPicPath)
  248. s_Title = "设置样式"
  249. s_Action = "StyleSetSave"
  250. End If
  252. s_FormStateFlag = InitSelect("d_stateflag", Split("显示|不显示", "|"), Split("1|0", "|"), sStyleStateFlag, "")
  253. s_FormAutoRemote = InitSelect("d_autoremote", Split("自动上传|不自动上传", "|"), Split("1|0", "|"), sStyleAutoRemote, "")
  254. s_FormShowBorder = InitSelect("d_showborder", Split("默认显示|默认不显示", "|"), Split("1|0", "|"), sStyleShowBorder, "")
  255. s_FormAutoDetectLanguage = InitSelect("d_autodetectlanguage", Split("自动检测|不自动检测", "|"), Split("1|0", "|"), sAutoDetectLanguage, "")
  256. s_FormDefaultLanguage = InitSelect("d_defaultlanguage", Split("简体中文|繁体中文|英文", "|"), Split("zh-cn|zh-tw|en", "|"), sDefaultLanguage, "")
  257. s_FormAllowBrowse = InitSelect("d_allowbrowse", Split("是,开启|否,关闭", "|"), Split("1|0", "|"), sStyleAllowBrowse, "")
  259. s_FormUploadObject = InitSelect("d_uploadobject", Split("ASP.net上传|ASPUpload上传组件|SA-FileUp上传组件|LyfUpload上传组件", "|"), Split("0|1|2|3", "|"), sStyleUploadObject, "")
  260. s_FormAutoDir = InitSelect("d_autodir", Split("不使用|年目录|年月目录|年月日目录", "|"), Split("0|1|2|3", "|"), sStyleAutoDir, "")
  261. s_FormDetectFromWord = InitSelect("d_detectfromword", Split("自动检测有提示|不自动检测", "|"), Split("1|0", "|"), sStyleDetectFromWord, "")
  262. s_FormInitMode = InitSelect("d_initmode", Split("代码模式|编辑模式|文本模式|预览模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "")
  263. s_FormBaseUrl = InitSelect("d_baseurl", Split("相对路径|绝对根路径|绝对全路径", "|"), Split("0|1|2", "|"), sStyleBaseUrl, "")
  265. s_FormSLTFlag = InitSelect("d_sltflag", Split("使用|不使用", "|"), Split("1|0", "|"), sSLTFlag, "")
  266. s_FormSYFlag = InitSelect("d_syflag", Split("不使用|文字水印|图片水印", "|"), Split("0|1|2", "|"), sSYFlag, "")
  267. s_FormSLTSYObject = InitSelect("d_sltsyobject", Split(".NET自带图形处理|AspJpeg图形组件", "|"), Split("0|1", "|"), sSLTSYObject, "")
  269. s_Button = "<tr><td align=center colspan=4><input type=submit value='  提交  ' align=absmiddle>&nbsp;<input type=reset name=btnReset value='  重填  '></td></tr>"
  271. Response.Write ("<table border=0 cellpadding=0 cellspacing=1 align=center class=form>" & _
  272. "<form action='?action=" & s_Action & "&id=" & sStyleID & "' method=post name=myform>" & _
  273. "<tr><th colspan=4>&nbsp;&nbsp;" & s_Title & "（鼠标移到输入框可看说明，带*号为必填项）</th></tr>" & _
  274. "<tr><td width='15%'>样式名称：</td><td width='35%'><input type=text class=input size=20 name=d_name title='引用此样式的名字，不要加特殊符号，最大50个字符长度' value=""" & sStyleName & """> <span class=red>*</span></td><td width='15%'>初始模式：</td><td width='35%'>" & s_FormInitMode & " <span class=red>*</span></td></tr>" & _
  275. "<tr><td width='15%'>上传组件：</td><td width='35%'>" & s_FormUploadObject & " <span class=red>*</span></td><td width='15%'>自动目录：</td><td width='35%'>" & s_FormAutoDir & " <span class=red>*</span></td></tr>" & _
  276. "<tr><td width='15%'>图片目录：</td><td width='35%'><input type=text class=input size=20 name=d_dir title='存放此样式图片文件的目录名，必须在ButtonImage下，最大50个字符长度' value=""" & sStyleDir & """> <span class=red>*</span></td><td width='15%'>样式目录：</td><td width='35%'><input type=text class=input size=20 name=d_css title='存放此样式css文件的目录名，必须在CSS下，最大50个字符长度' value=""" & sStyleCSS & """> <span class=red>*</span></td></tr>" & _
  277. "<tr><td width='15%'>最佳宽度：</td><td width='35%'><input type=text class=input name=d_width size=20 title='最佳引用效果的宽度，数字型' value='" & sStyleWidth & "'> <span class=red>*</span></td><td width='15%'>最佳高度：</td><td width='35%'><input type=text class=input name=d_height size=20 title='最佳引用效果的高度，数字型' value='" & sStyleHeight & "'> <span class=red>*</span></td></tr>" & _
  278. "<tr><td width='15%'>状 态 栏：</td><td width='35%'>" & s_FormStateFlag & " <span class=red>*</span></td><td width='15%'>Word粘贴：</td><td width='35%'>" & s_FormDetectFromWord & " <span class=red>*</span></td></tr>" & _
  279. "<tr><td width='15%'>远程文件：</td><td width='35%'>" & s_FormAutoRemote & " <span class=red>*</span></td><td width='15%'>指导方针：</td><td width='35%'>" & s_FormShowBorder & " <span class=red>*</span></td></tr>" & _
  280. "<tr><td width='15%'>自动语言检测：</td><td width='35%'>" & s_FormAutoDetectLanguage & " <span class=red>*</span></td><td width='15%'>默认语言：</td><td width='35%'>" & s_FormDefaultLanguage & " <span class=red>*</span></td></tr>" & _
  281. "<tr><td width='15%'>上传文件浏览：</td><td width='35%'>" & s_FormAllowBrowse & " <span class=red>*</span></td><td width='15%'>&nbsp;</td><td width='35%'>&nbsp;</td></tr>" & _
  282. "<tr><td>备注说明：</td><td colspan=3><input type=text name=d_memo size=90 title='此样式的说明，更有利于调用' value=""" & sStyleMemo & """></td></tr>" & _
  283. "<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;上传文件及系统文件路径相关设置（只有在使用相对路径模式时，才要设置显示路径和内容路径）：</span></td></tr>" & _
  284. "<tr><td width='15%'>路径模式：</td><td width='35%'>" & s_FormBaseUrl & " <span class=red>*</span> <a href='#baseurl'>说明</a></td><td width='15%'>上传路径：</td><td width='35%'><input type=text class=input size=20 name=d_uploaddir title='上传文件所存放路径，相对eWebEditor根目录文件的路径，最大50个字符长度' value=""" & sStyleUploadDir & """> <span class=red>*</span></td></tr>" & _
  285. "<tr><td width='15%'>显示路径：</td><td width='35%'><input type=text class=input size=20 name=d_basehref title='显示内容页所存放路径，必须以&quot;/&quot;开头，最大50个字符长度' value=""" & sStyleBaseHref & """></td><td width='15%'>内容路径：</td><td width='35%'><input type=text class=input size=20 name=d_contentpath title='实际保存在内容中的路径，相对显示路径的路径，不能以&quot;/&quot;开头，最大50个字符长度' value=""" & sStyleContentPath & """></td></tr>" & _
  286. "<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;允许上传文件类型及文件大小设置（文件大小单位为KB，0表示没有限制）：</span></td></tr>" & _
  287. "<tr><td width='15%'>图片类型：</td><td width='35%'><input type=text class=input name=d_imageext size=20 title='用于图片相关的上传，最大250个字符长度' value='" & sStyleImageExt & "'></td><td width='15%'>图片限制：</td><td width='35%'><input type=text class=input name=d_imagesize size=20 title='数字型，单位KB' value='" & sStyleImageSize & "'></td></tr>" & _
  288. "<tr><td width='15%'>Flash类型：</td><td width='35%'><input type=text class=input name=d_flashext size=20 title='用于插入Flash动画，最大250个字符长度' value='" & sStyleFlashExt & "'></td><td width='15%'>Flash限制：</td><td width='35%'><input type=text class=input name=d_flashsize size=20 title='数字型，单位KB' value='" & sStyleFlashSize & "'></td></tr>" & _
  289. "<tr><td width='15%'>媒体类型：</td><td width='35%'><input type=text class=input name=d_mediaext size=20 title='用于插入媒体文件，最大250个字符长度' value='" & sStyleMediaExt & "'></td><td width='15%'>媒体限制：</td><td width='35%'><input type=text class=input name=d_mediasize size=20 title='数字型，单位KB' value='" & sStyleMediaSize & "'></td></tr>" & _
  290. "<tr><td width='15%'>其它类型：</td><td width='35%'><input type=text class=input name=d_fileext size=20 title='用于插入其它文件，最大250个字符长度' value='" & sStyleFileExt & "'></td><td width='15%'>其它限制：</td><td width='35%'><input type=text class=input name=d_filesize size=20 title='数字型，单位KB' value='" & sStyleFileSize & "'></td></tr>" & _
  291. "<tr><td width='15%'>远程类型：</td><td width='35%'><input type=text class=input name=d_remoteext size=20 title='用于自动上传远程文件，最大250个字符长度' value='" & sStyleRemoteExt & "'></td><td width='15%'>远程限制：</td><td width='35%'><input type=text class=input name=d_remotesize size=20 title='数字型，单位KB' value='" & sStyleRemoteSize & "'></td></tr>" & _
  292. "<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;缩略图及水印相关设置：</span></td></tr>" & _
  293. "<tr><td width='15%'>图形处理组件：</td><td width='35%'>" & s_FormSLTSYObject & "</td><td width='15%'>处理图形扩展名：</td><td width='35%'><input type=text name=d_sltsyext size=20 class=input value=""" & sSLTSYExt & """></td></tr>" & _
  294. "<tr><td width='15%'>缩略图使用状态：</td><td width='35%'>" & s_FormSLTFlag & "</td><td width='15%'>缩略图长度条件</td><td width='35%'><input type=text name=d_sltminsize size=20 class=input title='图形的长度只有达到此最小长度要求时才会生成缩略图，数字型' value='" & sSLTMinSize & "'>px</td></tr>" & _
  295. "<tr><td width='15%'>缩略图生成长度：</td><td width='35%'><input type=text name=d_sltoksize size=20 class=input title='生成的缩略图长度值，数字型' value='" & sSLTOkSize & "'>px</td><td width='15%'>&nbsp;</td><td width='35%'>&nbsp;</td></tr>" & _
  296. "<tr><td width='15%'>水印使用状态：</td><td width='35%'>" & s_FormSYFlag & "</td><td width='15%'>水印宽度条件：</td><td width='35%'><input type=text name=d_syminsize size=20 class=input title='图形的宽度只有达到此最小宽度要求时才会生成水印，数字型' value='" & sSYMinSize & "'>px</td></tr>" & _
  297. "<tr><td width='15%'>文字水印内容：</td><td width='35%'><input type=text name=d_sytext size=20 class=input title='当使用文字水印时的文字内容' value=""" & sSYText & """></td><td width='15%'>文字水印字体颜色：</td><td width='35%'><input type=text name=d_syfontcolor size=20 class=input title='当使用文字水印时文字的颜色' value=""" & sSYFontColor & """></td></tr>" & _
  298. "<tr><td width='15%'>文字水印阴影颜色：</td><td width='35%'><input type=text name=d_syshadowcolor size=20 class=input title='当使用文字水印时的文字阴影颜色' value=""" & sSYShadowColor & """></td><td width='15%'>文字水印阴影大小：</td><td width='35%'><input type=text name=d_syshadowoffset size=20 class=input title='当使用文字水印时文字的阴影大小' value=""" & sSYShadowOffset & """>px</td></tr>" & _
  299. "<tr><td width='15%'>文字水印字体大小：</td><td width='35%'><input type=text name=d_syfontsize size=20 class=input title='当使用文字水印时文字的字体大小' value=""" & sSYFontSize & """>px</td><td width='15%'>文字水印字体名称：</td><td width='35%'><input type=text name=d_syfontname size=20 class=input title='当使用文字水印时文字的字体名' value=""" & sSYFontName & """></td></tr>" & _
  300. "<tr><td width='15%'>图片水印图片路径：</td><td width='35%'><input type=text name=d_sypicpath size=20 class=input title='当使用图片水印时图片的路径' value=""" & sSYPicPath & """></td><td width='15%'></td><td width='35%'></td></tr>" & _
  301. s_Button & _
  302. "</form>" & _
  303. "</table><br>")
  305. Dim sMsg
  306. sMsg = "<a name=baseurl></a><p><span class=blue><b>路径模式设置说明：</b></span><br>" & _
  307. "<b>相对路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""UploadFile/...""或""../UploadFile/...""形式呈现，当使用此模式时，显示路径和内容路径必填，显示路径必须以""/""开头和结尾，内容路径设置中不能以""/""开头。<br>" & _
  308. "<b>绝对根路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。<br>" & _
  309. "<b>绝对全路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。</p>"
  311. Call ShowMessage(sMsg)
  313. End Sub
  315. Sub InitStyle()
  316. Dim b, aCurrStyle
  317. b = False
  318. sStyleID = Trim(Request("id"))
  319. If IsNumeric(sStyleID) = True Then
  320. nStyleID = Clng(sStyleID)
  321. If nStyleID <= Ubound(aStyle) Then
  322. aCurrStyle = Split(aStyle(nStyleID), "|||")
  323. sStyleName = aCurrStyle(0)
  324. sStyleDir = aCurrStyle(1)
  325. sStyleCSS = aCurrStyle(2)
  326. sStyleUploadDir = aCurrStyle(3)
  327. sStyleBaseHref = aCurrStyle(22)
  328. sStyleContentPath = aCurrStyle(23)
  329. sStyleWidth = aCurrStyle(4)
  330. sStyleHeight = aCurrStyle(5)
  331. sStyleMemo = aCurrStyle(26)
  332. 'nStyleIsSys = aCurrStyle()
  333. sStyleFileExt = aCurrStyle(6)
  334. sStyleFlashExt = aCurrStyle(7)
  335. sStyleImageExt = aCurrStyle(8)
  336. sStyleMediaExt = aCurrStyle(9)
  337. sStyleRemoteExt = aCurrStyle(10)
  338. sStyleFileSize = aCurrStyle(11)
  339. sStyleFlashSize = aCurrStyle(12)
  340. sStyleImageSize = aCurrStyle(13)
  341. sStyleMediaSize = aCurrStyle(14)
  342. sStyleRemoteSize = aCurrStyle(15)
  343. sStyleStateFlag = aCurrStyle(16)
  344. sStyleAutoRemote = aCurrStyle(24)
  345. sStyleShowBorder = aCurrStyle(25)
  346. sAutoDetectLanguage = aCurrStyle(27)
  347. sDefaultLanguage = aCurrStyle(28)
  348. sStyleUploadObject = aCurrStyle(20)
  349. sStyleAutoDir = aCurrStyle(21)
  350. sStyleDetectFromWord = aCurrStyle(17)
  351. sStyleInitMode = aCurrStyle(18)
  352. sStyleBaseUrl = aCurrStyle(19)
  353. sSLTFlag = aCurrStyle(29)
  354. sSLTMinSize = aCurrStyle(30)
  355. sSLTOkSize = aCurrStyle(31)
  356. sSYFlag = aCurrStyle(32)
  357. sSYText = aCurrStyle(33)
  358. sSYFontColor = aCurrStyle(34)
  359. sSYFontSize = aCurrStyle(35)
  360. sSYFontName = aCurrStyle(36)
  361. sSYPicPath = aCurrStyle(37)
  362. sSLTSYObject = aCurrStyle(38)
  363. sSLTSYExt = aCurrStyle(39)
  364. sSYMinSize = aCurrStyle(40)
  365. sSYShadowColor = aCurrStyle(41)
  366. sSYShadowOffset = aCurrStyle(42)
  367. sStyleAllowBrowse = aCurrStyle(43)
  368. b = True
  369. End If
  370. End If
  371. If b = False Then
  372. GoError ("无效的样式ID号，请通过页面上的链接进行操作！")
  373. End If
  374. End Sub
  376. Sub CheckStyleForm()
  377. sStyleName = Trim(Request("d_name"))
  378. sStyleDir = Trim(Request("d_dir"))
  379. sStyleCSS = Trim(Request("d_css"))
  380. sStyleUploadDir = Trim(Request("d_uploaddir"))
  381. sStyleBaseHref = Trim(Request("d_basehref"))
  382. sStyleContentPath = Trim(Request("d_contentpath"))
  383. sStyleWidth = Trim(Request("d_width"))
  384. sStyleHeight = Trim(Request("d_height"))
  385. sStyleMemo = Trim(Request("d_memo"))
  386. sStyleImageExt = Request("d_imageext")
  387. sStyleFlashExt = Request("d_flashext")
  388. sStyleMediaExt = Request("d_mediaext")
  389. sStyleRemoteExt = Request("d_remoteext")
  390. sStyleFileExt = Request("d_fileext")
  391. sStyleImageSize = Request("d_imagesize")
  392. sStyleFlashSize = Request("d_flashsize")
  393. sStyleMediaSize = Request("d_mediasize")
  394. sStyleRemoteSize = Request("d_remotesize")
  395. sStyleFileSize = Request("d_filesize")
  396. sStyleStateFlag = Request("d_stateflag")
  397. sStyleAutoRemote = Request("d_autoremote")
  398. sStyleShowBorder = Request("d_showborder")
  399. sAutoDetectLanguage = Request("d_autodetectlanguage")
  400. sDefaultLanguage = Request("d_defaultlanguage")
  401. sStyleUploadObject = Request("d_uploadobject")
  402. sStyleAutoDir = Request("d_autodir")
  403. sStyleDetectFromWord = Request("d_detectfromword")
  404. sStyleInitMode = Request("d_initmode")
  405. sStyleBaseUrl = Request("d_baseurl")
  406. sSLTFlag = Trim(Request("d_sltflag"))
  407. sSLTMinSize = Trim(Request("d_sltminsize"))
  408. sSLTOkSize = Trim(Request("d_sltoksize"))
  409. sSYFlag = Trim(Request("d_syflag"))
  410. sSYText = Trim(Request("d_sytext"))
  411. sSYFontColor = Trim(Request("d_syfontcolor"))
  412. sSYFontSize = Trim(Request("d_syfontsize"))
  413. sSYFontName = Trim(Request("d_syfontname"))
  414. sSYPicPath = Trim(Request("d_sypicpath"))
  415. sSLTSYObject = Trim(Request("d_sltsyobject"))
  416. sSLTSYExt = Trim(Request("d_sltsyext"))
  417. sSYMinSize = Trim(Request("d_syminsize"))
  418. sSYShadowColor = Trim(Request("d_syshadowcolor"))
  419. sSYShadowOffset = Trim(Request("d_syshadowoffset"))
  420. sStyleAllowBrowse = Trim(Request("d_allowbrowse"))
  422. sStyleUploadDir = Replace(sStyleUploadDir, "", "/")
  423. sStyleBaseHref = Replace(sStyleBaseHref, "", "/")
  424. sStyleContentPath = Replace(sStyleContentPath, "", "/")
  425. If Right(sStyleUploadDir, 1) <> "/" Then sStyleUploadDir = sStyleUploadDir & "/"
  426. If Right(sStyleBaseHref, 1) <> "/" Then sStyleBaseHref = sStyleBaseHref & "/"
  427. If Right(sStyleContentPath, 1) <> "/" Then sStyleContentPath = sStyleContentPath & "/"
  429. If sStyleName = "" Or GetTrueLen(sStyleName) > 50 Then
  430. GoError ("样式名不能为空，且不大于50个字符长度！")
  431. End If
  432. If IsSafeStr(sStyleName) = False Then
  433. GoError ("样式名请勿包含特殊字符！")
  434. End If
  435. If sStyleDir = "" Or GetTrueLen(sStyleDir) > 50 Then
  436. GoError ("按钮图片目录名不能为空，且不大于50个字符长度！")
  437. End If
  438. If IsSafeStr(sStyleDir) = False Then
  439. GoError ("按钮图片目录名请勿包含特殊字符！")
  440. End If
  441. If sStyleCSS = "" Or GetTrueLen(sStyleCSS) > 50 Then
  442. GoError ("样式CSS目录名不能为空，且不大于50个字符长度！")
  443. End If
  444. If IsSafeStr(sStyleCSS) = False Then
  445. GoError ("样式CSS目录名请勿包含特殊字符！")
  446. End If
  448. If sStyleUploadDir = "" Or GetTrueLen(sStyleUploadDir) > 50 Then
  449. GoError ("上传路径不能为空，且不大于50个字符长度！")
  450. End If
  451. If IsSafeStr(sStyleUploadDir) = False Then
  452. GoError ("上传路径请勿包含特殊字符！")
  453. End If
  454. Select Case sStyleBaseUrl
  455. Case "0"
  456. If sStyleBaseHref = "" Or GetTrueLen(sStyleBaseHref) > 50 Then
  457. GoError ("当使用相对路径模式时，显示路径不能为空，且不大于50个字符长度！")
  458. End If
  459. If IsSafeStr(sStyleBaseHref) = False Then
  460. GoError ("当使用相对路径模式时，显示路径请勿包含特殊字符！")
  461. End If
  462. If Left(sStyleBaseHref, 1) <> "/" Then
  463. GoError ("当使用相对路径模式时，显示路径必须以&quot;/&quot;开头！")
  464. End If
  466. If sStyleContentPath = "" Or GetTrueLen(sStyleContentPath) > 50 Then
  467. GoError ("当使用相对路径模式时，内容路径不能为空，且不大于50个字符长度！")
  468. End If
  469. If IsSafeStr(sStyleContentPath) = False Then
  470. GoError ("当使用相对路径模式时，内容路径请勿包含特殊字符！")
  471. End If
  472. If Left(sStyleContentPath, 1) = "/" Then
  473. GoError ("当使用相对路径模式时，内容路径不能以&quot;/&quot;开头！")
  474. End If
  475. Case "1", "2"
  476. sStyleBaseHref = ""
  477. sStyleContentPath = ""
  478. End Select
  480. If IsNumeric(sStyleWidth) = False Then
  481. GoError ("请填写有效的最佳引用宽度！")
  482. End If
  483. If IsNumeric(sStyleHeight) = False Then
  484. GoError ("请填写有效的最佳引用高度！")
  485. End If
  487. If GetTrueLen(sStyleImageExt) > 250 Then
  488. GoError ("图片文件类型不能大于250个字符长度！")
  489. End If
  490. If GetTrueLen(sStyleFlashExt) > 250 Then
  491. GoError ("Flash文件类型不能大于250个字符长度！")
  492. End If
  493. If GetTrueLen(sStyleMediaExt) > 250 Then
  494. GoError ("媒体文件类型不能大于250个字符长度！")
  495. End If
  496. If GetTrueLen(sStyleFileExt) > 250 Then
  497. GoError ("其它文件类型不能大于250个字符长度！")
  498. End If
  499. If GetTrueLen(sStyleRemoteExt) > 250 Then
  500. GoError ("远程文件类型不能大于250个字符长度！")
  501. End If
  503. If IsNumeric(sStyleImageSize) = False Then
  504. GoError ("请填写有效的图片限制大小！")
  505. End If
  506. If IsNumeric(sStyleFlashSize) = False Then
  507. GoError ("请填写有效的Flash限制大小！")
  508. End If
  509. If IsNumeric(sStyleMediaSize) = False Then
  510. GoError ("请填写有效的媒体文件限制大小！")
  511. End If
  512. If IsNumeric(sStyleFileSize) = False Then
  513. GoError ("请填写有效的其它文件限制大小！")
  514. End If
  515. If IsNumeric(sStyleRemoteSize) = False Then
  516. GoError ("请填写有效的远程文件限制大小！")
  517. End If
  519. If IsNumeric(sSLTMinSize) = False Then
  520. GoError ("请填写有效的缩略图使用最小长度条件，不能为空，且为数字型！")
  521. End If
  522. If IsNumeric(sSLTOkSize) = False Then
  523. GoError ("请填写有效的缩略图生成长度，不能为空，且为数字型！")
  524. End If
  526. If IsNumeric(sSYMinSize) = False Then
  527. GoError ("请填写有效的水印的最小宽度条件，不能为空，且为数字型！")
  528. End If
  529. If sSYText = "" Then
  530. GoError ("请填写有效水印文字内容，不能为空！")
  531. End If
  532. If isValidColor(sSYFontColor) = False Then
  533. GoError ("请填写有效的水印文字颜色，6位长度，如黑色：000000！")
  534. End If
  535. If isValidColor(sSYShadowColor) = False Then
  536. GoError ("请填写有效的水印文字阴影颜色，6位长度，如白色：FFFFFF！")
  537. End If
  538. If IsNumeric(sSYShadowOffset) = False Then
  539. GoError ("请填写有效的水印文字阴影大小，不能为空，且为数字型！")
  540. End If
  541. If IsNumeric(sSYFontSize) = False Then
  542. GoError ("请填写有效的水印文字大小，不能为空，且为数字型！")
  543. End If
  544. If sSYFontName = "" Then
  545. GoError ("请填写水印文字字体名称，不能为空！")
  546. End If
  547. End Sub
  549. Sub DoStyleAddSave()
  551. If StyleName2ID(sStyleName) <> -1 Then
  552. GoError ("此样式名已经存在，请用另一个样式名！")
  553. End If
  555. Dim nNewStyleID
  556. nNewStyleID = Ubound(aStyle) + 1
  557. Redim Preserve aStyle(nNewStyleID)
  559. aStyle(nNewStyleID) = sStyleName & "|||" & sStyleDir & "|||" & sStyleCSS & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||" & sAutoDetectLanguage & "|||" & sDefaultLanguage & "|||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYMinSize & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse
  561. Call WriteConfig()
  562. Call WriteStyle(nNewStyleID)
  564. Call ShowMessage("<b><span class=red>样式增加成功！</span></b><li><a href='?action=toolbar&id=" & nNewStyleID & "'>设置此样式下的工具栏</a>")
  566. End Sub
  568. Sub DoUpdateConfig()
  569. Dim i
  570. Call WriteConfig()
  571. For i = 1 To UBound(aStyle)
  572. Call WriteStyle(i)
  573. Next
  574. Call ShowMessage("<b><span class=red>所有样式的前台配置文件更新操作成功！</span></b><li><a href='?'>返回所有样式列表</a>")
  575. End Sub
  577. Sub DoStyleSetSave()
  578. Dim n, s_OldStyleName
  579. sStyleID = Trim(Request("id"))
  580. If IsNumeric(sStyleID) = True Then
  581. n = StyleName2ID(sStyleName)
  582. If CStr(n) <> sStyleID And n <> -1 Then
  583. GoError ("此样式名已经存在，请用另一个样式名！")
  584. End If
  586. If Clng(sStyleID) < 1 And Clng(sStyleID)>UBound(aStyle) Then
  587. GoError ("无效的样式ID号，请通过页面上的链接进行操作！")
  588. End If
  590. s_OldStyleName = Split(aStyle(Clng(sStyleID)), "|||")(0)
  592. aStyle(Clng(sStyleID)) = sStyleName & "|||" & sStyleDir & "|||" & sStyleCSS & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||" & sAutoDetectLanguage & "|||" & sDefaultLanguage & "|||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYMinSize & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse
  594. Else
  595. GoError ("无效的样式ID号，请通过页面上的链接进行操作！")
  596. End If
  598. Call WriteConfig()
  599. If LCase(s_OldStyleName) <> LCase(sStyleName) Then
  600. Call DeleteFile(s_OldStyleName)
  601. End If
  602. Call WriteStyle(Clng(sStyleID))
  604. Call ShowMessage("<b><span class=red>样式修改成功！</span></b><li><a href='?action=stylepreview&id=" & sStyleID & "' target='_blank'>预览此样式</a><li><a href='?action=toolbar&id=" & sStyleID & "'>设置此样式下的工具栏</a>")
  606. End Sub
  608. Sub DoStyleDel()
  609. aStyle(Clng(sStyleID)) = ""
  610. Call WriteConfig()
  611. Call DeleteFile(sStyleName)
  612. Call GoUrl("?")
  613. End Sub
  615. Sub ShowStylePreview()
  616. Response.Write ("<html><head>" & _
  617. "<title>样式预览</title>" & _
  618. "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & _
  619. "</head><body>" & _
  620. "<input type=hidden name=content1  value=''>" & _
  621. "<iframe ID='eWebEditor1' src='../ewebeditor.htm?id=content1&style=" & sStyleName & "' frameborder=0 scrolling=no width='" & sStyleWidth & "' HEIGHT='" & sStyleHeight & "'></iframe>" & _
  622. "</body></html>")
  623. End Sub
  625. Sub ShowStyleCode()
  626. Response.Write ("<table border=0 cellspacing=1 align=center class=list>" & _
  627. "<tr><th>样式（" & outHTML(sStyleName) & "）的最佳调用代码如下（其中XXX按实际关联的表单项进行修改）：</th></tr>" & _
  628. "<tr><td><textarea rows=5 cols=65 style='width:100%'><IFRAME ID=""eWebEditor1"" SRC=""ewebeditor.htm?id=XXX&style=" & sStyleName & """ FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""" & sStyleWidth & """ HEIGHT=""" & sStyleHeight & """></IFRAME></textarea></td></tr>" & _
  629. "</table>")
  630. End Sub
  632. Sub ShowToolBarList()
  634. Call ShowMessage("<b class=blue>样式（" & outHTML(sStyleName) & "）下的工具栏管理：</b>")
  636. Dim s_AddForm, s_ModiForm, i, aCurrToolbar
  638. If nStyleIsSys = 1 Then
  639. s_AddForm = ""
  640. Else
  641. Dim nMaxOrder
  642. nMaxOrder = 0
  643. For i = 1 To UBound(aToolbar)
  644. aCurrToolbar = Split(aToolbar(i), "|||")
  645. If aCurrToolbar(0) = sStyleID Then
  646. If Clng(aCurrToolbar(3)) > nMaxOrder Then
  647. nMaxOrder = Clng(aCurrToolbar(3))
  648. End If
  649. End If
  650. Next
  651. nMaxOrder = nMaxOrder + 1
  653. s_AddForm = "<hr width='80%' align=center size=1><table border=0 cellpadding=4 cellspacing=0 align=center>" & _
  654. "<form action='?id=" & sStyleID & "&action=toolbaradd' name='addform' method=post>" & _
  655. "<tr><td>工具栏名：<input type=text name=d_name size=20 class=input value='工具栏" & nMaxOrder & "'> 排序号：<input type=text name=d_order size=5 value='" & nMaxOrder & "' class=input> <input type=submit name=b1 value='新增工具栏'></td></tr>" & _
  656. "</form></table><hr width='80%' align=center size=1>"
  657. End If
  659. Dim s_Manage, s_SubmitButton
  660. s_ModiForm = "<form action='?id=" & sStyleID & "&action=toolbarmodi' name=modiform method=post>" & _
  661. "<table border=0 cellpadding=0 cellspacing=1 align=center class=form>" & _
  662. "<tr align=center><th>ID</th><th>工具栏名</th><th>排序号</th><th>操作</th></tr>"
  664. For i = 1 To UBound(aToolbar)
  665. aCurrToolbar = Split(aToolbar(i), "|||")
  666. If aCurrToolbar(0) = sStyleID Then
  667. s_Manage = "<a href='?id=" & sStyleID & "&action=buttonset&toolbarid=" & i & "'>按钮设置</a>"
  668. s_Manage = s_Manage & "|<a href='?id=" & sStyleID & "&action=toolbardel&delid=" & i & "'>删除</a>"
  669. s_ModiForm = s_ModiForm & "<tr align=center>" & _
  670. "<td>" & i & "</td>" & _
  671. "<td><input type=text name='d_name" & i & "' value=""" & inHTML(aCurrToolbar(2)) & """ size=30 class=input></td>" & _
  672. "<td><input type=text name='d_order" & i & "' value='" & aCurrToolbar(3) & "' size=5 class=input></td>" & _
  673. "<td>" & s_Manage & "</td>" & _
  674. "</tr>"
  675. End If
  676. Next
  678. s_SubmitButton = "<tr><td colspan=4 align=center><input type=submit name=b1 value='  修改  '></td></tr>"
  679. s_ModiForm = s_ModiForm & s_SubmitButton & "</table></form>"
  681. Response.Write (s_AddForm & s_ModiForm)
  683. End Sub
  685. Sub DoToolBarAdd()
  686. Dim s_Name, s_Order
  687. s_Name = Trim(Request("d_name"))
  688. s_Order = Trim(Request("d_order"))
  689. If s_Name = "" Or GetTrueLen(s_Name) > 50 Then
  690. GoError ("工具栏名不能为空，且长度不能大于50个字符长度！")
  691. End If
  692. If IsNumeric(s_Order) = False Then
  693. GoError ("无效的工具栏排序号，排序号必须为数字！")
  694. End If
  696. Dim nToolbarNum
  697. nToolbarNum = Ubound(aToolbar) + 1
  698. Redim Preserve aToolbar(nToolbarNum)
  699. aToolbar(nToolbarNum) = sStyleID & "||||||" & s_Name & "|||" & s_Order
  701. Call WriteConfig()
  702. Call WriteStyle(Clng(sStyleID))
  704. Response.Write ("<script language=javascript>alert(""工具栏（" & outHTML(s_Name) & "）增加操作成功！"");</s" & "cript>")
  705. Call GoUrl("?action=toolbar&id=" & sStyleID)
  706. End Sub
  708. Sub DoToolBarModi()
  709. Dim s_Name, s_Order, i, aCurrToolbar
  711. For i = 1 To UBound(aToolbar)
  712. aCurrToolbar = Split(aToolbar(i), "|||")
  713. If aCurrToolbar(0) = sStyleID Then
  714. s_Name = Trim(Request("d_name" & i))
  715. s_Order = Trim(Request("d_order" & i))
  716. If s_Name = "" Or IsNumeric(s_Order) = False Then 
  717. aCurrToolbar(0) = ""
  718. s_Name = ""
  719. End If
  720. aToolbar(i) = aCurrToolbar(0) & "|||" & aCurrToolbar(1) & "|||" & s_Name & "|||" & s_Order
  721. End If
  722. Next
  724. Call WriteConfig()
  725. Call WriteStyle(Clng(sStyleID))
  727. Response.Write ("<script language=javascript>alert('工具栏修改操作成功！');</s" & "cript>")
  728. Call GoUrl("?action=toolbar&id=" & sStyleID)
  730. End Sub
  732. Sub DoToolBarDel()
  733. Dim s_DelID
  734. s_DelID = Trim(Request("delid"))
  735. If IsNumeric(s_DelID) = True Then
  736. aToolbar(Clng(s_DelID)) = ""
  737. Call WriteConfig()
  738. Call WriteStyle(Clng(sStyleID))
  739. Response.Write ("<script language=javascript>alert('工具栏（ID：" & s_DelID & "）删除操作成功！');</s" & "cript>")
  740. Call GoUrl("?action=toolbar&id=" & sStyleID)
  741. End If
  742. End Sub
  744. Sub InitToolBar()
  745. Dim b, aCurrToolbar, nToolbarID
  746. b = False
  747. sToolBarID = Trim(Request("toolbarid"))
  748. If IsNumeric(sToolBarID) = True Then
  749. If Clng(sToolBarID) <= UBound(aToolbar) And Clng(sToolBarID) > 0 Then
  750. aCurrToolbar = Split(aToolbar(Clng(sToolbarID)), "|||")
  751. sToolBarName = aCurrToolbar(2)
  752. sToolBarOrder = aCurrToolbar(3)
  753. sToolBarButton = aCurrToolbar(1)
  754. b = True
  755. End If
  756. End If
  757. If b = False Then
  758. GoError ("无效的工具栏ID号，请通过页面上的链接进行操作！")
  759. End If
  760. End Sub
  762. Sub ShowButtonList()
  764. Call ShowMessage("<b class=blue>当前样式：<span class=red>" & outHTML(sStyleName) & "</span>&nbsp;&nbsp;当前工具栏：<span class=red>" & outHTML(sToolBarName) & "</span></b>")
  766. Dim i, n
  768. Dim s_Option1
  769. s_Option1 = ""
  770. For i = 1 To UBound(aButton, 1)
  771. If aButton(i, 8) = 1 Then
  772. s_Option1 = s_Option1 & "<option value='" & aButton(i, 1) & "'>" & aButton(i, 2) & "</option>"
  773. End If
  774. Next
  776. Dim aSelButton, s_Option2, s_Temp
  777. aSelButton = Split(sToolBarButton, "|")
  778. s_Option2 = ""
  779. For i = 0 To UBound(aSelButton)
  780. s_Temp = Code2Title(aSelButton(i))
  781. If s_Temp <> "" Then
  782. s_Option2 = s_Option2 & "<option value='" & aSelButton(i) & "'>" & s_Temp & "</option>"
  783. End If
  784. Next
  788. Response.Write ("<s" & "cript language=javascript>" & VBCrlf & _
  789. "function Add() {" & VBCrlf & _
  790. " var sel1=document.myform.d_b1;" & VBCrlf & _
  791. " var sel2=document.myform.d_b2;" & VBCrlf & _
  792. " if (sel1.selectedIndex<0) {" & VBCrlf & _
  793. " alert(""请选择一个待选按钮！"");" & VBCrlf & _
  794. " return;" & VBCrlf & _
  795. " }" & VBCrlf & _
  796. " sel2.options[sel2.length]=new Option(sel1.options[sel1.selectedIndex].innerHTML,sel1.options[sel1.selectedIndex].value);" & VBCrlf & _
  797. "}" & VBCrlf & _
  798. "" & VBCrlf & _
  799. "function Del() {" & VBCrlf & _
  800. " var sel=document.myform.d_b2;" & VBCrlf & _
  801. " var nIndex = sel.selectedIndex;" & VBCrlf & _
  802. " var nLen = sel.length;" & VBCrlf & _
  803. " if (nLen<1) return;" & VBCrlf & _
  804. " if (nIndex<0) {" & VBCrlf & _
  805. " alert(""请选择一个已选按钮！"");" & VBCrlf & _
  806. " return;" & VBCrlf & _
  807. " }" & VBCrlf & _
  808. " for (var i=nIndex;i<nLen-1;i++) {" & VBCrlf & _
  809. " sel.options[i].value=sel.options[i+1].value;" & VBCrlf & _
  810. " sel.options[i].innerHTML=sel.options[i+1].innerHTML;" & VBCrlf & _
  811. " }" & VBCrlf & _
  812. " sel.length=nLen-1;" & VBCrlf & _
  813. "}" & VBCrlf & _
  814. "" & VBCrlf & _
  815. "function Up() {" & VBCrlf & _
  816. " var sel=document.myform.d_b2;" & VBCrlf & _
  817. " var nIndex = sel.selectedIndex;" & VBCrlf & _
  818. " var nLen = sel.length;" & VBCrlf & _
  819. " if ((nLen<1)||(nIndex==0)) return;" & VBCrlf & _
  820. " if (nIndex<0) {" & VBCrlf & _
  821. " alert(""请选择一个要移动的已选按钮！"");" & VBCrlf & _
  822. " return;" & VBCrlf & _
  823. " }" & VBCrlf & _
  824. " var sValue=sel.options[nIndex].value;" & VBCrlf & _
  825. " var sHTML=sel.options[nIndex].innerHTML;" & VBCrlf & _
  826. " sel.options[nIndex].value=sel.options[nIndex-1].value;" & VBCrlf & _
  827. " sel.options[nIndex].innerHTML=sel.options[nIndex-1].innerHTML;" & VBCrlf & _
  828. " sel.options[nIndex-1].value=sValue;" & VBCrlf & _
  829. " sel.options[nIndex-1].innerHTML=sHTML;" & VBCrlf & _
  830. " sel.selectedIndex=nIndex-1;" & VBCrlf & _
  831. "}" & VBCrlf & _
  832. "" & VBCrlf & _
  833. "function Down() {" & VBCrlf & _
  834. " var sel=document.myform.d_b2;" & VBCrlf & _
  835. " var nIndex = sel.selectedIndex;" & VBCrlf & _
  836. " var nLen = sel.length;" & VBCrlf & _
  837. " if ((nLen<1)||(nIndex==nLen-1)) return;" & VBCrlf & _
  838. " if (nIndex<0) {" & VBCrlf & _
  839. " alert(""请选择一个要移动的已选按钮！"");" & VBCrlf & _
  840. " return;" & VBCrlf & _
  841. " }" & VBCrlf & _
  842. " var sValue=sel.options[nIndex].value;" & VBCrlf & _
  843. " var sHTML=sel.options[nIndex].innerHTML;" & VBCrlf & _
  844. " sel.options[nIndex].value=sel.options[nIndex+1].value;" & VBCrlf & _
  845. " sel.options[nIndex].innerHTML=sel.options[nIndex+1].innerHTML;" & VBCrlf & _
  846. " sel.options[nIndex+1].value=sValue;" & VBCrlf & _
  847. " sel.options[nIndex+1].innerHTML=sHTML;" & VBCrlf & _
  848. " sel.selectedIndex=nIndex+1;" & VBCrlf & _
  849. "}" & VBCrlf & _
  850. "" & VBCrlf & _
  851. "function checkform() {" & VBCrlf & _
  852. " var sel=document.myform.d_b2;" & VBCrlf & _
  853. " var nLen = sel.length;" & VBCrlf & _
  854. " var str="""";" & VBCrlf & _
  855. " for (var i=0;i<nLen;i++) {" & VBCrlf & _
  856. " if (i>0) str+=""|"";" & VBCrlf & _
  857. " str+=sel.options[i].value;" & VBCrlf & _
  858. " }" & VBCrlf & _
  859. " document.myform.d_button.value=str;" & VBCrlf & _
  860. " return true;" & VBCrlf & _
  861. "}" & VBCrlf & _
  862. "" & VBCrlf & _
  863. "</s" & "cript>")
  866. Dim s_SubmitButton
  867. If nStyleIsSys = 1 Then
  868. s_SubmitButton = ""
  869. Else
  870. s_SubmitButton = "<input type=submit name=b value=' 保存设置 '>"
  871. End If
  872. Response.Write ("<table border=0 cellpadding=5 cellspacing=0 align=center>" & _
  873. "<form action='?action=buttonsave&id=" & sStyleID & "&toolbarid=" & sToolBarID & "' method=post name=myform onsubmit='return checkform()'>" & _
  874. "<tr align=center><td>可选按钮</td><td></td><td>已选按钮</td><td></td></tr>" & _
  875. "<tr align=center>" & _
  876. "<td><select name='d_b1' size=20 style='width:250px' ondblclick='Add()'>" & s_Option1 & "</select></td>" & _
  877. "<td><input type=button name=b1 value=' → ' onclick='Add()'><br><br><input type=button name=b1 value=' ← ' onclick='Del()'></td>" & _
  878. "<td><select name='d_b2' size=20 style='width:250px' ondblclick='Del()'>" & s_Option2 & "</select></td>" & _
  879. "<td><input type=button name=b3 value='↑' onclick='Up()'><br><br><br><input type=button name=b4 value='↓' onclick='Down()'></td>" & _
  880. "</tr>" & _
  881. "<input type=hidden name='d_button' value=''>" & _
  882. "<tr><td colspan=4 align=right>" & s_SubmitButton & "</td></tr>" & _
  883. "</form></table>")
  886. Response.Write ("<table border=0 cellspacing=1 align=center class=list>" & _
  887. "<tr><th colspan=4>以下是按钮图片对照表（部分下拉框或特殊按钮可能没图）：</th></tr>")
  888. n = 0
  889. Dim m
  890. m = 0
  891. For i = 1 To UBound(aButton)
  892. If aButton(i, 8) = 1 Then
  893. m = m + 1
  894. n = m Mod 4
  895. If n = 1 Then
  896. Response.Write ("<tr>")
  897. End If
  898. Response.Write ("<td>")
  899. If aButton(i, 3) <> "" Then
  900. Response.Write ("<img border=0 align=absmiddle src='../buttonimage/" & sStyleDir & "/" & aButton(i, 3) & "'>")
  901. End If
  902. Response.Write (aButton(i, 2))
  903. Response.Write ("</td>")
  904. If n = 0 Then
  905. Response.Write ("</tr>")
  906. End If
  907. End If
  908. Next
  909. If n > 0 Then
  910. For i = 1 To 4 - n
  911. Response.Write ("<td>&nbsp;</td>")
  912. Next
  913. Response.Write ("</tr>")
  914. End if
  915. Response.Write ("</table>")
  916. End Sub
  918. Function Code2Title(s_Code)
  919. Dim i
  920. Code2Title = ""
  921. For i = 1 To UBound(aButton)
  922. If UCase(aButton(i, 1)) = UCase(s_Code) Then
  923. Code2Title = aButton(i, 2)
  924. Exit Function
  925. End If
  926. Next
  927. End Function
  929. Sub DoButtonSave()
  930. Dim s_Button, nToolBarID, aCurrToolbar
  931. s_Button = Trim(Request("d_button"))
  933. nToolBarID = Clng(sToolBarID)
  934. aCurrToolbar = Split(aToolbar(nToolBarID), "|||")
  935. aToolbar(nToolBarID) = aCurrToolbar(0) & "|||" & s_Button & "|||" & aCurrToolbar(2) & "|||" & aCurrToolbar(3)
  937. Call WriteConfig()
  938. Call WriteStyle(Clng(sStyleID))
  940. Call ShowMessage("<b><span class=red>工具栏按钮设置保存成功！</span></b><li><a href='?action=stylepreview&id=" & sStyleID & "' target='_blank'>预览此样式</a><li><a href='?action=toolbar&id=" & sStyleID & "'>返回工具栏管理</a><li><a href='?action=buttonset&id=" & sStyleID & "&toolbarid=" & sToolBarID & "'>重新设置此工具栏下的按钮</a>")
  942. End Sub
  944. Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_AllName)
  945. Dim i
  946. InitSelect = "<select name='" & s_FieldName & "' size=1>"
  947. If s_AllName <> "" Then
  948. InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>"
  949. End If
  951. For i = 0 To UBound(a_Name)
  952. InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """"
  953. If a_Value(i) = v_InitValue Then
  954. InitSelect = InitSelect & " selected"
  955. End If
  956. InitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>"
  957. Next
  958. InitSelect = InitSelect & "</select>"
  959. End Function
  963. Sub WriteStyle(n_StyleID)
  964. Dim sConfig
  965. Dim aTmpStyle
  967. sConfig = ""
  968. aTmpStyle = Split(aStyle(n_StyleID), "|||")
  969. sConfig = sConfig & "config.ButtonDir = """ & aTmpStyle(1) & """;" & Vbcrlf
  970. sConfig = sConfig & "config.StyleUploadDir = """ & aTmpStyle(3) & """;" & Vbcrlf
  971. sConfig = sConfig & "config.InitMode = """ & aTmpStyle(18) & """;" & Vbcrlf
  972. sConfig = sConfig & "config.AutoDetectPasteFromWord = """ & aTmpStyle(17) & """;" & Vbcrlf
  973. sConfig = sConfig & "config.BaseUrl = """ & aTmpStyle(19) & """;" & Vbcrlf
  974. sConfig = sConfig & "config.BaseHref = """ & aTmpStyle(22) & """;" & Vbcrlf
  975. sConfig = sConfig & "config.AutoRemote = """ & aTmpStyle(24) & """;" & Vbcrlf
  976. sConfig = sConfig & "config.ShowBorder = """ & aTmpStyle(25) & """;" & Vbcrlf
  977. sConfig = sConfig & "config.StateFlag = """ & aTmpStyle(16) & """;" & Vbcrlf
  978. sConfig = sConfig & "config.CssDir = """ & aTmpStyle(2) & """;" & Vbcrlf
  979. sConfig = sConfig & "config.AutoDetectLanguage = """ & aTmpStyle(27) & """;" & Vbcrlf
  980. sConfig = sConfig & "config.DefaultLanguage = """ & aTmpStyle(28) & """;" & Vbcrlf
  981. sConfig = sConfig & "config.AllowBrowse = """ & aTmpStyle(43) & """;" & Vbcrlf
  982. sConfig = sConfig & Vbcrlf
  983. sConfig = sConfig & "function showToolbar(){" & Vbcrlf
  984. sConfig = sConfig & Vbcrlf
  986. sConfig = sConfig & chr(9) & "document.write ("""
  987. sConfig = sConfig & "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  989. Dim s_Order, s_ID, n, aTmpToolbar
  990. s_Order = ""
  991. s_ID = ""
  992. For n = 1 To UBound(aToolbar)
  993. If aToolbar(n) <> "" Then
  994. aTmpToolbar = Split(aToolbar(n), "|||")
  995. If aTmpToolbar(0) = CStr(n_StyleID) Then
  996. If s_ID <> "" Then
  997. s_ID = s_ID & "|"
  998. s_Order = s_Order & "|"
  999. End If
  1000. s_ID = s_ID & CStr(n)
  1001. s_Order = s_Order & aTmpToolbar(3)
  1002. End If
  1003. End If
  1004. Next
  1006. Dim a_ID, a_Order, aTmpButton, i
  1007. If s_ID <> "" Then
  1008. a_ID = Split(s_ID, "|")
  1009. a_Order = Split(s_Order, "|")
  1010. For n = 0 To UBound(a_Order)
  1011. a_Order(n) = Clng(a_Order(n))
  1012. a_ID(n) = Clng(a_ID(n))
  1013. Next
  1014. a_ID = Sort(a_ID, a_Order)
  1015. For n = 0 To UBound(a_ID)
  1016. aTmpToolbar = Split(aToolbar(a_ID(n)), "|||")
  1017. aTmpButton = Split(aTmpToolbar(1), "|")
  1019. sConfig = sConfig & "<tr><td><div class=yToolbar>"
  1020. For i = 0 To UBound(aTmpButton)
  1021. If UCase(aTmpButton(i)) = "MAXIMIZE" Then
  1022. sConfig = sConfig & """);" & Vbcrlf
  1023. sConfig = sConfig & Vbcrlf
  1025. sConfig = sConfig & chr(9) & "if (sFullScreen==""1""){" & Vbcrlf
  1026. sConfig = sConfig & chr(9) & chr(9) & "document.write (""" & Code2HTML("Minimize", aTmpStyle(1)) & """);" & Vbcrlf
  1027. sConfig = sConfig & chr(9) & "}else{" & Vbcrlf
  1028. sConfig = sConfig & chr(9) & chr(9) & "document.write (""" & Code2HTML(aTmpButton(i), aTmpStyle(1)) & """);" & Vbcrlf
  1029. sConfig = sConfig & chr(9) & "}" & Vbcrlf
  1030. sConfig = sConfig & Vbcrlf
  1032. sConfig = sConfig & chr(9) & "document.write ("""
  1033. Else
  1034. sConfig = sConfig & Code2HTML(aTmpButton(i), aTmpStyle(1))
  1035. End If
  1036. Next
  1037. sConfig = sConfig & "</div></td></tr>"
  1038. Next
  1039. Else
  1040. sConfig = sConfig & "<tr><td></td></tr>"
  1041. End If
  1043. sConfig = sConfig & "</table>"");" & Vbcrlf
  1044. sConfig = sConfig & Vbcrlf
  1045. sConfig = sConfig & "}" & Vbcrlf
  1047. Call WriteFile("../style/" & LCase(aTmpStyle(0)) & ".js", sConfig)
  1049. End Sub
  1051. Function Code2HTML(s_Code, s_ButtonDir)
  1052. Dim i
  1053. Code2HTML = ""
  1054. For i = 1 To UBound(aButton, 1)
  1055. If UCase(aButton(i, 1)) = UCase(s_Code) Then
  1056. Select Case aButton(i, 5)
  1057. Case 0
  1058. Code2HTML = "<DIV CLASS=" & aButton(i, 7) & " TITLE='""+lang[""" & aButton(i, 1) & """]+""' onclick=""" & aButton(i, 6) & """><IMG CLASS=Ico SRC='buttonimage/" & s_ButtonDir & "/" & aButton(i, 3) & "'></DIV>"
  1059. Case 1
  1060. If aButton(i, 4) <> "" Then
  1061. Code2HTML = "<SELECT CLASS=" & aButton(i, 7) & " onchange=""" & aButton(i, 6) & """>" & aButton(i, 4) & "</SELECT>"
  1062. Else
  1063. Code2HTML = "<SELECT CLASS=" & aButton(i, 7) & " onchange=""" & aButton(i, 6) & """>""+lang[""" & aButton(i, 1) & """]+""</SELECT>"
  1064. End If
  1065. Case 2
  1066. Code2HTML = "<DIV CLASS=" & aButton(i, 7) & ">" & aButton(i, 4) & "</DIV>"
  1067. End Select
  1068. Exit Function
  1069. End If
  1070. Next
  1071. End Function
  1073. Sub DeleteFile(s_StyleName)
  1074. On Error Resume Next
  1075. Dim oFSO, sMapFileName
  1076. oFSO = Server.CreateObject("Scripting.FileSystemObject")
  1077. sMapFileName = Server.MapPath("../style/" & LCase(s_StyleName) & ".js")
  1078. If oFSO.FileExists(sMapFileName) Then
  1079. oFSO.DeleteFile(sMapFileName)
  1080. End If
  1081. oFSO = Nothing
  1082. End Sub
  1084. Sub GoUrl(url)
  1085. Response.Write ("<script language=javascript>location.href=""" & url & """;</s" & "cript>")
  1086. Response.End
  1087. End Sub
  1089. Function isValidColor(str)
  1090. Dim re As Regex
  1091. re = new Regex("[A-Fa-f0-9]{6}")
  1092. isValidColor = re.IsMatch(str)
  1093. End Function
  1095. </script>