BVB Source Codes

Jie Yang v0.6.3 article system Show ewebeditor.asp Source code

Return Download Jie Yang v0.6.3 article system: download ewebeditor.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <!--#include file = "Include/Startup.asp"-->
  2. <%
  3. If Not IsSelfRefer Then Response.Write "Include Error":Response.End
  4.  
  5. ' 初始输入参数
  6. Dim sContentID, sStyleID, sFullScreen
  7. Dim sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, nStateFlag, sDetectFromWord, sInitMode, sBaseUrl, sBaseHref, sAutoRemote, sShowBorder
  8. Dim sVersion, sReleaseDate, sLicense
  9.  
  10. Dim aButtonCode(), aButtonHTML()
  11. Dim sToolBar, sToolBarNormal, sToolBarFullScreen
  12. ' 初始化
  13. Call Init()
  14.  
  15. %>
  16.  
  17.  
  18. <html>
  19. <head>
  20. <title>在线编辑器</title>
  21. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  22. <link href="css/<%=sStyleCSS%>/Editor.css" type="text/css" rel="stylesheet">
  23.  
  24. <Script Language=Javascript>
  25. var sPath = document.location.pathname;
  26. sPath = sPath.substr(0, sPath.length-14);
  27.  
  28. var sLinkFieldName = "<%=sContentID%>" ;
  29. var sLinkOriginalFileName = "<%=Request.QueryString("originalfilename")%>" ;
  30. var sLinkSaveFileName = "<%=Request.QueryString("savefilename")%>" ;
  31. var sLinkSavePathFileName = "<%=Request.QueryString("savepathfilename")%>" ;
  32.  
  33. // 全局设置对象
  34. var config = new Object() ;
  35. config.Version = "<%=sVersion%>" ;
  36. config.ReleaseDate = "<%=sReleaseDate%>" ;
  37. config.License = "<%=sLicense%>" ;
  38. config.StyleName = "<%=sStyleName%>";
  39. config.StyleMenuHeader = "<head><link href=\""+sPath+"css/<%=sStyleCSS%>/MenuArea.css\" type=\"text/css\" rel=\"stylesheet\"></head><body scroll=\"no\" onConTextMenu=\"event.returnValue=false;\">";
  40. config.StyleDir = "<%=sStyleDir%>";
  41. config.StyleUploadDir = "<%=sStyleUploadDir%>";
  42. config.InitMode = "<%=sInitMode%>";
  43. config.AutoDetectPasteFromWord = <%=sDetectFromWord%>;
  44. config.BaseUrl = "<%=sBaseUrl%>";
  45. config.BaseHref = "<%=sBaseHref%>";
  46. config.AutoRemote = "<%=sAutoRemote%>";
  47. config.ShowBorder = "<%=sShowBorder%>";
  48.  
  49. var sBaseHref = "";
  50. if(config.BaseHref!=""){
  51.         sBaseHref = "<base href=\"" + document.location.protocol + "//" + document.location.host + config.BaseHref + "\">";
  52. }
  53. config.StyleEditorHeader = "<head><link href=\"" + sPath + "css/<%=sStyleCSS%>/EditorArea.css\" type=\"text/css\" rel=\"stylesheet\">" + sBaseHref + "</head><body MONOSPACE>" ;
  54. </script><Script Language=Javascript src="include/editor.js"></script><Script Language=Javascript src="include/table.js"></script><Script Language=Javascript src="include/menu.js"></script><script language="javascript" event="onerror(msg, url, line)" for="window">
  55. return true ;    // 隐藏错误
  56. </script></head>
  57. <body SCROLLING=no onConTextMenu="event.returnValue=false;">
  58. <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
  59. <tr><td>
  60.  
  61. <%=sToolBar%>
  62.  
  63. </td></tr>
  64. <tr><td height='100%'>
  65.  
  66.         <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
  67.         <tr><td height='100%'>
  68.         <input type="hidden" ID="ContentEdit" value="">
  69.         <input type="hidden" ID="ModeEdit" value="">
  70.         <input type="hidden" ID="ContentLoad" value="">
  71.         <input type="hidden" ID="ContentFlag" value="0">
  72.         <iframe class="Composition" ID="eWebEditor" MARGINHEIGHT="1" MARGINWIDTH="1" width="100%" height="100%" scrolling="yes">
  73.         </iframe>
  74.         </td></tr>
  75.         </table>
  76.  
  77. </td></tr>
  78.  
  79. <% If nStateFlag = 1 Then %>
  80. <tr><td height=25>
  81.  
  82.         <TABLE border="0" cellPadding="0" cellSpacing="0" width="100%" class=StatusBar height=25>
  83.         <TR valign=middle>
  84.         <td>
  85.                 <table border=0 cellpadding=0 cellspacing=0 height=20>
  86.                 <tr>
  87.                 <td class=StatusBarBtnOff id=eWebEditor_CODE onClick="setMode('CODE')"><img border=0 src="buttonimage/<%=sStyleDir%>/html.gif" width=59 height=20 align=absmiddle></td>
  88.                 <td width=5></td>
  89.                 <td class=StatusBarBtnOff id=eWebEditor_EDIT onClick="setMode('EDIT')"><img border=0 src="buttonimage/<%=sStyleDir%>/Editor.gif" width=59 height=20 align=absmiddle></td>
  90.                 <td width=5></td>
  91.                 <td class=StatusBarBtnOff id=eWebEditor_TEXT onClick="setMode('TEXT')"><img border=0 src="buttonimage/<%=sStyleDir%>/Text.gif" width=59 height=20 align=absmiddle></td>
  92.                 <td width=5></td>
  93.                 <td class=StatusBarBtnOff id=eWebEditor_VIEW onClick="setMode('VIEW')"><img border=0 src="buttonimage/<%=sStyleDir%>/browse.gif" width=59 height=20 align=absmiddle></td>
  94.                 </tr>
  95.                 </table>
  96.         </td>
  97.         <td align=center style="font-size:9pt"></td>
  98.         <td align=right>
  99.                 <table border=0 cellpadding=0 cellspacing=0 height=20>
  100.                 <tr>
  101.                 <td width="34" style="cursor:pointer;" onClick="sizeChange(300)"><div align="right"><img border=0 SRC="ButtonImage/plus.gif" width=20 height=20 alt="增高编辑区"></div></td>
  102.                 <td width=19></td>
  103.                 <td width="27" style="cursor:pointer;" onClick="sizeChange(-300)"><img border=0 SRC="ButtonImage/minus.gif" width=20 height=20 alt="减小编辑区"></td>
  104.                 <td width=10></td>
  105.                 </tr>
  106.                 </table>
  107.         </td>
  108.         </TR>
  109.         </Table>
  110.  
  111. </td></tr>
  112. <% End If %>
  113.  
  114. </table>
  115.  
  116. <div id="eWebEditor_Temp_HTML" style="VISIBILITY: hidden; OVERFLOW: hidden; POSITION: absolute; WIDTH: 1px; HEIGHT: 1px"></div>
  117. <form id="eWebEditor_UploadForm" action="upload.asp?action=remote&type=remote&style=<%=sStyleName%>" method="post" target="eWebEditor_UploadTarget">
  118. <input type="hidden" name="eWebEditor_UploadText">
  119. </form>
  120. <iframe name="eWebEditor_UploadTarget" width=0 height=0></iframe>
  121. <div id=divProcessing style="width:200px;height:30px;position:absolute;display:none">
  122. <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>
  123. </div>
  124.  
  125. </body>
  126. </html>
  127. <%
  128. ' 显示调用错误提示
  129. Sub ShowErr(str)
  130.         Call DBConnEnd()
  131.         Response.Write "调用错误:" & str
  132.         Response.End
  133. End Sub
  134.  
  135. ' 初始化
  136. Sub Init()
  137.         ' 取全屏标志
  138.         sFullScreen = Trim(Request.QueryString("fullscreen"))
  139.         ' 取对应的内容ID
  140.         sContentID = Trim(Request.QueryString("id"))
  141.         If sContentID = "" Then ShowErr "请传入调用参数ID,即隐藏的内容表单项ID!"
  142.  
  143.         ' 取样式初始值
  144.         sStyleName = Get_SafeStr(Trim(Request.QueryString("style")))
  145.         If sStyleName = "" Then sStyleName = "standard"
  146.  
  147.         Dim s_SelfUrl, s_ApplicationName, n_Application, i
  148.         s_SelfUrl = UCase(Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("SCRIPT_NAME") & "?style=" & sStyleName)
  149.         n_Application = 0
  150.  
  151.         Dim aApplicationName, aApplicationUrl, aApplicationValue
  152.         aApplicationName = Application("eWebEditor_ApplicationName")
  153.         aApplicationUrl = Application("eWebEditor_ApplicationUrl")
  154.  
  155.         If IsArray(aApplicationName) = True Then
  156.                 n_Application = UBound(aApplicationName)
  157.                
  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.  
  191.         ' 初始化数据库连接
  192.         Call DBConnBegin()
  193.  
  194.         sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
  195.         oRs.Open sSql, oConn, 0, 1
  196.         If Not oRs.Eof Then
  197.                 sStyleID = oRs("S_ID")
  198.                 sStyleName = oRs("S_Name")
  199.                 sStyleDir = oRs("S_Dir")
  200.                 sStyleCSS = oRs("S_CSS")
  201.                 sStyleUploadDir = oRs("S_UploadDir")
  202.                 'sStyleUploadDir=request.QueryString("uploaddir")
  203.                 nStateFlag = oRs("S_StateFlag")
  204.                 sAutoRemote = CStr(oRs("S_AutoRemote"))
  205.                 sShowBorder = CStr(oRs("S_ShowBorder"))
  206.                 sDetectFromWord = oRs("S_DetectFromWord")
  207.                 sInitMode = oRs("S_InitMode")
  208.                 sBaseUrl = oRs("S_BaseUrl")
  209.                 sBaseHref = oRs("S_BaseHref")
  210.         Else
  211.                 ShowErr "无效的样式Style参数传入,如果要使用默认值,请留空!"
  212.         End If
  213.  
  214.         oRs.Close
  215.  
  216.         ' 取版本号及发布日期
  217.         sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
  218.         oRs.Open sSql, oConn, 0, 1
  219.         sVersion = oRs(0)
  220.         sReleaseDate = oRs(1)
  221.         sLicense = oRs(2)
  222.         oRs.Close
  223.  
  224.         ' 取所有按钮
  225.         Call InitButtonArray()
  226.         ' 取样式下的工具栏及按钮
  227.         Call InitToolBar()
  228.         ' 断开数据库连接
  229.         Call DBConnEnd()
  230.  
  231.         If sFullScreen = "1" Then
  232.                 sToolBar = sToolBarFullScreen
  233.         Else
  234.                 sToolBar = sToolBarNormal
  235.         End If
  236.  
  237.         n_Application = n_Application + 1
  238.         If n_Application = 1 Then
  239.                 Redim aApplicationName(1)
  240.                 Redim aApplicationUrl(1)
  241.         Else
  242.                 Redim Preserve aApplicationName(n_Application)
  243.                 Redim Preserve aApplicationUrl(n_Application)
  244.         End If
  245.         Redim aApplicationValue(16)
  246.         s_ApplicationName = "eWebEditor" & n_Application
  247.         aApplicationName(n_Application) = s_ApplicationName
  248.         aApplicationUrl(n_Application) = s_SelfUrl
  249.         aApplicationValue(0)     = sStyleID
  250.         aApplicationValue(1)     = sStyleName
  251.         aApplicationValue(2)     = sStyleDir
  252.         aApplicationValue(3)     = sStyleCSS
  253.         aApplicationValue(4)     = sStyleUploadDir
  254.         aApplicationValue(5)     = nStateFlag
  255.         aApplicationValue(6)     = sDetectFromWord
  256.         aApplicationValue(7)     = sInitMode
  257.         aApplicationValue(8)     = sBaseUrl
  258.         aApplicationValue(9)     = sVersion
  259.         aApplicationValue(10)    = sReleaseDate
  260.         aApplicationValue(11)    = sLicense
  261.         aApplicationValue(12)    = sToolBarNormal
  262.         aApplicationValue(13)    = sToolBarFullScreen
  263.         aApplicationValue(14)    = sBaseHref
  264.         aApplicationValue(15)    = sAutoRemote
  265.         aApplicationValue(16)    = sShowBorder
  266.  
  267.         Application.Lock
  268.         Application("eWebEditor_ApplicationName") = aApplicationName
  269.         Application("eWebEditor_ApplicationUrl") = aApplicationUrl
  270.         Application(s_ApplicationName) = aApplicationValue
  271.         Application.Unlock
  272.  
  273. End Sub
  274.  
  275.  
  276. ' 初始化按钮数组
  277. Sub InitButtonArray()
  278.         Dim i
  279.         sSql = "select * from ewebeditor_button order by b_order asc"
  280.         oRs.Open sSql, oConn, 0, 1
  281.         i = 0
  282.         Do While Not oRs.Eof
  283.                 i = i + 1
  284.                 Redim Preserve aButtonCode(i)
  285.                 Redim Preserve aButtonHTML(i)
  286.                 aButtonCode(i) = oRs("B_Code")
  287.                 Select Case oRs("B_Type")
  288.                 Case 0
  289.                         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>"
  290.                 Case 1
  291.                         aButtonHTML(i) = "<SELECT CLASS=""" & oRs("B_Class") & """ onchange=""" & oRs("B_Event") & """>" & oRs("B_HTML") & "</SELECT>"
  292.                 Case 2
  293.                         aButtonHTML(i) = "<DIV CLASS=""" & oRs("B_Class") & """>" & oRs("B_HTML") & "</DIV>"
  294.                 End Select
  295.                 oRs.MoveNext
  296.         Loop
  297.         oRs.Close
  298. End Sub
  299.  
  300. ' 由按钮代码得到按钮的最终输出
  301. Function Code2HTML(s_Code)
  302.         Dim i
  303.         Code2HTML = ""
  304.         For i = 1 To UBound(aButtonCode)
  305.                 If UCase(aButtonCode(i)) = UCase(s_Code) Then
  306.                         Code2HTML = aButtonHTML(i)
  307.                         Exit Function
  308.                 End If
  309.         Next
  310. End Function
  311.  
  312. ' 初始化工具栏
  313. Sub InitToolBar()
  314.         Dim aButton, n
  315.         sSql = "select t_button from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
  316.         oRs.Open sSql, oConn, 0, 1
  317.         If Not oRs.Eof Then
  318.                 sToolBarNormal = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  319.                 sToolBarFullScreen = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  320.                 Do While Not oRs.Eof
  321.                         sToolBarNormal = sToolBarNormal & "<tr><td><div class=yToolbar>"
  322.                         sToolBarFullScreen = sToolBarFullScreen & "<tr><td><div class=yToolbar>"
  323.                         aButton = Split(oRs("T_Button"), "|")
  324.                         For n = 0 To UBound(aButton)
  325.                                 sToolBarNormal = sToolBarNormal & Code2HTML(aButton(n))
  326.                                 If UCase(aButton(n)) = "MAXIMIZE" Then
  327.                                         aButton(n) = "Minimize"
  328.                                 End If
  329.                                 sToolBarFullScreen = sToolBarFullScreen & Code2HTML(aButton(n))
  330.                         Next
  331.                         sToolBarNormal = sToolBarNormal & "</div></td></tr>"
  332.                         sToolBarFullScreen = sToolBarFullScreen & "</div></td></tr>"
  333.                         oRs.MoveNext
  334.                 Loop
  335.                 sToolBarNormal = sToolBarNormal & "</table>"
  336.                 sToolBarFullScreen = sToolBarFullScreen & "</table>"
  337.         Else
  338.                 ShowErr "对应样式没有设置工具栏!"
  339.         End If
  340.         oRs.Close
  341. End Sub
  342. %>
  343.  
  344.  
  345.  
  346.  
downloadewebeditor.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top