eWebEditor.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:13k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = "Include/Startup.asp"-->
  2. <%
  3. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  4. '★                                                                  ★
  5. '☆                eWebEditor - eWebSoft在线编辑器                   ☆
  6. '★                                                                  ★
  7. '☆  版权所有: eWebSoft.com                                          ☆
  8. '★                                                                  ★
  9. '☆  程序制作: eWeb开发团队                                          ☆
  10. '★            email:webmaster@webasp.net                            ★
  11. '☆            QQ:589808                                             ☆
  12. '★                                                                  ★
  13. '☆  相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆
  14. '★            [支持论坛]http://bbs.eWebSoft.com/                    ★
  15. '☆                                                                  ☆
  16. '★  主页地址: http://www.eWebSoft.com/   eWebSoft团队及产品         ★
  17. '☆            http://www.webasp.net/     WEB技术及应用资源网站      ☆
  18. '★            http://bbs.webasp.net/     WEB技术交流论坛            ★
  19. '★                                                                  ★
  20. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  21. %>
  22. <%
  23. ' 初始输入参数
  24. Dim sContentID, sStyleID, sFullScreen
  25. Dim sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, nStateFlag, sDetectFromWord, sInitMode, sBaseUrl, sBaseHref, sAutoRemote, sShowBorder
  26. Dim sVersion, sReleaseDate, sLicense
  27. Dim aButtonCode(), aButtonHTML()
  28. Dim sToolBar, sToolBarNormal, sToolBarFullScreen
  29. ' 初始化
  30. Call Init()
  31. %>
  32. <html>
  33. <head>
  34. <title>eWebEditor - eWebSoft在线编辑器</title>
  35. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  36. <link href="css/<%=sStyleCSS%>/Editor.css" type="text/css" rel="stylesheet">
  37. <Script Language=Javascript>
  38. var sPath = document.location.pathname;
  39. sPath = sPath.substr(0, sPath.length-14);
  40. var sLinkFieldName = "<%=sContentID%>" ;
  41. var sLinkOriginalFileName = "<%=Request.QueryString("originalfilename")%>" ;
  42. var sLinkSaveFileName = "<%=Request.QueryString("savefilename")%>" ;
  43. var sLinkSavePathFileName = "<%=Request.QueryString("savepathfilename")%>" ;
  44. // 全局设置对象
  45. var config = new Object() ;
  46. config.Version = "<%=sVersion%>" ;
  47. config.ReleaseDate = "<%=sReleaseDate%>" ;
  48. config.License = "<%=sLicense%>" ;
  49. config.StyleName = "<%=sStyleName%>";
  50. config.StyleMenuHeader = "<head><link href=""+sPath+"css/<%=sStyleCSS%>/MenuArea.css" type="text/css" rel="stylesheet"></head><body scroll="no" onConTextMenu="event.returnValue=false;">";
  51. config.StyleDir = "<%=sStyleDir%>";
  52. config.StyleUploadDir = "<%=sStyleUploadDir%>";
  53. config.InitMode = "<%=sInitMode%>";
  54. config.AutoDetectPasteFromWord = <%=sDetectFromWord%>;
  55. config.BaseUrl = "<%=sBaseUrl%>";
  56. config.BaseHref = "<%=sBaseHref%>";
  57. config.AutoRemote = "<%=sAutoRemote%>";
  58. config.ShowBorder = "<%=sShowBorder%>";
  59. var sBaseHref = "";
  60. if(config.BaseHref!=""){
  61. sBaseHref = "<base href="" + document.location.protocol + "//" + document.location.host + config.BaseHref + "">";
  62. }
  63. config.StyleEditorHeader = "<head><link href="" + sPath + "css/<%=sStyleCSS%>/EditorArea.css" type="text/css" rel="stylesheet">" + sBaseHref + "</head><body MONOSPACE>" ;
  64. </Script>
  65. <Script Language=Javascript src="include/editor.js"></Script>
  66. <Script Language=Javascript src="include/table.js"></Script>
  67. <Script Language=Javascript src="include/menu.js"></Script>
  68. <script language="javascript" event="onerror(msg, url, line)" for="window">
  69. return true ;  // 隐藏错误
  70. </script>
  71. </head>
  72. <body SCROLLING=no onConTextMenu="event.returnValue=false;">
  73. <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
  74. <tr><td>
  75. <%=sToolBar%>
  76. </td></tr>
  77. <tr><td height='100%'>
  78. <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
  79. <tr><td height='100%'>
  80. <input type="hidden" ID="ContentEdit" value="">
  81. <input type="hidden" ID="ModeEdit" value="">
  82. <input type="hidden" ID="ContentLoad" value="">
  83. <input type="hidden" ID="ContentFlag" value="0">
  84. <iframe class="Composition" ID="eWebEditor" MARGINHEIGHT="1" MARGINWIDTH="1" width="100%" height="100%" scrolling="yes"> 
  85. </iframe>
  86. </td></tr>
  87. </table>
  88. </td></tr>
  89. <% If nStateFlag = 1 Then %>
  90. <tr><td height=25>
  91. <TABLE border="0" cellPadding="0" cellSpacing="0" width="100%" class=StatusBar height=25>
  92. <TR valign=middle>
  93. <td>
  94. <table border=0 cellpadding=0 cellspacing=0 height=20>
  95. <tr>
  96. <td width=10></td>
  97. <td class=StatusBarBtnOff id=eWebEditor_CODE onclick="setMode('CODE')"><img border=0 src="buttonimage/<%=sStyleDir%>/modecode.gif" width=50 height=15 align=absmiddle></td>
  98. <td width=5></td>
  99. <td class=StatusBarBtnOff id=eWebEditor_EDIT onclick="setMode('EDIT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modeedit.gif" width=50 height=15 align=absmiddle></td>
  100. <td width=5></td>
  101. <td class=StatusBarBtnOff id=eWebEditor_TEXT onclick="setMode('TEXT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modetext.gif" width=50 height=15 align=absmiddle></td>
  102. <td width=5></td>
  103. <td class=StatusBarBtnOff id=eWebEditor_VIEW onclick="setMode('VIEW')"><img border=0 src="buttonimage/<%=sStyleDir%>/modepreview.gif" width=50 height=15 align=absmiddle></td>
  104. </tr>
  105. </table>
  106. </td>
  107. <td align=center style="font-size:9pt"></td>
  108. <td align=right>
  109. <table border=0 cellpadding=0 cellspacing=0 height=20>
  110. <tr>
  111. <td style="cursor:pointer;" onclick="sizeChange(300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeplus.gif" width=20 height=20 alt="增高编辑区"></td>
  112. <td width=5></td>
  113. <td style="cursor:pointer;" onclick="sizeChange(-300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeminus.gif" width=20 height=20 alt="减小编辑区"></td>
  114. <td width=40></td>
  115. </tr>
  116. </table>
  117. </td>
  118. </TR>
  119. </Table>
  120. </td></tr>
  121. <% End If %>
  122. </table>
  123. <div id="eWebEditor_Temp_HTML" style="VISIBILITY: hidden; OVERFLOW: hidden; POSITION: absolute; WIDTH: 1px; HEIGHT: 1px"></div>
  124. <form id="eWebEditor_UploadForm" action="upload.asp?action=remote&type=remote&style=<%=sStyleName%>" method="post" target="eWebEditor_UploadTarget">
  125. <input type="hidden" name="eWebEditor_UploadText">
  126. </form>
  127. <iframe name="eWebEditor_UploadTarget" width=0 height=0></iframe>
  128. <div id=divProcessing style="width:200px;height:30px;position:absolute;display:none">
  129. <table border=0 cellpadding=0 cellspacing=1 bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#3A6EA5><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...远程文件收集中...请等待...</font></marquee></td></tr></table>
  130. </div>
  131. </body>
  132. </html>
  133. <%
  134. ' 显示调用错误提示
  135. Sub ShowErr(str)
  136. Call DBConnEnd()
  137. Response.Write "调用错误:" & str
  138. Response.End
  139. End Sub
  140. ' 初始化
  141. Sub Init()
  142. ' 取全屏标志
  143. sFullScreen = Trim(Request.QueryString("fullscreen"))
  144. ' 取对应的内容ID
  145. sContentID = Trim(Request.QueryString("id"))
  146. If sContentID = "" Then ShowErr "请传入调用参数ID,即隐藏的内容表单项ID!"
  147. ' 取样式初始值
  148. sStyleName = Get_SafeStr(Trim(Request.QueryString("style")))
  149. If sStyleName = "" Then sStyleName = "standard"
  150. Dim s_SelfUrl, s_ApplicationName, n_Application, i
  151. s_SelfUrl = UCase(Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("SCRIPT_NAME") & "?style=" & sStyleName)
  152. n_Application = 0
  153. Dim aApplicationName, aApplicationUrl, aApplicationValue
  154. aApplicationName = Application("eWebEditor_ApplicationName")
  155. aApplicationUrl = Application("eWebEditor_ApplicationUrl")
  156. If IsArray(aApplicationName) = True Then
  157. n_Application = UBound(aApplicationName)
  158. ' 是否在内存中
  159. For i = 1 To n_Application
  160. If aApplicationUrl(i) = s_SelfUrl Then
  161. s_ApplicationName = aApplicationName(i)
  162. aApplicationValue = Application(s_ApplicationName)
  163. sStyleID  = aApplicationValue(0)
  164. sStyleName  = aApplicationValue(1)
  165. sStyleDir  = aApplicationValue(2)
  166. sStyleCSS  = aApplicationValue(3)
  167. sStyleUploadDir  = aApplicationValue(4)
  168. nStateFlag  = aApplicationValue(5)
  169. sDetectFromWord  = aApplicationValue(6)
  170. sInitMode  = aApplicationValue(7)
  171. sBaseUrl  = aApplicationValue(8)
  172. sVersion  = aApplicationValue(9)
  173. sReleaseDate  = aApplicationValue(10)
  174. sLicense  = aApplicationValue(11)
  175. sToolBarNormal  = aApplicationValue(12)
  176. sToolBarFullScreen  = aApplicationValue(13)
  177. sBaseHref  = aApplicationValue(14)
  178. sAutoRemote  = aApplicationValue(15)
  179. sShowBorder  = aApplicationValue(16)
  180. If sFullScreen = "1" Then
  181. sToolBar = sToolBarFullScreen
  182. Else
  183. sToolBar = sToolBarNormal
  184. End If
  185. Exit Sub
  186. End If
  187. Next
  188. End If
  189. ' 初始化数据库连接
  190. Call DBConnBegin()
  191. sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
  192. oRs.Open sSql, oConn, 0, 1
  193. If Not oRs.Eof Then
  194. sStyleID = oRs("S_ID")
  195. sStyleName = oRs("S_Name")
  196. sStyleDir = oRs("S_Dir")
  197. sStyleCSS = oRs("S_CSS")
  198. sStyleUploadDir = oRs("S_UploadDir")
  199. nStateFlag = oRs("S_StateFlag")
  200. sAutoRemote = CStr(oRs("S_AutoRemote"))
  201. sShowBorder = CStr(oRs("S_ShowBorder"))
  202. sDetectFromWord = oRs("S_DetectFromWord")
  203. sInitMode = oRs("S_InitMode")
  204. sBaseUrl = oRs("S_BaseUrl")
  205. sBaseHref = oRs("S_BaseHref")
  206. Else
  207. ShowErr "无效的样式Style参数传入,如果要使用默认值,请留空!"
  208. End If
  209. oRs.Close
  210. ' 取版本号及发布日期
  211. sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
  212. oRs.Open sSql, oConn, 0, 1
  213. sVersion = oRs(0)
  214. sReleaseDate = oRs(1)
  215. sLicense = oRs(2)
  216. oRs.Close
  217. ' 取所有按钮
  218. Call InitButtonArray()
  219. ' 取样式下的工具栏及按钮
  220. Call InitToolBar()
  221. ' 断开数据库连接
  222. Call DBConnEnd()
  223. If sFullScreen = "1" Then
  224. sToolBar = sToolBarFullScreen
  225. Else
  226. sToolBar = sToolBarNormal
  227. End If
  228. n_Application = n_Application + 1
  229. If n_Application = 1 Then
  230. Redim aApplicationName(1)
  231. Redim aApplicationUrl(1)
  232. Else
  233. Redim Preserve aApplicationName(n_Application)
  234. Redim Preserve aApplicationUrl(n_Application)
  235. End If
  236. Redim aApplicationValue(16)
  237. s_ApplicationName = "eWebEditor" & n_Application
  238. aApplicationName(n_Application) = s_ApplicationName
  239. aApplicationUrl(n_Application) = s_SelfUrl
  240. aApplicationValue(0)  = sStyleID
  241. aApplicationValue(1)  = sStyleName
  242. aApplicationValue(2)  = sStyleDir
  243. aApplicationValue(3)  = sStyleCSS
  244. aApplicationValue(4)  = sStyleUploadDir
  245. aApplicationValue(5)  = nStateFlag
  246. aApplicationValue(6)  = sDetectFromWord
  247. aApplicationValue(7)  = sInitMode
  248. aApplicationValue(8)  = sBaseUrl
  249. aApplicationValue(9)  = sVersion
  250. aApplicationValue(10)  = sReleaseDate
  251. aApplicationValue(11)  = sLicense
  252. aApplicationValue(12)  = sToolBarNormal
  253. aApplicationValue(13)  = sToolBarFullScreen
  254. aApplicationValue(14)  = sBaseHref
  255. aApplicationValue(15)  = sAutoRemote
  256. aApplicationValue(16)  = sShowBorder
  257. Application.Lock
  258. Application("eWebEditor_ApplicationName") = aApplicationName
  259. Application("eWebEditor_ApplicationUrl") = aApplicationUrl
  260. Application(s_ApplicationName) = aApplicationValue
  261. Application.Unlock
  262. End Sub
  263. ' 初始化按钮数组
  264. Sub InitButtonArray()
  265. Dim i
  266. sSql = "select * from ewebeditor_button order by b_order asc"
  267. oRs.Open sSql, oConn, 0, 1
  268. i = 0
  269. Do While Not oRs.Eof
  270. i = i + 1
  271. Redim Preserve aButtonCode(i)
  272. Redim Preserve aButtonHTML(i)
  273. aButtonCode(i) = oRs("B_Code")
  274. Select Case oRs("B_Type")
  275. Case 0
  276. aButtonHTML(i) = "<DIV CLASS=""" & oRs("B_Class") & """ TITLE=""" & oRs("B_Title") & """ onclick=""" & oRs("B_Event") & """><IMG CLASS=""Ico"" SRC=""buttonimage/" & sStyleDir & "/" & oRs("B_Image") & """></DIV>"
  277. Case 1
  278. aButtonHTML(i) = "<SELECT CLASS=""" & oRs("B_Class") & """ onchange=""" & oRs("B_Event") & """>" & oRs("B_HTML") & "</SELECT>"
  279. Case 2
  280. aButtonHTML(i) = "<DIV CLASS=""" & oRs("B_Class") & """>" & oRs("B_HTML") & "</DIV>"
  281. End Select
  282. oRs.MoveNext
  283. Loop
  284. oRs.Close
  285. End Sub
  286. ' 由按钮代码得到按钮的最终输出
  287. Function Code2HTML(s_Code)
  288. Dim i
  289. Code2HTML = ""
  290. For i = 1 To UBound(aButtonCode)
  291. If UCase(aButtonCode(i)) = UCase(s_Code) Then
  292. Code2HTML = aButtonHTML(i)
  293. Exit Function
  294. End If
  295. Next
  296. End Function
  297. ' 初始化工具栏
  298. Sub InitToolBar()
  299. Dim aButton, n
  300. sSql = "select t_button from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
  301. oRs.Open sSql, oConn, 0, 1
  302. If Not oRs.Eof Then
  303. sToolBarNormal = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  304. sToolBarFullScreen = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  305. Do While Not oRs.Eof
  306. sToolBarNormal = sToolBarNormal & "<tr><td><div class=yToolbar>"
  307. sToolBarFullScreen = sToolBarFullScreen & "<tr><td><div class=yToolbar>"
  308. aButton = Split(oRs("T_Button"), "|")
  309. For n = 0 To UBound(aButton)
  310. sToolBarNormal = sToolBarNormal & Code2HTML(aButton(n))
  311. If UCase(aButton(n)) = "MAXIMIZE" Then
  312. aButton(n) = "Minimize"
  313. End If
  314. sToolBarFullScreen = sToolBarFullScreen & Code2HTML(aButton(n))
  315. Next
  316. sToolBarNormal = sToolBarNormal & "</div></td></tr>"
  317. sToolBarFullScreen = sToolBarFullScreen & "</div></td></tr>"
  318. oRs.MoveNext
  319. Loop
  320. sToolBarNormal = sToolBarNormal & "</table>"
  321. sToolBarFullScreen = sToolBarFullScreen & "</table>"
  322. Else
  323. ShowErr "对应样式没有设置工具栏!"
  324. End If
  325. oRs.Close
  326. End Sub
  327. %>