gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\WebEdit\eWebEditor.asp
<!--#include file = "Include/Startup.asp"--> <% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在线文本编辑器 ☆ '★ ★ '☆ 版权所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb开发团队 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持论坛]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主页地址: http://www.eWebSoft.com/ eWebSoft团队及产品 ★ '☆ http://www.webasp.net/ WEB技术及应用资源网站 ☆ '★ http://bbs.webasp.net/ WEB技术交流论坛 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% ' 初始输入参数 Dim sContentID, sStyleID, sFullScreen Dim sStyleName, sStyleDir, sStyleEditorHeader, sStyleBody, nStateFlag, sDetectFromWord Dim sVersion, sReleaseDate Call InitPara() ' 取所有按钮 Dim aButtonCode(), aButtonHTML() Call InitButtonArray() ' 取样式下的工具栏及按钮 Dim sToolBar Call InitToolBar() ' 断开数据库连接 Call DBConnEnd() %> <html> <head> <title>eWebEditor - eWebSoft在线文本编辑器</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> <%=sStyleBody%> </style> <Script Language=Javascript src="include/editor.js"></Script> <Script Language=Javascript> var bEditMode=true; var sCurrMode = "EDIT"; var bodyTag = "<%=sStyleEditorHeader%>" ; var sContentName = "<%=sContentID%>" ; var objContent = parent.document.getElementsByName(sContentName)[0]; // 全局设置对象 var config = new Object() ; config.Version = "<%=sVersion%>" ; config.ReleaseDate = "<%=sReleaseDate%>" ; config.StyleName = "<%=sStyleName%>"; config.AutoDetectPasteFromWord = <%=sDetectFromWord%>; </Script> <script language="javascript" event="onerror(msg, url, line)" for="window"> return true ; // 隐藏错误 </script> </head> <body SCROLLING=no onConTextMenu="event.returnValue=false;" onfocus="VerifyFocus()"> <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'> <tr><td id="eWebEditor_Tool"> <%=sToolBar%> </td></tr> <tr><td height='100%'> <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'> <tr><td height='100%'> <input type="hidden" ID="ContentEdit" value=""> <input type="hidden" ID="ContentLoad" value=""> <input type="hidden" ID="ContentFlag" value="0"> <iframe class="Composition" ID="eWebEditor" MARGINHEIGHT="1" MARGINWIDTH="1" width="100%" height="100%" scrolling="yes"> </iframe> </td></tr> </table> </td></tr> <% If nStateFlag = 1 Then %> <tr><td height=20 valign=top> <TABLE border="0" cellPadding="0" cellSpacing="0" width="100%"> <TR> <td align="left" valign="top" id='eWebEditor_CODE' style="display:none"> <map name='eWebEditor_Map1'> <area shape="polygon" coords="50, 1, 46, 7, 50, 14, 90, 14, 95, 2" alt="编辑状态" onclick="setMode('EDIT')"> <area shape="polygon" coords="128, 13, 134, 0, 96, 0, 93, 10, 96, 14" alt="预览状态" onclick="setMode('VIEW')"> </map> <img SRC="ButtonImage/<%=sStyleDir%>/modecode.gif" style="cursor:hand" height="15" width="135" usemap='#eWebEditor_Map1' border="0"></td> <td align="left" valign="top" id='eWebEditor_EDIT'> <map name='eWebEditor_Map2'> <area shape="polygon" coords="5, 3, 12, 14, 43, 14, 49, 6, 43, 0" alt="代码状态" onclick="setMode('CODE')"> <area shape="polygon" coords="97, 0, 94, 7, 98, 14, 127, 14, 134, 0" alt="预览状态" onclick="setMode('VIEW')"> </map> <img SRC="ButtonImage/<%=sStyleDir%>/modeedit.gif" style="cursor:hand" height="15" width="135" usemap='#eWebEditor_Map2' border="0"></td> <td align="left" valign="top" id='eWebEditor_VIEW' style="display:none"><map name='eWebEditor_Map3'> <area shape="polygon" coords="3, 2, 10, 14, 41, 14, 50, 0" alt="代码状态" onclick="setMode('CODE')"> <area shape="polygon" coords="87, 14, 91, 5, 87, 0, 50, 0, 46, 9, 49, 14" alt="编辑状态" onclick="setMode('EDIT')"> </map> <img SRC="ButtonImage/<%=sStyleDir%>/modepreview.gif" style="cursor:hand" height="15" width="135" usemap='#eWebEditor_Map3' border="0"></td> </TR> </Table> </td></tr> <% End If %> </table> <div id="divTemp" style="VISIBILITY: hidden; OVERFLOW: hidden; POSITION: absolute; WIDTH: 1px; HEIGHT: 1px"></div> </body> </html> <% ' 显示调用错误提示 Sub ShowErr(str) Call DBConnEnd() Response.Write "调用错误:" & str Response.End End Sub ' 初始化输入参数 Sub InitPara() ' 取全屏标志 sFullScreen = Trim(Request.QueryString("fullscreen")) ' 取对应的内容ID sContentID = Trim(Request.QueryString("id")) If sContentID = "" Then ShowErr "请传入调用参数ID,即隐藏的内容表单项ID!" ' 取样式初始值 sStyleName = Trim(Request.QueryString("style")) If sStyleName = "" Then sStyleName = "standard" sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'" oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then sStyleID = oRs("S_ID") sStyleName = oRs("S_Name") sStyleDir = oRs("S_Dir") sStyleEditorHeader = oRs("S_EditorHeader") sStyleBody = oRs("S_Body") nStateFlag = oRs("S_StateFlag") sDetectFromWord = oRs("S_DetectFromWord") Else ShowErr "无效的样式Style参数传入,如果要使用默认值,请留空!" End If oRs.Close ' 取版本号及发布日期 sSql = "select sys_version,sys_releasedate from ewebeditor_system" oRs.Open sSql, oConn, 0, 1 sVersion = oRs(0) sReleaseDate = oRs(1) oRs.Close End Sub ' 初始化按钮数组 Sub InitButtonArray() Dim i sSql = "select * from ewebeditor_button order by b_order asc" oRs.Open sSql, oConn, 0, 1 i = 0 Do While Not oRs.Eof i = i + 1 Redim Preserve aButtonCode(i) Redim Preserve aButtonHTML(i) aButtonCode(i) = oRs("B_Code") Select Case oRs("B_Type") Case 0 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>" Case 1 aButtonHTML(i) = "<SELECT CLASS=""" & oRs("B_Class") & """ onchange=""" & oRs("B_Event") & """>" & oRs("B_HTML") & "</SELECT>" Case 2 aButtonHTML(i) = "<DIV CLASS=""" & oRs("B_Class") & """>" & oRs("B_HTML") & "</DIV>" End Select oRs.MoveNext Loop oRs.Close End Sub ' 由按钮代码得到按钮的最终输出 Function Code2HTML(s_Code) Dim i Code2HTML = "" For i = 1 To UBound(aButtonCode) If UCase(aButtonCode(i)) = UCase(s_Code) Then Code2HTML = aButtonHTML(i) Exit Function End If Next End Function ' 初始化工具栏 Sub InitToolBar() Dim aButton, n sSql = "select t_button from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc" oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then sToolBar = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar'>" Do While Not oRs.Eof sToolBar = sToolBar & "<tr><td><div class=yToolbar>" aButton = Split(oRs("T_Button"), "|") For n = 0 To UBound(aButton) If sFullScreen = "1" And UCase(aButton(n)) = "MAXIMIZE" Then aButton(n) = "Minimize" End If sToolBar = sToolBar & Code2HTML(aButton(n)) Next sToolBar = sToolBar & "</div></td></tr>" oRs.MoveNext Loop sToolBar = sToolBar & "</table>" Else ShowErr "对应样式没有设置工具栏!" End If oRs.Close End Sub %>