急：请高手赐教ewebeditor编辑器在修改文章时为什么在编辑器中不显示内容呢？
ewebeditor编辑器在用修改功能时为什么在编辑器中不显示内容呢？但在 <textarea rows="1" name="Content" cols="20" style="display:none"><%=rs("Content")%></textarea>里面显示，
运行时出现一个错误，在页面的左下角
行:72
字符：3
错误："olinkfiled.value"不是对象
代码：0
url:引用的那一段代码
代码如下：edit.asp
<!--#include file="articleconn.asp"-->
<script language = "JavaScript">
function CheckForm()
{
if (eWebEditor1.ModeEdit.checked==true)
document.myform.Content.value=eWebEditor1.eWebEditor.document.body.innerText;
else
document.myform.Content.value=eWebEditor1.eWebEditor.document.body.innerHTML;
if (document.myform.txttitle.value=="")
{
alert("文章标题不能为空！");
document.myform.txttitle.focus();
return false;
}
if (document.myform.Content.value=="")
{
alert("文章内容不能为空！");
eWebEditor1.eWebEditor.focus();
return false;
}
return true;
}
function loadForm()
{
eWebEditor1.eWebEditor.setMode('CODE');
eWebEditor1.eWebEditor.document.body.innerHTML=document.myform.Content.value;
return true
}
</script>
<%
IF Session("KEY")<>"super"THEN
response.redirect "mymanage.asp"
response.end
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="style.css">
<title>淄博市质量技术监督局——修改文章</title>
</head>
<body onLoad="javascipt:setTimeout('loadForm()',1000);>
<form method="POST" name="myform" onSubmit="return CheckForm();" action="saveedit.asp?id=<%=request("id")%>">
<div align="center"><center>
<table border="0" cellspacing="1" width="80%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000066" height="20">
<div align="center"><center>
<p><b><font color="#FFFFFF">修 改 文 章</font></b>
</center></div></td>
</tr>
<tr align="center">
<td width="100%" height="316">
<table border="0" cellspacing="0" width="100%" bgcolor="#000000" cellpadding="0" background="images/greystrip.gif">
<%
dim sql
dim rs
sql="select * from article where newsid="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<tr bgcolor="#FFFFFF" background="images/greystrip.gif">
<td width="18%" align="center" height="30">文章标题：</td>
<td width="82%" height="30"> <input type="text" name="txttitle" size="70"
class="smallinput" maxlength="100" value="<%=rs("title")%>"> </td>
</tr>
<tr>
<td align="center">文章模板： </td>
<td><input type="text" name="Example" class="smallinput" value="<%=rs("mb")%>"></input>
</td>
</tr>
<tr bgcolor="#FFFFFF" background="images/greystrip.gif" >
<td width="18%" height="197" align="center" valign="top">文章内容：</td>
<td width="82%">
<textarea rows="1" name="Content" cols="20" style="display:none"><%=rs("Content")%></textarea>
<IFRAME ID="eWebEditor1" SRC="ewebeditor.asp?id=37&style=standard_light1" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
</td>
</tr>
<tr bgcolor="#FFFFFF" background="images/greystrip.gif">
<td width="18%" align="right" valign="bottom" height="20">文章来源：</td>
<td width="82%"><select name="nfrom">
<%
sqlbumen = "select * from bumen order by id"
set rsbumen = conn.execute(sqlbumen)
do while not rsbumen.eof
%>
<option value=<%=rsbumen("bumen_name")%> <%
if rsbumen("bumen_name")=rs("nfrom") then
response.Write(" selected")
end if
%>><%=rsbumen("bumen_name")%></option>
<%
rsbumen.movenext
loop
rsbumen.close
set rsbumen = nothing
%>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF" background="images/greystrip.gif">
<td align="right" valign="bottom" height="20">文章作者：</td>
<td><input name="zznews" type="text" value=<%=rs("zznews")%>></td>
</tr>
<tr bgcolor="#FFFFFF" background="images/greystrip.gif">
<td align="right" valign="bottom" height="20">文章所属栏目：</td>
<td>
<select name="typename">
<%
sqltype = "select * from type order by typeid"
set rstype = conn.execute(sqltype)
do while not rstype.eof
%>
<option value="<%=rstype("typename")%>" <%
if rstype("type") = rs("typename") then
response.Write(" selected")
end if
%> ><%=rstype("type")%></option>
<%
rstype.movenext
loop
%>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value=" 修 改 "
name="cmdok" class="buttonface"> <input type="reset" value=" 复 原 "
name="cmdcancel" class="buttonface"></p>
</center></div>
</form>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
问题点数：0、回复次数：16Top
1 楼ryuginka（一米八五的猪）回复于 2005-04-03 20:45:16 得分 0
upTop
2 楼mayi545（）回复于 2005-04-03 21:34:51 得分 0
没用过Top
3 楼bzscs（沙虫 我爱小美）回复于 2005-04-04 08:18:37 得分 0
您的浏览器是IE5？换ie6试试Top
4 楼madpolice（午夜狂龙）回复于 2005-04-04 08:51:50 得分 0
去厂商主页问作者Top
5 楼TSD（智之选,商欲达--智商购物系统zhishop.com）回复于 2005-04-04 09:07:43 得分 0
数据库的值是放在：<textarea rows="1" name="Content" cols="20" style="display:none"><%=rs("Content")%></textarea>
qTop
6 楼TSD（智之选,商欲达--智商购物系统zhishop.com）回复于 2005-04-04 09:12:11 得分 0
再通过JS代码将其放在线编辑器中,实现代码（跟据不同情况需要做适当修改）如下：
function adcont(){
frames.myedit.document.body.innerHTML=document.myform.Content.value;}
<body onload="adcont">
Top
7 楼zwrtv（蝙蝠）回复于 2005-04-04 09:36:58 得分 0
<textarea name="d_content" style="display:none"><%=Server.HtmlEncode(sContent)%></textarea>
<iframe ID="eWebEditor1" src="../eWebEditor/ewebeditor.asp?id=d_content&style=standard&originalfilename=d_originalfilename&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>Top
8 楼yuwenwu_xhs（主席夸我帅）回复于 2005-04-04 09:46:12 得分 0
睡有 ewebeditor 3.0 啊？？？Top
9 楼misters（小鱼）回复于 2005-04-04 10:25:16 得分 0
我用的是6.0浏览器Top
10 楼misters（小鱼）回复于 2005-04-04 10:31:19 得分 0
function loadForm()
{
eWebEditor1.eWebEditor.document.body.innerHTML=document.myform.Content.value;
return true
}
<body onLoad="loadForm">
<textarea rows="1" name="Content" cols="20"><%=rs("Content")%></textarea>
<IFRAME ID="eWebEditor1" SRC="ewebeditor.asp?id=37&style=standard_light1" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
就是这样写的
上面的代码里面也用
也还是有那个错误
但单击一下页面上的“设计”、或是“代码”键
切换一下界面，上面的错误就没有了
但在函数中加下列语句也不管用啊
function loadForm()
{
eWebEditor1.eWebEditor.setMode('CODE'); '代码界面
eWebEditor1.eWebEditor.document.body.innerHTML=document.myform.Content.value;
eWebEditor1.eWebEditor.setMode('EDIT'); '设计界面
return true
}
不好用啊。
Top
11 楼misters（小鱼）回复于 2005-04-05 08:32:39 得分 0
up
自己顶顶Top
12 楼leinchu（忙啊，终于升级了）回复于 2005-04-05 08:40:58 得分 0
假设webedit的浮动框架名字叫做ae，你的文本内容是记录集rs("content")
<body onload="ae.setHTML('<%=rs("content")%>')">Top
13 楼chi0591（游游淡淡）回复于 2005-04-05 09:34:04 得分 0
<IFRAME ID="eWebEditor1" SRC="ewebeditor.asp?id=Content&style=standard_light1" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
id改一下就行了Top
14 楼misters（小鱼）回复于 2005-04-05 09:59:14 得分 0
leinchu(想吃日本肉鸡)
你的办法不行，出错Top
15 楼misters（小鱼）回复于 2005-04-05 10:02:44 得分 0
我知道是怎么回事了
是在修改的时候
调用ewebeditor.asp时，它里面还有个editor.js的文件
贴出来，大家看一下
因为我还是不会改
Top
16 楼misters（小鱼）回复于 2005-04-05 10:04:45 得分 0
ewebeditor.asp文件
<!--#include file = "Include/Startup.asp"-->
<%
' 初始输入参数
Dim sContentID, sStyleID, sFullScreen
Dim sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, nStateFlag, sDetectFromWord, sInitMode, sBaseUrl
Dim sVersion, sReleaseDate, sLicense
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">
<link href="css/<%=sStyleCSS%>/Editor.css" type="text/css" rel="stylesheet">
<Script Language=Javascript>
var sPath = document.location.pathname;
sPath = sPath.substr(0, sPath.length-14);
var sLinkFieldName = "<%=sContentID%>" ;
var sLinkSourceFileName = "<%=Request.QueryString("sourcefilename")%>" ;
var sLinkSaveFileName = "<%=Request.QueryString("savefilename")%>" ;
// 全局设置对象
var config = new Object() ;
config.Version = "<%=sVersion%>" ;
config.ReleaseDate = "<%=sReleaseDate%>" ;
config.License = "<%=sLicense%>" ;
config.StyleName = "<%=sStyleName%>";
config.StyleEditorHeader = "<head><link href=\""+sPath+"css/<%=sStyleCSS%>/EditorArea.css\" type=\"text/css\" rel=\"stylesheet\"></head><body MONOSPACE>" ;
config.StyleMenuHeader = "<head><link href=\""+sPath+"css/<%=sStyleCSS%>/MenuArea.css\" type=\"text/css\" rel=\"stylesheet\"></head><body scroll=\"no\" onConTextMenu=\"event.returnValue=false;\">";
config.StyleDir = "<%=sStyleDir%>";
config.StyleUploadDir = "<%=sStyleUploadDir%>";
config.InitMode = "<%=sInitMode%>";
config.AutoDetectPasteFromWord = <%=sDetectFromWord%>;
config.BaseUrl = <%=sBaseUrl%>;
</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">
//return true ; // 隐藏错误
</script>
</head>
<body SCROLLING=no onConTextMenu="event.returnValue=false;">
<table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
<tr><td>
<%=sToolBar%>
</td></tr>
<tr><td height='100%'>
<table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>
<tr><td height='100%'>
<input ID="ContentEdit" value="">
<input ID="ModeEdit" value="">
<input ID="ContentLoad" value="">
<input 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=25>
<TABLE border="0" cellPadding="0" cellSpacing="0" width="100%" class=StatusBar height=25>
<TR valign=middle>
<td>
<table border=0 cellpadding=0 cellspacing=0 height=20>
<tr>
<td width=10></td>
<td class=StatusBarBtnOff id=eWebEditor_CODE onclick="setMode('CODE')"><img border=0 src="buttonimage/<%=sStyleDir%>/modecode.gif" width=50 height=15 align=absmiddle></td>
<td width=5></td>
<td class=StatusBarBtnOff id=eWebEditor_EDIT onclick="setMode('EDIT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modeedit.gif" width=50 height=15 align=absmiddle></td>
<td width=5></td>
<td class=StatusBarBtnOff id=eWebEditor_TEXT onclick="setMode('TEXT')"><img border=0 src="buttonimage/<%=sStyleDir%>/modetext.gif" width=50 height=15 align=absmiddle></td>
<td width=5></td>
<td class=StatusBarBtnOff id=eWebEditor_VIEW onclick="setMode('VIEW')"><img border=0 src="buttonimage/<%=sStyleDir%>/modepreview.gif" width=50 height=15 align=absmiddle></td>
</tr>
</table>
</td>
<td align=center id=eWebEditor_License style="font-size:9pt"></td>
<td align=right>
<table border=0 cellpadding=0 cellspacing=0 height=20>
<tr>
<td style="cursor:pointer;" onclick="sizeChange(300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeplus.gif" width=20 height=20 alt="增高编辑区"></td>
<td width=5></td>
<td style="cursor:pointer;" onclick="sizeChange(-300)"><img border=0 SRC="buttonimage/<%=sStyleDir%>/sizeminus.gif" width=20 height=20 alt="减小编辑区"></td>
<td width=40></td>
</tr>
</table>
</td>
</TR>
</Table>
</td></tr>
<% End If %>
</table>
<div id="eWebEditor_Temp_HTML" 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")
sStyleCSS = oRs("S_CSS")
sStyleUploadDir = oRs("S_UploadDir")
nStateFlag = oRs("S_StateFlag")
sDetectFromWord = oRs("S_DetectFromWord")
sInitMode = oRs("S_InitMode")
sBaseUrl = oRs("S_BaseUrl")
sStyleUploadDir = Replace(sStyleUploadDir, "\", "/")
If Right(sStyleUploadDir, 1) <> "/" Then
sStyleUploadDir = sStyleUploadDir & "/"
End If
Else
ShowErr "无效的样式Style参数传入，如果要使用默认值，请留空！"
End If
oRs.Close
' 取版本号及发布日期
sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
oRs.Open sSql, oConn, 0, 1
sVersion = oRs(0)
sReleaseDate = oRs(1)
sLicense = oRs(2)
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' id='eWebEditor_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
%>Top
