eWebEditor.asp
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:12k
源码类别:

IP电话/视频会议

开发平台:

ASP/ASPX

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