www.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
%>