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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
Admin_Style.asp
资源名称：imail.rar　[点击查看]
上传用户：lwb168
上传日期：2021-10-31
资源大小：722k
文件大小：39k
源码类别：

Email服务器

开发平台：

ASP/ASPX

Admin_Style.asp：源码内容
  1. <!--#include file = "Include/Startup.asp"-->
  2. <!--#include file = "admin_private.asp"-->
  3. <%
  4. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  5. '★                                                                  ★
  6. '☆                eWebEditor - eWebSoft在线编辑器                   ☆
  7. '★                                                                  ★
  8. '☆  版权所有: eWebSoft.com                                          ☆
  9. '★                                                                  ★
  10. '☆  程序制作: eWeb开发团队                                          ☆
  11. '★            email:webmaster@webasp.net                            ★
  12. '☆            QQ:589808                                             ☆
  13. '★                                                                  ★
  14. '☆  相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆
  15. '★            [支持论坛]http://bbs.eWebSoft.com/                    ★
  16. '☆                                                                  ☆
  17. '★  主页地址: http://www.eWebSoft.com/   eWebSoft团队及产品         ★
  18. '☆            http://www.webasp.net/     WEB技术及应用资源网站      ☆
  19. '★            http://bbs.webasp.net/     WEB技术交流论坛            ★
  20. '★                                                                  ★
  21. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  22. %>
  24. <%
  26. Dim sStyleID, sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, nStyleIsSys, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl, sStyleUploadObject, sStyleAutoDir, sStyleBaseHref, sStyleContentPath, sStyleAutoRemote, sStyleShowBorder
  27. Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleRemoteExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize, sStyleRemoteSize
  28. Dim sToolBarID, sToolBarName, sToolBarOrder, sToolBarButton
  30. sPosition = sPosition & "样式管理"
  32. If sAction = "STYLEPREVIEW" Then
  33. ' 样式预览
  34. Call InitStyle()
  35. Call ShowStylePreview()
  36. Response.End
  37. End If
  40. Call Header()
  41. Call Content()
  42. Call Footer()
  45. Sub Content()
  46. Select Case sAction
  47. Case "COPY"
  48. ' 拷贝一标准样式
  49. Call InitStyle()
  50. Call DoCopy()
  51. Call ShowStyleList()
  52. Case "STYLEADD"
  53. ' 新增样式表单
  54. Call ShowStyleForm("ADD")
  55. Case "STYLESET"
  56. ' 样式设置，修改或查看
  57. Call InitStyle()
  58. Call ShowStyleForm("SET")
  59. Case "STYLEADDSAVE"
  60. ' 样式新增保存
  61. Call CheckStyleForm()
  62. Call DoStyleAddSave()
  63. Case "STYLESETSAVE"
  64. ' 样式设置修改保存
  65. Call CheckStyleForm()
  66. Call DoStyleSetSave()
  67. Call RemoveApplication()
  68. Case "STYLEDEL"
  69. ' 样式删除
  70. Call InitStyle()
  71. Call DoStyleDel()
  72. Call ShowStyleList()
  73. Call RemoveApplication()
  74. Case "CODE"
  75. ' 显示引用代码
  76. Call InitStyle()
  77. Call ShowStyleCode()
  78. Case "TOOLBAR"
  79. ' 显示工具栏表单
  80. Call InitStyle()
  81. Call ShowToolBarList()
  82. Case "TOOLBARADD"
  83. ' 新增工具栏
  84. Call InitStyle()
  85. Call DoToolBarAdd()
  86. Call ShowToolBarList()
  87. Call RemoveApplication()
  88. Case "TOOLBARMODI"
  89. ' 修改工具栏
  90. Call InitStyle()
  91. Call DoToolBarModi()
  92. Call ShowToolBarList()
  93. Call RemoveApplication()
  94. Case "TOOLBARDEL"
  95. ' 删除工具栏
  96. Call InitStyle()
  97. Call DoToolBarDel()
  98. Call ShowToolBarList()
  99. Call RemoveApplication()
  100. Case "BUTTONSET"
  101. ' 按钮设置
  102. Call InitStyle()
  103. Call InitToolBar()
  104. Call ShowButtonList()
  105. Case "BUTTONSAVE"
  106. ' 按钮设置保存
  107. Call InitStyle()
  108. Call InitToolBar()
  109. Call DoButtonSave()
  110. Call RemoveApplication()
  111. Case Else
  112. ' 当前所有样式列表
  113. Call ShowStyleList()
  114. End Select
  115. End Sub
  118. ' 当前所有样式列表
  119. Sub ShowStyleList()
  120. Response.Write "<table border=0 cellpadding=0 cellspacing=0 width='100%' height=40><tr>" & _
  121. "<td class=highlight2><b>以下为当前所有样式列表：</b></td>" & _
  122. "<td align=right><a href='?action=styleadd'>新增样式</a></td></tr></table>"
  124. Response.Write "<table border=0 cellpadding=0 cellspacing=0 class=list1>" & _
  125. "<form action='?action=del' method=post name=myform>" & _
  126. "<tr align=center>" & _
  127. "<th width=80>样式名</th>" & _
  128. "<th width=60>最佳宽度</th>" & _
  129. "<th width=60>最佳高度</th>" & _
  130. "<th width=200>说明</th>" & _
  131. "<th width=180>管理</th>" & _
  132. "</tr>"
  134. Dim sManage
  135. sSql = "select * from ewebeditor_style"
  136. oRs.Open sSql, oConn, 0, 1
  137. Do While Not oRs.Eof
  138. sManage = "<a href='?action=stylepreview&id=" & oRs("S_ID") & "' target='_blank'>预览</a>|<a href='?action=code&id=" & oRs("S_ID") & "'>代码</a>|<a href='?action=styleset&id=" & oRs("S_ID") & "'>设置</a>|<a href='?action=toolbar&id=" & oRs("S_ID") & "'>工具栏</a>"
  139. If oRs("S_IsSys") = 1 Then
  140. sManage = sManage & "|<a href='?action=copy&id=" & oRs("S_ID") & "'>拷贝</a>"
  141. Else
  142. sManage = sManage & "|<a href='?action=styledel&id=" & oRs("S_ID") & "'>删除</a>"
  143. End If
  144. Response.Write "<tr align=center>" & _
  145. "<td>" & outHTML(oRs("S_Name")) & "</td>" & _
  146. "<td>" & oRs("S_Width") & "</td>" & _
  147. "<td>" & oRs("S_Height") & "</td>" & _
  148. "<td align=left>" & outHTML(oRs("S_Memo")) & "</td>" & _
  149. "<td>" & sManage & "</td>" & _
  150. "</tr>"
  151. oRs.MoveNext
  152. Loop
  153. oRs.Close
  155. Response.Write "</table>"
  157. Response.Write "<p class=highlight1><b>说明：</b>系统自带样式不允许对设置进行修改删除，但允许查看设置！你可以先“拷贝一标准样式”然后对其设置进行修改以达到快速新建样式的目的。</p><br><br>"
  159. End Sub
  161. ' 拷贝一标准样式
  162. Sub DoCopy()
  163. ' 只有系统样式才有拷贝功能
  164. If nStyleIsSys <> 1 Then
  165. Exit Sub
  166. End If
  167. ' 自动取有效的样式名，从1......到...
  168. Dim i, b, sNewID, sNewName
  169. b = False
  170. i = 0
  171. Do While b = False
  172. i = i + 1
  173. sNewName = sStyleName & i
  174. sSql = "select s_id from ewebeditor_style where s_name='" & sNewName & "'"
  175. oRs.Open sSql, oConn, 0, 1
  176. If oRs.Eof And oRs.Bof Then
  177. b = True
  178. End If
  179. oRs.Close
  180. Loop
  181. ' 插入一与标准样式相同的记录，名不同
  182. sSql = "insert into ewebeditor_style(s_name,s_dir,s_css,s_uploaddir,s_width,s_height,s_memo,s_issys,s_fileext,s_flashext,s_imageext,s_mediaext, s_remoteext,s_filesize,s_flashsize,s_imagesize,s_mediasize,s_remotesize,s_stateflag,s_detectfromword,s_initmode,s_baseurl,s_uploadobject,s_basehref,s_contentpath) select '" & sNewName & "',s_dir,s_css,s_uploaddir,s_width,s_height,s_memo,0,s_fileext,s_flashext,s_imageext,s_mediaext,s_remoteext,s_filesize,s_flashsize,s_imagesize,s_mediasize,s_remotesize,s_stateflag,s_detectfromword,s_initmode,s_baseurl,s_uploadobject,s_basehref,s_contentpath from ewebeditor_style where s_id=" & sStyleID
  183. oConn.Execute sSql
  184. ' 取新样式的ID
  185. sSql = "select s_id from ewebeditor_style where s_name='" & sNewName & "'"
  186. oRs.Open sSql, oConn, 0, 1
  187. sNewID = oRs(0)
  188. oRs.Close
  189. ' 拷贝工具栏
  190. sSql = "insert into ewebeditor_toolbar(s_id,t_name,t_order,t_button) select " & sNewID & ",t_name,t_order,t_button from ewebeditor_toolbar where s_id=" & sStyleID
  191. oConn.Execute sSql
  192. End Sub
  194. ' 样式表单
  195. Sub ShowStyleForm(sFlag)
  196. Dim s_Title, s_Button, s_Action
  197. Dim s_FormStateFlag, s_FormDetectFromWord, s_FormInitMode, s_FormBaseUrl, s_FormUploadObject, s_FormAutoDir, s_FormAutoRemote, s_FormShowBorder
  199. If sFlag = "ADD" Then
  200. sStyleID = ""
  201. sStyleName = ""
  202. sStyleDir = "standard"
  203. sStyleCSS = "office"
  204. sStyleUploadDir = "UploadFile/"
  205. sStyleBaseHref = "http://Localhost/eWebEditor/"
  206. sStyleContentPath = "UploadFile/"
  207. sStyleWidth = "600"
  208. sStyleHeight = "400"
  209. sStyleMemo = ""
  210. nStyleIsSys = 0
  211. s_Title = "新增样式"
  212. s_Action = "StyleAddSave"
  213. sStyleFileExt = "rar|zip|exe|doc|xls|chm|hlp"
  214. sStyleFlashExt = "swf"
  215. sStyleImageExt = "gif|jpg|jpeg|bmp"
  216. sStyleMediaExt = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
  217. sStyleRemoteExt = "gif|jpg|bmp"
  218. sStyleFileSize = "500"
  219. sStyleFlashSize = "100"
  220. sStyleImageSize = "100"
  221. sStyleMediaSize = "100"
  222. sStyleRemoteSize = "100"
  223. sStyleStateFlag = "1"
  224. sStyleAutoRemote = "1"
  225. sStyleShowBorder = "0"
  226. sStyleUploadObject = "0"
  227. sStyleAutoDir = "0"
  228. sStyleDetectFromWord = "true"
  229. sStyleInitMode = "EDIT"
  230. sStyleBaseUrl = "0"
  231. Else
  232. sStyleName = inHTML(sStyleName)
  233. sStyleDir = inHTML(sStyleDir)
  234. sStyleCSS = inHTML(sStyleCSS)
  235. sStyleUploadDir = inHTML(sStyleUploadDir)
  236. sStyleBaseHref = inHTML(sStyleBaseHref)
  237. sStyleContentPath = inHTML(sStyleContentPath)
  238. sStyleMemo = inHTML(sStyleMemo)
  239. s_Title = "设置样式"
  240. s_Action = "StyleSetSave"
  241. End If
  243. s_FormStateFlag = InitSelect("d_stateflag", Split("显示|不显示", "|"), Split("1|0", "|"), sStyleStateFlag, "", "")
  244. s_FormAutoRemote = InitSelect("d_autoremote", Split("自动上传|不自动上传", "|"), Split("1|0", "|"), sStyleAutoRemote, "", "")
  245. s_FormShowBorder = InitSelect("d_showborder", Split("默认显示|默认不显示", "|"), Split("1|0", "|"), sStyleShowBorder, "", "")
  246. s_FormUploadObject = InitSelect("d_uploadobject", Split("无惧无组件上传类|ASPUpload上传组件|SA-FileUp上传组件|LyfUpload上传组件", "|"), Split("0|1|2|3", "|"), sStyleUploadObject, "", "")
  247. s_FormAutoDir = InitSelect("d_autodir", Split("不使用|年目录|年月目录|年月日目录", "|"), Split("0|1|2|3", "|"), sStyleAutoDir, "", "")
  248. s_FormDetectFromWord = InitSelect("d_detectfromword", Split("自动检测有提示|不自动检测", "|"), Split("true|false", "|"), sStyleDetectFromWord, "", "")
  249. s_FormInitMode = InitSelect("d_initmode", Split("代码模式|编辑模式|文本模式|预览模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "", "")
  250. s_FormBaseUrl = InitSelect("d_baseurl", Split("相对路径|绝对根路径|绝对全路径", "|"), Split("0|1|2", "|"), sStyleBaseUrl, "", "")
  252. If nStyleIsSys = 0 Then
  253. s_Button = "<tr><td align=center colspan=4><input type=image border=0 src='admin/submit.gif' align=absmiddle>&nbsp;<a href='javascript:document.myform.reset()'><img border=0 src='admin/reset.gif' align=absmiddle></a></td></tr>"
  254. Else
  255. s_Button = ""
  256. End If
  258. Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=20 width='100%'><tr><td align=right><a href='javascript:history.back()'>返回</a></td></tr></table>"
  260. Response.Write "<table border=0 cellpadding=0 cellspacing=0 align=center class=form1>" & _
  261. "<form action='?action=" & s_Action & "&id=" & sStyleID & "' method=post name=myform>" & _
  262. "<tr><th colspan=4>&nbsp;&nbsp;" & s_Title & "（鼠标移到输入框可看说明，带*号为必填项）</th></tr>" & _
  263. "<tr><td width='15%' align=right>样式名称：</td><td width='35%'><input type=text class=input size=20 name=d_name title='引用此样式的名字，不要加特殊符号，最大50个字符长度' value=""" & sStyleName & """> <span class=highlight2>*</span></td><td width='15%' align=right>初始模式：</td><td width='35%'>" & s_FormInitMode & " <span class=highlight2>*</span></td></tr>" & _
  264. "<tr><td width='15%' align=right>上传组件：</td><td width='35%'>" & s_FormUploadObject & " <span class=highlight2>*</span></td><td width='15%' align=right>自动目录：</td><td width='35%'>" & s_FormAutoDir & " <span class=highlight2>*</span></td></tr>" & _
  265. "<tr><td width='15%' align=right>图片目录：</td><td width='35%'><input type=text class=input size=20 name=d_dir title='存放此样式图片文件的目录名，必须在ButtonImage下，最大50个字符长度' value=""" & sStyleDir & """> <span class=highlight2>*</span></td><td width='15%' align=right>样式目录：</td><td width='35%'><input type=text class=input size=20 name=d_css title='存放此样式css文件的目录名，必须在CSS下，最大50个字符长度' value=""" & sStyleCSS & """> <span class=highlight2>*</span></td></tr>" & _
  266. "<tr><td width='15%' align=right>最佳宽度：</td><td width='35%'><input type=text class=input name=d_width size=20 title='最佳引用效果的宽度，数字型' value='" & sStyleWidth & "'> <span class=highlight2>*</span></td><td width='15%' align=right>最佳高度：</td><td width='35%'><input type=text class=input name=d_height size=20 title='最佳引用效果的高度，数字型' value='" & sStyleHeight & "'> <span class=highlight2>*</span></td></tr>" & _
  267. "<tr><td width='15%' align=right>状 态 栏：</td><td width='35%'>" & s_FormStateFlag & " <span class=highlight2>*</span></td><td width='15%' align=right>Word粘贴：</td><td width='35%'>" & s_FormDetectFromWord & " <span class=highlight2>*</span></td></tr>" & _
  268. "<tr><td width='15%' align=right>远程文件：</td><td width='35%'>" & s_FormAutoRemote & " <span class=highlight2>*</span></td><td width='15%' align=right>指导方针：</td><td width='35%'>" & s_FormShowBorder & " <span class=highlight2>*</span></td></tr>" & _
  269. "<tr><td colspan=4><span class=highlight2>&nbsp;&nbsp;&nbsp;上传文件及系统文件路径相关设置（只有在使用相对路径模式时，才要设置显示路径和内容路径）：</span></td></tr>" & _
  270. "<tr><td width='15%' align=right>路径模式：</td><td width='35%'>" & s_FormBaseUrl & " <span class=highlight2>*</span> <a href='#baseurl'>说明</a></td><td width='15%' align=right>上传路径：</td><td width='35%'><input type=text class=input size=20 name=d_uploaddir title='上传文件所存放路径，相对eWebEditor根目录文件的路径，最大50个字符长度' value=""" & sStyleUploadDir & """> <span class=highlight2>*</span></td></tr>" & _
  271. "<tr><td width='15%' align=right>显示路径：</td><td width='35%'><input type=text class=input size=20 name=d_basehref title='显示内容页所存放路径，必须以&quot;/&quot;开头，最大50个字符长度' value=""" & sStyleBaseHref & """></td><td width='15%' align=right>内容路径：</td><td width='35%'><input type=text class=input size=20 name=d_contentpath title='实际保存在内容中的路径，相对显示路径的路径，不能以&quot;/&quot;开头，最大50个字符长度' value=""" & sStyleContentPath & """></td></tr>" & _
  272. "<tr><td colspan=4><span class=highlight2>&nbsp;&nbsp;&nbsp;允许上传文件类型及文件大小设置（文件大小单位为KB，0表示没有限制）：</span></td></tr>" & _
  273. "<tr><td width='15%' align=right>图片类型：</td><td width='35%'><input type=text class=input name=d_imageext size=20 title='用于图片相关的上传，最大250个字符长度' value='" & sStyleImageExt & "'></td><td width='15%' align=right>图片限制：</td><td width='35%'><input type=text class=input name=d_imagesize size=20 title='数字型，单位KB' value='" & sStyleImageSize & "'></td></tr>" & _
  274. "<tr><td width='15%' align=right>Flash类型：</td><td width='35%'><input type=text class=input name=d_flashext size=20 title='用于插入Flash动画，最大250个字符长度' value='" & sStyleFlashExt & "'></td><td width='15%' align=right>Flash限制：</td><td width='35%'><input type=text class=input name=d_flashsize size=20 title='数字型，单位KB' value='" & sStyleFlashSize & "'></td></tr>" & _
  275. "<tr><td width='15%' align=right>媒体类型：</td><td width='35%'><input type=text class=input name=d_mediaext size=20 title='用于插入媒体文件，最大250个字符长度' value='" & sStyleMediaExt & "'></td><td width='15%' align=right>媒体限制：</td><td width='35%'><input type=text class=input name=d_mediasize size=20 title='数字型，单位KB' value='" & sStyleMediaSize & "'></td></tr>" & _
  276. "<tr><td width='15%' align=right>其它类型：</td><td width='35%'><input type=text class=input name=d_fileext size=20 title='用于插入其它文件，最大250个字符长度' value='" & sStyleFileExt & "'></td><td width='15%' align=right>其它限制：</td><td width='35%'><input type=text class=input name=d_filesize size=20 title='数字型，单位KB' value='" & sStyleFileSize & "'></td></tr>" & _
  277. "<tr><td width='15%' align=right>远程类型：</td><td width='35%'><input type=text class=input name=d_remoteext size=20 title='用于自动上传远程文件，最大250个字符长度' value='" & sStyleRemoteExt & "'></td><td width='15%' align=right>远程限制：</td><td width='35%'><input type=text class=input name=d_remotesize size=20 title='数字型，单位KB' value='" & sStyleRemoteSize & "'></td></tr>" & _
  278. "<tr><td align=right>备注说明：</td><td colspan=3><textarea class=textarea rows=7 cols=65 name=d_memo title='此样式的说明，更有利于调用'>" & sStyleMemo & "</textarea></td></tr>" & s_Button & _
  279. "</form>" & _
  280. "</table>"
  282. Response.Write "<a name=baseurl></a><p><span class=highlight2><b>路径模式设置说明：</b></span><br>" & _
  283. "<b>相对路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""UploadFile/...""或""../UploadFile/...""形式呈现，当使用此模式时，显示路径和内容路径必填，显示路径必须以""/""开头和结尾，内容路径设置中不能以""/""开头。<br>" & _
  284. "<b>绝对根路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。<br>" & _
  285. "<b>绝对全路径：</b>指所有的相关上传或自动插入文件路径，编辑后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""这种形式呈现，当使用此模式时，显示路径和内容路径不必填。</p><br><br>"
  287. End Sub
  289. ' 初始化样式表数据
  290. Sub InitStyle()
  291. Dim b
  292. b = False
  293. sStyleID = Trim(Request("id"))
  294. If IsNumeric(sStyleID) = True Then
  295. sSql = "select * from ewebeditor_style where s_id=" & sStyleID
  296. oRs.Open sSql, oConn, 0, 1
  297. If Not oRs.Eof Then
  298. sStyleName = oRs("S_Name")
  299. sStyleDir = oRs("S_Dir")
  300. sStyleCSS = oRs("S_CSS")
  301. sStyleUploadDir = oRs("S_UploadDir")
  302. sStyleBaseHref = oRs("S_BaseHref")
  303. sStyleContentPath = oRs("S_ContentPath")
  304. sStyleWidth = CStr(oRs("S_Width"))
  305. sStyleHeight = CStr(oRs("S_Height"))
  306. sStyleMemo = oRs("S_Memo")
  307. nStyleIsSys = oRs("S_IsSys")
  308. sStyleFileExt = oRs("S_FileExt")
  309. sStyleFlashExt = oRs("S_FlashExt")
  310. sStyleImageExt = oRs("S_ImageExt")
  311. sStyleMediaExt = oRs("S_MediaExt")
  312. sStyleRemoteExt = oRs("S_RemoteExt")
  313. sStyleFileSize = oRs("S_FileSize")
  314. sStyleFlashSize = oRs("S_FlashSize")
  315. sStyleImageSize = oRs("S_ImageSize")
  316. sStyleMediaSize = oRs("S_MediaSize")
  317. sStyleRemoteSize = oRs("S_RemoteSize")
  318. sStyleStateFlag = CStr(oRs("S_StateFlag"))
  319. sStyleAutoRemote = CStr(oRs("S_AutoRemote"))
  320. sStyleShowBorder = CStr(oRs("S_ShowBorder"))
  321. sStyleUploadObject = CStr(oRs("S_UploadObject"))
  322. sStyleAutoDir = CStr(oRs("S_AutoDir"))
  323. sStyleDetectFromWord = oRs("S_DetectFromWord")
  324. sStyleInitMode = oRs("S_InitMode")
  325. sStyleBaseUrl = oRs("S_BaseUrl")
  326. b = True
  327. End If
  328. oRs.Close
  329. End If
  330. If b = False Then
  331. Go_Error "无效的样式ID号，请通过页面上的链接进行操作！"
  332. End If
  333. End Sub
  335. ' 检测样式表单提交的有效性
  336. Sub CheckStyleForm()
  337. sStyleName = Trim(Request("d_name"))
  338. sStyleDir = Trim(Request("d_dir"))
  339. sStyleCSS = Trim(Request("d_css"))
  340. sStyleUploadDir = Trim(Request("d_uploaddir"))
  341. sStyleBaseHref = Trim(Request("d_basehref"))
  342. sStyleContentPath = Trim(Request("d_contentpath"))
  343. sStyleWidth = Trim(Request("d_width"))
  344. sStyleHeight = Trim(Request("d_height"))
  345. sStyleMemo = Request("d_memo")
  346. sStyleImageExt = Request("d_imageext")
  347. sStyleFlashExt = Request("d_flashext")
  348. sStyleMediaExt = Request("d_mediaext")
  349. sStyleRemoteExt = Request("d_remoteext")
  350. sStyleFileExt = Request("d_fileext")
  351. sStyleImageSize = Request("d_imagesize")
  352. sStyleFlashSize = Request("d_flashsize")
  353. sStyleMediaSize = Request("d_mediasize")
  354. sStyleRemoteSize = Request("d_remotesize")
  355. sStyleFileSize = Request("d_filesize")
  356. sStyleStateFlag = Request("d_stateflag")
  357. sStyleAutoRemote = Request("d_autoremote")
  358. sStyleShowBorder = Request("d_showborder")
  359. sStyleUploadObject = Request("d_uploadobject")
  360. sStyleAutoDir = Request("d_autodir")
  361. sStyleDetectFromWord = Request("d_detectfromword")
  362. sStyleInitMode = Request("d_initmode")
  363. sStyleBaseUrl = Request("d_baseurl")
  365. sStyleUploadDir = Replace(sStyleUploadDir, "", "/")
  366. sStyleBaseHref = Replace(sStyleBaseHref, "", "/")
  367. sStyleContentPath = Replace(sStyleContentPath, "", "/")
  368. If Right(sStyleUploadDir, 1) <> "/" Then sStyleUploadDir = sStyleUploadDir & "/"
  369. If Right(sStyleBaseHref, 1) <> "/" Then sStyleBaseHref = sStyleBaseHref & "/"
  370. If Right(sStyleContentPath, 1) <> "/" Then sStyleContentPath = sStyleContentPath & "/"
  372. If sStyleName = "" Or Get_TrueLen(sStyleName) > 50 Then
  373. Go_Error "样式名不能为空，且不大于50个字符长度！"
  374. End If
  375. If IsSafeStr(sStyleName) = False Then
  376. Go_Error "样式名请勿包含特殊字符！"
  377. End If
  378. If sStyleDir = "" Or Get_TrueLen(sStyleDir) > 50 Then
  379. Go_Error "按钮图片目录名不能为空，且不大于50个字符长度！"
  380. End If
  381. If IsSafeStr(sStyleDir) = False Then
  382. Go_Error "按钮图片目录名请勿包含特殊字符！"
  383. End If
  384. If sStyleCSS = "" Or Get_TrueLen(sStyleCSS) > 50 Then
  385. Go_Error "样式CSS目录名不能为空，且不大于50个字符长度！"
  386. End If
  387. If IsSafeStr(sStyleCSS) = False Then
  388. Go_Error "样式CSS目录名请勿包含特殊字符！"
  389. End If
  391. If sStyleUploadDir = "" Or Get_TrueLen(sStyleUploadDir) > 50 Then
  392. Go_Error "上传路径不能为空，且不大于50个字符长度！"
  393. End If
  394. If IsSafeStr(sStyleUploadDir) = False Then
  395. Go_Error "上传路径请勿包含特殊字符！"
  396. End If
  397. Select Case sStyleBaseUrl
  398. Case "0"
  399. If sStyleBaseHref = "" Or Get_TrueLen(sStyleBaseHref) > 50 Then
  400. Go_Error "当使用相对路径模式时，显示路径不能为空，且不大于50个字符长度！"
  401. End If
  402. If IsSafeStr(sStyleBaseHref) = False Then
  403. Go_Error "当使用相对路径模式时，显示路径请勿包含特殊字符！"
  404. End If
  405. If Left(sStyleBaseHref, 1) <> "/" Then
  406. Go_Error "当使用相对路径模式时，显示路径必须以&quot;/&quot;开头！"
  407. End If
  409. If sStyleContentPath = "" Or Get_TrueLen(sStyleContentPath) > 50 Then
  410. Go_Error "当使用相对路径模式时，内容路径不能为空，且不大于50个字符长度！"
  411. End If
  412. If IsSafeStr(sStyleContentPath) = False Then
  413. Go_Error "当使用相对路径模式时，内容路径请勿包含特殊字符！"
  414. End If
  415. If Left(sStyleContentPath, 1) = "/" Then
  416. Go_Error "当使用相对路径模式时，内容路径不能以&quot;/&quot;开头！"
  417. End If
  418. Case "1", "2"
  419. sStyleBaseHref = ""
  420. sStyleContentPath = ""
  421. End Select
  423. If IsNumeric(sStyleWidth) = False Then
  424. Go_Error "请填写有效的最佳引用宽度！"
  425. End If
  426. If IsNumeric(sStyleHeight) = False Then
  427. Go_Error "请填写有效的最佳引用高度！"
  428. End If
  430. If Get_TrueLen(sStyleImageExt) > 250 Then
  431. Go_Error "图片文件类型不能大于250个字符长度！"
  432. End If
  433. If Get_TrueLen(sStyleFlashExt) > 250 Then
  434. Go_Error "Flash文件类型不能大于250个字符长度！"
  435. End If
  436. If Get_TrueLen(sStyleMediaExt) > 250 Then
  437. Go_Error "媒体文件类型不能大于250个字符长度！"
  438. End If
  439. If Get_TrueLen(sStyleFileExt) > 250 Then
  440. Go_Error "其它文件类型不能大于250个字符长度！"
  441. End If
  442. If Get_TrueLen(sStyleRemoteExt) > 250 Then
  443. Go_Error "远程文件类型不能大于250个字符长度！"
  444. End If
  446. If IsNumeric(sStyleImageSize) = False Then
  447. Go_Error "请填写有效的图片限制大小！"
  448. End If
  449. If IsNumeric(sStyleFlashSize) = False Then
  450. Go_Error "请填写有效的Flash限制大小！"
  451. End If
  452. If IsNumeric(sStyleMediaSize) = False Then
  453. Go_Error "请填写有效的媒体文件限制大小！"
  454. End If
  455. If IsNumeric(sStyleFileSize) = False Then
  456. Go_Error "请填写有效的其它文件限制大小！"
  457. End If
  458. If IsNumeric(sStyleRemoteSize) = False Then
  459. Go_Error "请填写有效的远程文件限制大小！"
  460. End If
  462. End Sub
  464. ' 样式新增保存
  465. Sub DoStyleAddSave()
  466. sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
  467. oRs.Open sSql, oConn, 0, 1
  468. If Not oRs.Eof Then
  469. Go_Error "此样式名已经存在，请用另一个样式名！"
  470. End If
  471. oRs.Close
  473. sSql = "select * from ewebeditor_style where s_id=0"
  474. oRs.Open sSql, oConn, 1, 3
  475. oRs.AddNew
  476. oRs("S_Name") = sStyleName
  477. oRs("S_Dir") = sStyleDir
  478. oRs("S_CSS") = sStyleCSS
  479. oRs("S_UploadDir") = sStyleUploadDir
  480. oRs("S_BaseHref") = sStyleBaseHref
  481. oRs("S_ContentPath") = sStyleContentPath
  482. oRs("S_Width") = sStyleWidth
  483. oRs("S_Height") = sStyleHeight
  484. oRs("S_Memo") = sStyleMemo
  485. oRs("S_ImageExt") = sStyleImageExt
  486. oRs("S_FlashExt") = sStyleFlashExt
  487. oRs("S_MediaExt") = sStyleMediaExt
  488. oRs("S_FileExt") = sStyleFileExt
  489. oRs("S_RemoteExt") = sStyleRemoteExt
  490. oRs("S_ImageSize") = sStyleImageSize
  491. oRs("S_FlashSize") = sStyleFlashSize
  492. oRs("S_MediaSize") = sStyleMediaSize
  493. oRs("S_FileSize") = sStyleFileSize
  494. oRs("S_RemoteSize") = sStyleRemoteSize
  495. oRs("S_StateFlag") = sStyleStateFlag
  496. oRs("S_AutoRemote") = sStyleAutoRemote
  497. oRs("S_ShowBorder") = sStyleShowBorder
  498. oRs("S_UploadObject") = sStyleUploadObject
  499. oRs("S_AutoDir") = sStyleAutoDir
  500. oRs("S_DetectFromWord") = sStyleDetectFromWord
  501. oRs("S_InitMode") = sStyleInitMode
  502. oRs("S_BaseUrl") = sStyleBaseUrl
  503. oRs.Update
  504. sStyleID = oRs("S_ID")
  505. oRs.Close
  507. Response.Write "<br><table border=0 cellspacing=20 align=center>" & _
  508. "<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>样式增加成功！</span></b><br><br><ul>我现在<br><br><li><a href='admin_default.asp'>返回后台管理首页</a><li><a href='?'>返回样式管理</a><li><a href='?action=toolbar&id=" & sStyleID & "'>设置此样式下的工具栏</a></ul></td></tr>" & _
  509. "</table><br><br>"
  511. End Sub
  514. ' 样式修改保存
  515. Sub DoStyleSetSave()
  516. sStyleID = Trim(Request("id"))
  517. If IsNumeric(sStyleID) = True Then
  518. ' 是否存在同名
  519. sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "' and s_id<>" & sStyleID
  520. oRs.Open sSql, oConn, 0, 1
  521. If Not oRs.Eof Then
  522. Go_Error "此样式名已经存在，请用另一个样式名！"
  523. End If
  524. oRs.Close
  526. sSql = "select * from ewebeditor_style where s_id=" & sStyleID
  527. oRs.Open sSql, oConn, 1, 3
  528. If Not oRs.Eof Then
  529. If oRs("S_IsSys") = 1 Then
  530. Go_Error "系统样式，不允许修改！"
  531. End If
  532. Else
  533. Go_Error "无效的样式ID号，请通过页面上的链接进行操作！"
  534. End If
  535. oRs("S_Name") = sStyleName
  536. oRs("S_Dir") = sStyleDir
  537. oRs("S_CSS") = sStyleCSS
  538. oRs("S_UploadDir") = sStyleUploadDir
  539. oRs("S_BaseHref") = sStyleBaseHref
  540. oRs("S_ContentPath") = sStyleContentPath
  541. oRs("S_Width") = sStyleWidth
  542. oRs("S_Height") = sStyleHeight
  543. oRs("S_Memo") = sStyleMemo
  544. oRs("S_ImageExt") = sStyleImageExt
  545. oRs("S_FlashExt") = sStyleFlashExt
  546. oRs("S_MediaExt") = sStyleMediaExt
  547. oRs("S_FileExt") = sStyleFileExt
  548. oRs("S_RemoteExt") = sStyleRemoteExt
  549. oRs("S_ImageSize") = sStyleImageSize
  550. oRs("S_FlashSize") = sStyleFlashSize
  551. oRs("S_MediaSize") = sStyleMediaSize
  552. oRs("S_RemoteSize") = sStyleRemoteSize
  553. oRs("S_FileSize") = sStyleFileSize
  554. oRs("S_StateFlag") = sStyleStateFlag
  555. oRs("S_AutoRemote") = sStyleAutoRemote
  556. oRs("S_ShowBorder") = sStyleShowBorder
  557. oRs("S_UploadObject") = sStyleUploadObject
  558. oRs("S_AutoDir") = sStyleAutoDir
  559. oRs("S_DetectFromWord") = sStyleDetectFromWord
  560. oRs("S_InitMode") = sStyleInitMode
  561. oRs("S_BaseUrl") = sStyleBaseUrl
  562. oRs.Update
  563. oRs.Close
  564. Else
  565. Go_Error "无效的样式ID号，请通过页面上的链接进行操作！"
  566. End If
  568. Response.Write "<br><table border=0 cellspacing=20 align=center>" & _
  569. "<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>样式修改成功！</span></b><br><br><ul>我现在<br><br><li><a href='admin_default.asp'>返回后台管理首页</a><li><a href='?'>返回样式管理</a><li><a href='?action=toolbar&id=" & sStyleID & "'>设置此样式下的工具栏</a></ul></td></tr>" & _
  570. "</table><br><br>"
  572. End Sub
  574. ' 样式删除
  575. Sub DoStyleDel()
  576. If nStyleIsSys = 0 Then
  577. sSql = "delete from ewebeditor_style where s_id=" & sStyleID
  578. oConn.Execute sSql
  579. sSql = "delete from ewebeditor_toolbar where s_id=" & sStyleID
  580. oConn.Execute sSql
  581. End If
  582. End Sub
  584. ' 样式预览
  585. Sub ShowStylePreview()
  586. Response.Write "<html><head>" & _
  587. "<title>样式预览</title>" & _
  588. "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & _
  589. "</head><body>" & _
  590. "<input type=hidden name=content1  value=''>" & _
  591. "<iframe ID='eWebEditor1' src='ewebeditor.asp?id=content1&style=" & sStyleName & "' frameborder=0 scrolling=no width='" & sStyleWidth & "' HEIGHT='" & sStyleHeight & "'></iframe>" & _
  592. "</body></html>"
  593. End Sub
  595. ' 显示引用代码
  596. Sub ShowStyleCode()
  597. Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=20 width='100%'><tr><td align=right><a href='javascript:history.back()'>返回</a></td></tr></table>"
  598. Response.Write "<p class=highlight2>样式（<b>" & outHTML(sStyleName) & "</b>）的最佳调用代码如下（其中XXX按实际关联的表单项进行修改）：</p>"
  599. Response.Write "<textarea rows=5 cols=65 style='width:100%'><IFRAME ID=""eWebEditor1"" SRC=""ewebeditor.asp?id=XXX&style=" & sStyleName & """ FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""" & sStyleWidth & """ HEIGHT=""" & sStyleHeight & """></IFRAME></textarea><br><br>"
  600. End Sub
  602. ' 显示工具栏表单列表
  603. Sub ShowToolBarList()
  604. Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=20 width='100%'><tr>" & _
  605. "<td class=highlight2><b>样式（" & outHTML(sStyleName) & "）下的工具栏管理：</b></td>" & _
  606. "<td align=right><a href='?'>返回样式管理</a></td></tr></table>"
  608. Dim s_AddForm, s_ModiForm
  610. ' 增加表单
  611. If nStyleIsSys = 1 Then
  612. s_AddForm = ""
  613. Else
  614. ' 取当前最大排序号
  615. Dim nMaxOrder
  616. sSql = "select max(T_order) from ewebeditor_toolbar where s_id=" & sStyleID
  617. oRs.Open sSql, oConn, 0, 1
  618. If IsNull(oRs(0)) Then
  619. nMaxOrder = 1
  620. Else
  621. nMaxOrder = oRs(0) + 1
  622. End If
  623. oRs.Close
  625. s_AddForm = "<hr width='95%' align=center size=1><table border=0 cellpadding=4 cellspacing=0 align=center>" & _
  626. "<form action='?id=" & sStyleID & "&action=toolbaradd' name='addform' method=post>" & _
  627. "<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>" & _
  628. "</form></table><hr width='95%' align=center size=1>"
  629. End If
  631. ' 修改表单
  632. Dim s_Manage, s_SubmitButton
  633. s_ModiForm = "<form action='?id=" & sStyleID & "&action=toolbarmodi' name=modiform method=post>" & _
  634. "<table border=0 cellpadding=0 cellspacing=0 align=center class=list1>" & _
  635. "<tr align=center><th>ID</th><th>工具栏名</th><th>排序号</th><th>操作</th></tr>"
  636. sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
  637. oRs.Open sSql, oConn, 0, 1
  638. Do While Not oRs.Eof
  639. s_Manage = "<a href='?id=" & sStyleID & "&action=buttonset&toolbarid=" & oRs("t_id") & "'>按钮设置</a>"
  640. If nStyleIsSys <> 1 Then
  641. s_Manage = s_Manage & "|<a href='?id=" & sStyleID & "&action=toolbardel&delid=" & oRs("t_id") & "'>删除</a>"
  642. End If
  643. s_ModiForm = s_ModiForm & "<tr align=center>" & _
  644. "<td>" & oRs("t_id") & "</td>" & _
  645. "<td><input type=text name='d_name" & oRs("t_id") & "' value=""" & inHTML(oRs("t_name")) & """ size=30 class=input></td>" & _
  646. "<td><input type=text name='d_order" & oRs("t_id") & "' value='" & oRs("t_order") & "' size=5 class=input></td>" & _
  647. "<td>" & s_Manage & "</td>" & _
  648. "</tr>"
  649. oRs.MoveNext
  650. Loop
  651. oRs.Close
  652. If nStyleIsSys = 1 Then
  653. s_SubmitButton = ""
  654. Else
  655. s_SubmitButton = "<p align=center><input type=submit name=b1 value=' 修改 '></p>"
  656. End If
  657. s_ModiForm = s_ModiForm & "</table>" & s_SubmitButton & "</form><br><br>"
  659. ' 输出表单
  660. Response.Write s_AddForm & s_ModiForm
  662. End Sub
  664. ' 新增工具栏
  665. Sub DoToolBarAdd()
  666. Dim s_Name, s_Order
  667. s_Name = Trim(Request("d_name"))
  668. s_Order = Trim(Request("d_order"))
  669. If s_Name = "" Or Get_TrueLen(s_Name) > 50 Then
  670. Go_Error "工具栏名不能为空，且长度不能大于50个字符长度！"
  671. End If
  672. If IsNumeric(s_Order) = False Then
  673. Go_Error "无效的工具栏排序号，排序号必须为数字！"
  674. End If
  675. If nStyleIsSys = 1 Then
  676. Go_Error "系统自带样式下的工具栏，不允许新增！"
  677. End If
  678. sSql = "select * from ewebeditor_toolbar where 1=0"
  679. oRs.Open sSql, oConn, 1, 3
  680. oRs.AddNew
  681. oRs("s_id") = sStyleID
  682. oRs("t_name") = s_Name
  683. oRs("t_order") = s_Order
  684. oRs("t_button") = ""
  685. oRs.Update
  686. oRs.Close
  687. Response.Write "<script language=javascript>alert(""工具栏（" & outHTML(s_Name) & "）增加操作成功！"");</script>"
  688. End Sub
  690. ' 修改工具栏
  691. Sub DoToolBarModi()
  692. Dim s_Name, s_Order
  693. If nStyleIsSys = 1 Then
  694. Go_Error "系统自带样式下的工具栏，不允许修改！"
  695. End If
  697. sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID
  698. oRs.Open sSql, oConn, 1, 3
  699. Do While Not oRs.Eof
  700. s_Name = Trim(Request("d_name" & oRs("t_id")))
  701. s_Order = Trim(Request("d_order" & oRs("t_id")))
  702. If s_Name <> "" And IsNumeric(s_Order) = True Then
  703. If s_Name <> oRs("t_name") Or s_Order <> CStr(oRs("t_Order")) Then
  704. oRs("t_name") = s_Name
  705. oRs("t_order") = s_Order
  706. oRs.Update
  707. End If
  708. End If
  709. oRs.MoveNext
  710. Loop
  711. oRs.Close
  712. Response.Write "<script language=javascript>alert('工具栏修改操作成功！');</script>"
  714. End Sub
  716. ' 删除工具栏
  717. Sub DoToolBarDel()
  718. Dim s_DelID
  719. s_DelID = Trim(Request("delid"))
  720. If nStyleIsSys = 1 Then
  721. Go_Error "系统自带样式下的工具栏，不允许删除！"
  722. End If
  723. If IsNumeric(s_DelID) = True Then
  724. sSql = "delete from ewebeditor_toolbar where s_id=" & sStyleID & " and t_id=" & s_DelID
  725. oConn.Execute sSql
  726. Response.Write "<script language=javascript>alert('工具栏（ID：" & s_DelID & "）删除操作成功！');</script>"
  727. End If
  728. End Sub
  730. ' 初始化工具栏
  731. Sub InitToolBar()
  732. Dim b
  733. b = False
  734. sToolBarID = Trim(Request("toolbarid"))
  735. If IsNumeric(sToolBarID) = True Then
  736. sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID & " and t_id=" & sToolBarID
  737. oRs.Open sSql, oConn, 0, 1
  738. If Not oRs.Eof Then
  739. sToolBarName = oRs("T_Name")
  740. sToolBarOrder = oRs("T_Order")
  741. sToolBarButton = oRs("T_Button")
  742. b = True
  743. End If
  744. oRs.Close
  745. End If
  746. If b = False Then
  747. Go_Error "无效的工具栏ID号，请通过页面上的链接进行操作！"
  748. End If
  749. End Sub
  751. ' 按钮设置
  752. Sub ShowButtonList()
  753. Dim i, n
  755. ' 导航
  756. Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=30 width='100%'><tr>" & _
  757. "<td><b>当前样式：<span class=highlight2>" & outHTML(sStyleName) & "</span>&nbsp;&nbsp;当前工具栏：<span class=highlight2>" & outHTML(sToolBarName) & "</span></b></td>" & _
  758. "<td align=right><a href='?action=toolbar&id=" & sStyleID & "'>返回工具栏管理</a> | <a href='?'>返回样式管理</a></td>" & _
  759. "</tr></table>"
  761. ' 取所有按钮
  762. Dim aButtonCode(), aButtonTitle(), aButtonImage()
  763. sSql = "select * from ewebeditor_button where b_allowselect=1 order by b_order asc"
  764. oRs.Open sSql, oConn, 0, 1
  765. i = 0
  766. Do While Not oRs.Eof
  767. i = i + 1
  768. Redim Preserve aButtonCode(i)
  769. Redim Preserve aButtonTitle(i)
  770. Redim Preserve aButtonImage(i)
  771. aButtonCode(i) = oRs("B_Code")
  772. aButtonTitle(i) = oRs("B_Title")
  773. aButtonImage(i) = oRs("B_Image")
  774. oRs.MoveNext
  775. Loop
  776. oRs.Close
  779. ' 取可选列表
  780. Dim s_Option1
  781. s_Option1 = ""
  782. For i = 1 To UBound(aButtonCode)
  783. s_Option1 = s_Option1 & "<option value='" & aButtonCode(i) & "'>" & aButtonTitle(i) & "</option>"
  784. Next
  786. ' 取已选列表
  787. Dim aButton, s_Option2, s_Temp
  788. aButton = Split(sToolBarButton, "|")
  789. s_Option2 = ""
  790. For i = 0 To UBound(aButton)
  791. s_Temp = Code2Title(aButton(i), aButtonCode, aButtonTitle)
  792. If s_Temp <> "" Then
  793. s_Option2 = s_Option2 & "<option value='" & aButton(i) & "'>" & s_Temp & "</option>"
  794. End If
  795. Next
  798. '以下为客户端操作选择脚本
  799. '''''''''''''''''''''''''''''''''''
  800. %>
  802. <script language=javascript>
  803. // 加入已选
  804. function Add() {
  805. var sel1=document.myform.d_b1;
  806. var sel2=document.myform.d_b2;
  807. if (sel1.selectedIndex<0) {
  808. alert("请选择一个待选按钮！");
  809. return;
  810. }
  811. sel2.options[sel2.length]=new Option(sel1.options[sel1.selectedIndex].innerHTML,sel1.options[sel1.selectedIndex].value);
  812. }
  814. // 从已选中删除
  815. function Del() {
  816. var sel=document.myform.d_b2;
  817. var nIndex = sel.selectedIndex;
  818. var nLen = sel.length;
  819. if (nLen<1) return;
  820. if (nIndex<0) {
  821. alert("请选择一个已选按钮！");
  822. return;
  823. }
  824. for (var i=nIndex;i<nLen-1;i++) {
  825. sel.options[i].value=sel.options[i+1].value;
  826. sel.options[i].innerHTML=sel.options[i+1].innerHTML;
  827. }
  828. sel.length=nLen-1;
  829. }
  831. // 排序：向上移动
  832. function Up() {
  833. var sel=document.myform.d_b2;
  834. var nIndex = sel.selectedIndex;
  835. var nLen = sel.length;
  836. if ((nLen<1)||(nIndex==0)) return;
  837. if (nIndex<0) {
  838. alert("请选择一个要移动的已选按钮！");
  839. return;
  840. }
  841. var sValue=sel.options[nIndex].value;
  842. var sHTML=sel.options[nIndex].innerHTML;
  843. sel.options[nIndex].value=sel.options[nIndex-1].value;
  844. sel.options[nIndex].innerHTML=sel.options[nIndex-1].innerHTML;
  845. sel.options[nIndex-1].value=sValue;
  846. sel.options[nIndex-1].innerHTML=sHTML;
  847. sel.selectedIndex=nIndex-1;
  848. }
  850. // 排序：向下移动
  851. function Down() {
  852. var sel=document.myform.d_b2;
  853. var nIndex = sel.selectedIndex;
  854. var nLen = sel.length;
  855. if ((nLen<1)||(nIndex==nLen-1)) return;
  856. if (nIndex<0) {
  857. alert("请选择一个要移动的已选按钮！");
  858. return;
  859. }
  860. var sValue=sel.options[nIndex].value;
  861. var sHTML=sel.options[nIndex].innerHTML;
  862. sel.options[nIndex].value=sel.options[nIndex+1].value;
  863. sel.options[nIndex].innerHTML=sel.options[nIndex+1].innerHTML;
  864. sel.options[nIndex+1].value=sValue;
  865. sel.options[nIndex+1].innerHTML=sHTML;
  866. sel.selectedIndex=nIndex+1;
  867. }
  869. // 提交处理
  870. function checkform() {
  871. var sel=document.myform.d_b2;
  872. var nLen = sel.length;
  873. var str="";
  874. for (var i=0;i<nLen;i++) {
  875. if (i>0) str+="|";
  876. str+=sel.options[i].value;
  877. }
  878. document.myform.d_button.value=str;
  879. return true;
  880. }
  882. </script>
  884. <%
  885. '''''''''''''''''''''''''''''''''''
  888. ' 选择设置表单
  889. Dim s_SubmitButton
  890. If nStyleIsSys = 1 Then
  891. s_SubmitButton = ""
  892. Else
  893. s_SubmitButton = "<input type=submit name=b value=' 保存设置 '>"
  894. End If
  895. Response.Write "<table border=0 cellpadding=5 cellspacing=0 align=center>" & _
  896. "<form action='?action=buttonsave&id=" & sStyleID & "&toolbarid=" & sToolBarID & "' method=post name=myform onsubmit='return checkform()'>" & _
  897. "<tr align=center><td>可选按钮</td><td></td><td>已选按钮</td><td></td></tr>" & _
  898. "<tr align=center>" & _
  899. "<td><select name='d_b1' size=20 style='width:200px' ondblclick='Add()'>" & s_Option1 & "</select></td>" & _
  900. "<td><input type=button name=b1 value=' → ' onclick='Add()'><br><br><input type=button name=b1 value=' ← ' onclick='Del()'></td>" & _
  901. "<td><select name='d_b2' size=20 style='width:200px' ondblclick='Del()'>" & s_Option2 & "</select></td>" & _
  902. "<td><input type=button name=b3 value='↑' onclick='Up()'><br><br><br><input type=button name=b4 value='↓' onclick='Down()'></td>" & _
  903. "</tr>" & _
  904. "<input type=hidden name='d_button' value=''>" & _
  905. "<tr><td colspan=4 align=right>" & s_SubmitButton & "</td></tr>" & _
  906. "</form></table>"
  909. ' 显示图片对照表
  910. Response.Write "<p class=highlight1><b>以下是按钮图片对照表（部分下拉框或特殊按钮可能没图）：</b></p>"
  911. Response.Write "<table border=1 cellpadding=3 cellspacing=0 width='100%'>"
  912. n = 0
  913. For i = 1 To UBound(aButtonCode)
  914. n = i Mod 4
  915. If n = 1 Then
  916. Response.Write "<tr>"
  917. End If
  918. Response.Write "<td>"
  919. If aButtonImage(i) <> "" Then
  920. Response.Write "<img border=0 align=absmiddle src='ButtonImage/standard/" & aButtonImage(i) & "'>"
  921. End If
  922. Response.Write aButtonTitle(i)
  923. Response.Write "</td>"
  924. If n = 0 Then
  925. Response.Write "</tr>"
  926. End If
  927. Next
  928. If n > 0 Then
  929. For i = 1 To 4 - n
  930. Response.Write "<td>&nbsp;</td>"
  931. Next
  932. Response.Write "</tr>"
  933. End if
  934. Response.Write "</table><br><br>"
  935. End Sub
  937. ' 由按钮代码得到按钮标题
  938. Function Code2Title(s_Code, a_ButtonCode, a_ButtonTitle)
  939. Dim i
  940. Code2Title = ""
  941. For i = 1 To UBound(a_ButtonCode)
  942. If UCase(a_ButtonCode(i)) = UCase(s_Code) Then
  943. Code2Title = a_ButtonTitle(i)
  944. Exit Function
  945. End If
  946. Next
  947. End Function
  949. ' 按钮设置保存
  950. Sub DoButtonSave()
  951. Dim s_Button
  952. s_Button = Trim(Request("d_button"))
  953. If nStyleIsSys = 1 Then
  954. Go_Error "系统自带样式，不允许对按钮进行修改！"
  955. End If
  957. sSql = "select * from ewebeditor_toolbar where t_id=" & sToolBarID
  958. oRs.Open sSql, oConn, 1, 3
  959. If Not oRs.Eof Then
  960. oRs("T_Button") = s_Button
  961. oRs.Update
  962. End If
  963. oRs.Close
  965. Response.Write "<br><table border=0 cellspacing=20 align=center>" & _
  966. "<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>工具栏按钮设置保存成功！</span></b><br><br><ul>我现在<br><br><li><a href='admin_default.asp'>返回后台管理首页</a><li><a href='?'>返回样式管理</a><li><a href='?action=toolbar&id=" & sStyleID & "'>返回工具栏管理</a><li><a href='?action=buttonset&id=" & sStyleID & "&toolbarid=" & sToolBarID & "'>重新设置此工具栏下的按钮</a></ul></td></tr>" & _
  967. "</table><br><br>"
  969. End Sub
  971. Sub RemoveApplication()
  972. Dim aApplicationName, i
  973. aApplicationName = Application("eWebEditor_ApplicationName")
  974. If IsArray(aApplicationName) = True Then
  975. For i = 1 To UBound(aApplicationName)
  976. Application.Contents.Remove(aApplicationName(i))
  977. Next
  978. Application.Contents.Remove("eWebEditor_ApplicationName")
  979. Application.Contents.Remove("eWebEditor_ApplicationUrl")
  980. End If
  981. End Sub
  983. %>