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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Admin_Style.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：40k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

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