BVB Source Codes

QQ number network source v1.0 Show eWebEditor.asp Source code

Return Download QQ number network source v1.0: download eWebEditor.asp Source code - Download QQ number network source v1.0 Source code - Type:.asp
  1. <!--#include file = "Include/Startup.asp"-->
  2. <%
  3.  
  4. %>
  5.  
  6. <%
  7. ' 初始输入参数
  8. Dim sContentID, sStyleID, sFullScreen
  9. Dim sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, nStateFlag, sDetectFromWord, sInitMode, sBaseUrl, sBaseHref, sAutoRemote, sShowBorder
  10. Dim sVersion, sReleaseDate, sLicense
  11.  
  12. Dim aButtonCode(), aButtonHTML()
  13. Dim sToolBar, sToolBarNormal, sToolBarFullScreen
  14.  
  15. ' 初始化
  16. Call Init()
  17.  
  18. %>
  19.  
  20.  
  21. <html>
  22. <head>
  23. <title>eWebEditor - eWebSoft在线编辑器</title>
  24. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  25. <link href="css/<%=sStyleCSS%>/Editor.css" type="text/css" rel="stylesheet">
  26.  
  27. <Script Language=Javascript>
  28. var sPath = document.location.pathname;
  29. sPath = sPath.substr(0, sPath.length-14);
  30.  
  31. var sLinkFieldName = "<%=sContentID%>" ;
  32. var sLinkOriginalFileName = "<%=Request.QueryString("originalfilename")%>" ;
  33. var sLinkSaveFileName = "<%=Request.QueryString("savefilename")%>" ;
  34. var sLinkSavePathFileName = "<%=Request.QueryString("savepathfilename")%>" ;
  35.  
  36. // 全局设置对象
  37. var config = new Object() ;
  38. config.Version = "<%=sVersion%>" ;
  39. config.ReleaseDate = "<%=sReleaseDate%>" ;
  40. config.License = "<%=sLicense%>" ;
  41. config.StyleName = "<%=sStyleName%>";
  42. config.StyleMenuHeader = "<head><link href=\""+sPath+"css/<%=sStyleCSS%>/MenuArea.css\" type=\"text/css\" rel=\"stylesheet\"></head><body scroll=\"no\" onConTextMenu=\"event.returnValue=false;\">";
  43. config.StyleDir = "<%=sStyleDir%>";
  44. config.StyleUploadDir = "<%=sStyleUploadDir%>";
  45. config.InitMode = "<%=sInitMode%>";
  46. config.AutoDetectPasteFromWord = <%=sDetectFromWord%>;
  47. config.BaseUrl = "<%=sBaseUrl%>";
  48. config.BaseHref = "<%=sBaseHref%>";
  49. config.AutoRemote = "<%=sAutoRemote%>";
  50. config.ShowBorder = "<%=sShowBorder%>";
  51.  
  52. var sBaseHref = "";
  53. if(config.BaseHref!=""){
  54.         sBaseHref = "<base href=\"" + document.location.protocol + "//" + document.location.host + config.BaseHref + "\">";
  55. }
  56. config.StyleEditorHeader = "<head><link href=\"" + sPath + "css/<%=sStyleCSS%>/EditorArea.css\" type=\"text/css\" rel=\"stylesheet\">" + sBaseHref + "</head><body MONOSPACE>" ;
  57. </Script>
  58. <Script Language=Javascript src="include/editor.js"></Script>
  59. <Script Language=Javascript src="include/table.js"></Script>
  60. <Script Language=Javascript src="include/menu.js"></Script>
  61.  
  62. <script language="javascript" event="onerror(msg, url, line)" for="window">
  63. return true ;    // 隐藏错误
  64. </script>
  65.  
  66. </head>
  67.  
  68. <body SCROLLING=no onConTextMenu="event.returnValue=false;">
  69.  
  70. <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
  71. <tr><td>
  72.  
  73.         <%=sToolBar%>
  74.  
  75. </td></tr>
  76. <tr><td height='100%'>
  77.  
  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.  
  89. </td></tr>
  90.  
  91. <% If nStateFlag = 1 Then %>
  92. <tr><td height=25>
  93.  
  94.         <TABLE border="0" cellPadding="0" cellSpacing="0" width="100%" class=StatusBar height=25>
  95.         <TR valign=middle>
  96.         <td>
  97.                 <table border=0 cellpadding=0 cellspacing=0 height=20>
  98.                 <tr>
  99.                 <td width=10></td>
  100.                 <td class=StatusBarBtnOff id=eWebEditor_CODE onClick="setMode('CODE')"><img border=0 src="buttonimage/<%=sStyleDir%>/modecode.gif" width=50 height=15 align=absmiddle></td>
  101.                 <td width=5></td>
  102.                 <td class=StatusBarBtnOff id=eWebEditor_EDIT onClick="setMode('EDIT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modeedit.gif" width=50 height=15 align=absmiddle></td>
  103.                 <td width=5></td>
  104.                 <td class=StatusBarBtnOff id=eWebEditor_TEXT onClick="setMode('TEXT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modetext.gif" width=50 height=15 align=absmiddle></td>
  105.                 <td width=5></td>
  106.                 <td class=StatusBarBtnOff id=eWebEditor_VIEW onClick="setMode('VIEW')"><img border=0 src="buttonimage/<%=sStyleDir%>/modepreview.gif" width=50 height=15 align=absmiddle></td>
  107.                 </tr>
  108.                 </table>
  109.         </td>
  110.         <td align=center id=eWebEditor_License style="font-size:9pt"></td>
  111.         <td align=right>
  112.                 <table border=0 cellpadding=0 cellspacing=0 height=20>
  113.                 <tr>
  114.                 <td style="cursor:pointer;" onClick="sizeChange(300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeplus.gif" width=20 height=20 alt="增高编辑区"></td>
  115.                 <td width=5></td>
  116.                 <td style="cursor:pointer;" onClick="sizeChange(-300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeminus.gif" width=20 height=20 alt="减小编辑区"></td>
  117.                 <td width=40></td>
  118.                 </tr>
  119.                 </table>
  120.         </td>
  121.         </TR>
  122.         </Table>
  123.  
  124. </td></tr>
  125. <% End If %>
  126.  
  127. </table>
  128.  
  129. <div id="eWebEditor_Temp_HTML" style="VISIBILITY: hidden; OVERFLOW: hidden; POSITION: absolute; WIDTH: 1px; HEIGHT: 1px"></div>
  130.  
  131. <form id="eWebEditor_UploadForm" action="upload.asp?action=remote&type=remote&style=<%=sStyleName%>" method="post" target="eWebEditor_UploadTarget">
  132. <input type="hidden" name="eWebEditor_UploadText">
  133. </form>
  134. <iframe name="eWebEditor_UploadTarget" width=500 height=500></iframe>
  135. <div id=divProcessing style="width:200px;height:30px;position:absolute;display:none">
  136. <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>
  137. </div>
  138.  
  139. </body>
  140. </html>
  141.  
  142.  
  143. <%
  144.  
  145.  
  146. ' 显示调用错误提示
  147. Sub ShowErr(str)
  148.         Call DBConnEnd()
  149.         Response.Write "调用错误:" & str
  150.         Response.End
  151. End Sub
  152.  
  153. ' 初始化
  154. Sub Init()
  155.         ' 取全屏标志
  156.         sFullScreen = Trim(Request.QueryString("fullscreen"))
  157.         ' 取对应的内容ID
  158.         sContentID = Trim(Request.QueryString("id"))
  159.         If sContentID = "" Then ShowErr "请传入调用参数ID,即隐藏的内容表单项ID!"
  160.  
  161.         ' 取样式初始值
  162.         sStyleName = Get_SafeStr(Trim(Request.QueryString("style")))
  163.         If sStyleName = "" Then sStyleName = "standard"
  164.  
  165.         Dim s_SelfUrl, s_ApplicationName, n_Application, i
  166.         s_SelfUrl = UCase(Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("SCRIPT_NAME") & "?style=" & sStyleName)
  167.         n_Application = 0
  168.  
  169.         Dim aApplicationName, aApplicationUrl, aApplicationValue
  170.         aApplicationName = Application("eWebEditor_ApplicationName")
  171.         aApplicationUrl = Application("eWebEditor_ApplicationUrl")
  172.  
  173.         If IsArray(aApplicationName) = True Then
  174.                 n_Application = UBound(aApplicationName)
  175.                
  176.                 ' 是否在内存中
  177.                 For i = 1 To n_Application
  178.                         If aApplicationUrl(i) = s_SelfUrl Then
  179.                                 s_ApplicationName = aApplicationName(i)
  180.                                 aApplicationValue = Application(s_ApplicationName)
  181.                                 sStyleID                         = aApplicationValue(0)
  182.                                 sStyleName                       = aApplicationValue(1)
  183.                                 sStyleDir                        = aApplicationValue(2)
  184.                                 sStyleCSS                        = aApplicationValue(3)
  185.                                 sStyleUploadDir          = aApplicationValue(4)
  186.                                 nStateFlag                       = aApplicationValue(5)
  187.                                 sDetectFromWord          = aApplicationValue(6)
  188.                                 sInitMode                        = aApplicationValue(7)
  189.                                 sBaseUrl                         = aApplicationValue(8)
  190.                                 sVersion                         = aApplicationValue(9)
  191.                                 sReleaseDate             = aApplicationValue(10)
  192.                                 sLicense                         = aApplicationValue(11)
  193.                                 sToolBarNormal           = aApplicationValue(12)
  194.                                 sToolBarFullScreen       = aApplicationValue(13)
  195.                                 sBaseHref                        = aApplicationValue(14)
  196.                                 sAutoRemote                      = aApplicationValue(15)
  197.                                 sShowBorder                      = aApplicationValue(16)
  198.                                 If sFullScreen = "1" Then
  199.                                         sToolBar = sToolBarFullScreen
  200.                                 Else
  201.                                         sToolBar = sToolBarNormal
  202.                                 End If
  203.                                 Exit Sub
  204.                         End If
  205.                 Next
  206.         End If
  207.  
  208.  
  209.         ' 初始化数据库连接
  210.         Call DBConnBegin()
  211.  
  212.         sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
  213.         oRs.Open sSql, oConn, 0, 1
  214.         If Not oRs.Eof Then
  215.                 sStyleID = oRs("S_ID")
  216.                 sStyleName = oRs("S_Name")
  217.                 sStyleDir = oRs("S_Dir")
  218.                 sStyleCSS = oRs("S_CSS")
  219.                 sStyleUploadDir = oRs("S_UploadDir")
  220.                 nStateFlag = oRs("S_StateFlag")
  221.                 sAutoRemote = CStr(oRs("S_AutoRemote"))
  222.                 sShowBorder = CStr(oRs("S_ShowBorder"))
  223.                 sDetectFromWord = oRs("S_DetectFromWord")
  224.                 sInitMode = oRs("S_InitMode")
  225.                 sBaseUrl = oRs("S_BaseUrl")
  226.                 sBaseHref = oRs("S_BaseHref")
  227.         Else
  228.                 ShowErr "无效的样式Style参数传入,如果要使用默认值,请留空!"
  229.         End If
  230.         oRs.Close
  231.  
  232.         ' 取版本号及发布日期
  233.         sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
  234.         oRs.Open sSql, oConn, 0, 1
  235.         sVersion = oRs(0)
  236.         sReleaseDate = oRs(1)
  237.         sLicense = oRs(2)
  238.         oRs.Close
  239.  
  240.         ' 取所有按钮
  241.         Call InitButtonArray()
  242.         ' 取样式下的工具栏及按钮
  243.         Call InitToolBar()
  244.         ' 断开数据库连接
  245.         Call DBConnEnd()
  246.  
  247.         If sFullScreen = "1" Then
  248.                 sToolBar = sToolBarFullScreen
  249.         Else
  250.                 sToolBar = sToolBarNormal
  251.         End If
  252.  
  253.         n_Application = n_Application + 1
  254.         If n_Application = 1 Then
  255.                 Redim aApplicationName(1)
  256.                 Redim aApplicationUrl(1)
  257.         Else
  258.                 Redim Preserve aApplicationName(n_Application)
  259.                 Redim Preserve aApplicationUrl(n_Application)
  260.         End If
  261.         Redim aApplicationValue(16)
  262.         s_ApplicationName = "eWebEditor" & n_Application
  263.         aApplicationName(n_Application) = s_ApplicationName
  264.         aApplicationUrl(n_Application) = s_SelfUrl
  265.         aApplicationValue(0)     = sStyleID
  266.         aApplicationValue(1)     = sStyleName
  267.         aApplicationValue(2)     = sStyleDir
  268.         aApplicationValue(3)     = sStyleCSS
  269.         aApplicationValue(4)     = sStyleUploadDir
  270.         aApplicationValue(5)     = nStateFlag
  271.         aApplicationValue(6)     = sDetectFromWord
  272.         aApplicationValue(7)     = sInitMode
  273.         aApplicationValue(8)     = sBaseUrl
  274.         aApplicationValue(9)     = sVersion
  275.         aApplicationValue(10)    = sReleaseDate
  276.         aApplicationValue(11)    = sLicense
  277.         aApplicationValue(12)    = sToolBarNormal
  278.         aApplicationValue(13)    = sToolBarFullScreen
  279.         aApplicationValue(14)    = sBaseHref
  280.         aApplicationValue(15)    = sAutoRemote
  281.         aApplicationValue(16)    = sShowBorder
  282.  
  283.         Application.Lock
  284.         Application("eWebEditor_ApplicationName") = aApplicationName
  285.         Application("eWebEditor_ApplicationUrl") = aApplicationUrl
  286.         Application(s_ApplicationName) = aApplicationValue
  287.         Application.Unlock
  288.  
  289. End Sub
  290.  
  291.  
  292. ' 初始化按钮数组
  293. Sub InitButtonArray()
  294.         Dim i
  295.         sSql = "select * from ewebeditor_button order by b_order asc"
  296.         oRs.Open sSql, oConn, 0, 1
  297.         i = 0
  298.         Do While Not oRs.Eof
  299.                 i = i + 1
  300.                 Redim Preserve aButtonCode(i)
  301.                 Redim Preserve aButtonHTML(i)
  302.                 aButtonCode(i) = oRs("B_Code")
  303.                 Select Case oRs("B_Type")
  304.                 Case 0
  305.                         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>"
  306.                 Case 1
  307.                         aButtonHTML(i) = "<SELECT CLASS=""" & oRs("B_Class") & """ onchange=""" & oRs("B_Event") & """>" & oRs("B_HTML") & "</SELECT>"
  308.                 Case 2
  309.                         aButtonHTML(i) = "<DIV CLASS=""" & oRs("B_Class") & """>" & oRs("B_HTML") & "</DIV>"
  310.                 End Select
  311.                 oRs.MoveNext
  312.         Loop
  313.         oRs.Close
  314. End Sub
  315.  
  316. ' 由按钮代码得到按钮的最终输出
  317. Function Code2HTML(s_Code)
  318.         Dim i
  319.         Code2HTML = ""
  320.         For i = 1 To UBound(aButtonCode)
  321.                 If UCase(aButtonCode(i)) = UCase(s_Code) Then
  322.                         Code2HTML = aButtonHTML(i)
  323.                         Exit Function
  324.                 End If
  325.         Next
  326. End Function
  327.  
  328. ' 初始化工具栏
  329. Sub InitToolBar()
  330.         Dim aButton, n
  331.         sSql = "select t_button from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
  332.         oRs.Open sSql, oConn, 0, 1
  333.         If Not oRs.Eof Then
  334.                 sToolBarNormal = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  335.                 sToolBarFullScreen = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='eWebEditor_Toolbar'>"
  336.                 Do While Not oRs.Eof
  337.                         sToolBarNormal = sToolBarNormal & "<tr><td><div class=yToolbar>"
  338.                         sToolBarFullScreen = sToolBarFullScreen & "<tr><td><div class=yToolbar>"
  339.                         aButton = Split(oRs("T_Button"), "|")
  340.                         For n = 0 To UBound(aButton)
  341.                                 sToolBarNormal = sToolBarNormal & Code2HTML(aButton(n))
  342.                                 If UCase(aButton(n)) = "MAXIMIZE" Then
  343.                                         aButton(n) = "Minimize"
  344.                                 End If
  345.                                 sToolBarFullScreen = sToolBarFullScreen & Code2HTML(aButton(n))
  346.                         Next
  347.                         sToolBarNormal = sToolBarNormal & "</div></td></tr>"
  348.                         sToolBarFullScreen = sToolBarFullScreen & "</div></td></tr>"
  349.                         oRs.MoveNext
  350.                 Loop
  351.                 sToolBarNormal = sToolBarNormal & "</table>"
  352.                 sToolBarFullScreen = sToolBarFullScreen & "</table>"
  353.         Else
  354.                 ShowErr "对应样式没有设置工具栏!"
  355.         End If
  356.         oRs.Close
  357. End Sub
  358. %>
downloadeWebEditor.asp Source code - Download QQ number network source v1.0 Source code
Related Source Codes/Software:
Fate. Mobile message this v1.1 - Fate. Wind chimes guestbook, which is used to coll... 2016-11-11
400 simple message this V1.0 - 400 simple message this V1.0 2016-11-11
ASP cache them v1.0 premium - Released a few days before the ASP application emb... 2016-11-11
Ding v2.0 auspicious multi-user online customer service system - Multi-user online customer service system is an en... 2016-11-11
Think of concise message this v1.1 - Wisdom of concise message this V1.1 main functions... 2016-11-11
A small BBS V1.0 - Update: added SQL injection prevention program, re... 2016-11-11
Love will find clothing site www.2145.cc (full version) - It's nice to see you again. 2016-11-11
Qi qi ebook thief (pseudo static + background) v1.0 - Pseudo static + background Qi Qi thief programs ... 2016-11-11
Tao, ASP Trojan scanner v1.1 - Can scan all the specified type on the server (asp... 2016-11-11
138 MC v1.0 music network program - Installation instructions: 2016-11-11
ng-bootstrap - Angular powered Bootstrap h... 2017-04-09
vscode-go - An extension for VS Code which provides support fo... 2017-04-09
electron-builder - A complete solution to package and build a ready f... 2017-04-09
husky - 2017-04-09
eslint-plugin-react - React specific linting rules for ESLint 2017-04-09
fuckitjs - The Original Javascript Error Steamroller 2017-04-09
DeDRM_tools - DeDRM tools for ebook 2017-04-08
kcp - KCP - A Fast and Reliable ARQ Protocol 2017-04-08
cloc - cloc counts blank lines, comment lines, and physic... 2017-04-08

 Back to top