[求助]请帮帮忙 - ASP技术论坛

楼主

问题点数：0 回复次数：5

[求助]请帮帮忙

请问，新闻发布与管理系统中的发表新闻的编辑器代码如何实现啊

搜索更多相关主题的帖子: 新闻　编辑器　

第 2 楼

得分:0

网上有在线编辑器,很多的,自己搜一下可以下载的.

Pr2wlh3R.rar (228.87 KB)

调用方法,<INPUT type="hidden" name="detail">
<iframe ID="detail" src="htmledit/ewebeditor.asp?id=detail&style=s_newssystem2" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>
存到数据库里的方法,
strDetail=Request.Form("detail")
rs("detail")=strDetail
For i = 1 To Request.Form("content").Count
strContent = strContent & Request.Form("content")(i)
Next
rs("content")=strContent
OK了

[此贴子已经被作者于2007-2-14 9:06:11编辑过]

面朝大海，春暖花开！

第 3 楼

得分:0

很简单吧..

面朝大海，春暖花开！

第 4 楼

得分:0

谢谢了，用起来倒不麻烦
就是没完全弄懂

第 5 楼

得分:0

编辑器的网站也有教程，讲解如何使用编辑器。那个编辑器前端使用JavaScript，后端使用ASP接受的。
<html>
<head>
<title>编辑器测试页面</title>
<%
'……此处省略数据库打开和连接的代码
strDetail=Request.Form("detailBody")'取得编辑器提交的内容
rs("detail")=strDetail'将内容写入数据库记录集中
'……此处省略数据库存储等其他代码
%>
<script language="javascript" >
function Page_Submit()
{
document.SubForm.action=window.location.href;//取得当前网页URL地址，将网页内容提交到自身
document.SubForm.detailBody.value=detail.getHTML();//[编辑器ID].getHTML();方法取得编辑器内容
document.SubForm.submit();//提交网页
}
</script>
</head>
<body>
<iframe ID="detail" src="htmledit/ewebeditor.asp?id=detail&style=s_newssystem2" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe><br>
<input type="button" name="Submit" value="提交编辑器内容" onClick="Page_Submit();" >
<form name=SubForm method="post" >
<INPUT type="hidden" name="detailBody">
</form>
</body>
</html>

第 6 楼

得分:0

为什么会有这样的错误：错误码：0x800A0BB9
错误代码：oRs.Open sSql, oConn, 0, 1
错误描述：参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
文件名称：d:\asp实例下载\editor\example\newssystem\show.asp
所在行号：31

<%

' ======================
' 功能：显示新闻
' 描述：显示编辑的内容页，此页注意一下DeCode接口函数的调用。
' ======================

Call Header("显示新闻内容")
Call Content()
Call Footer()

' 本页内容区
Sub Content()

' 传入参数：新闻ID
Dim sNewsID
sNewsID = Trim(Request("id"))

' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序
If IsNumeric(sNewsID) = False Then
GoError "请通过页面上的链接进行操作，不要试图破坏此演示系统。"
End If

' 从数据库中取初始值
Dim sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName
sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sTitle = oRs("D_Title")
sContent = oRs("D_Content")
sPicture = oRs("D_Picture")
sOriginalFileName = oRs("D_OriginalFileName")
sSaveFileName = oRs("D_SaveFileName")
sSavePathFileName = oRs("D_SavePathFileName")
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close

' 禁用某些标签，如出于安全考虑的Script标签，等
' 要使用此功能需要先包含"Include/DeCode.asp"文件。
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。
sContent = eWebEditor_DeCode(sContent, "SCRIPT")

' 输出新闻
Response.Write "<table border=0 cellpadding=5 width='90%' align=center>" & _
"<tr><td align=center><b>" & sTitle & "</b></td></tr>" & _
"<tr><td>" & sContent & "</td></tr>" & _
"</table>"

' 输出相关文件信息
Response.Write "<p><b>此新闻的相关上传文件信息如下：</b></p>"

' 把带"|"的字符串转为数组，用于列出显示
Dim aOriginalFileName, aSaveFileName, aSavePathFileName
aOriginalFileName = Split(sOriginalFileName, "|")
aSaveFileName = Split(sSaveFileName, "|")
aSavePathFileName = Split(sSavePathFileName, "|")

Response.Write "<table border=1 cellpadding=3 cellspacing=0>" & _
"<tr>" & _
"<td>序号</td>" & _
"<td>原文件名(接口：d_originalfilename)</td>" & _
"<td>保存文件名(接口：d_savefilename)</td>" & _
"<td>保存路径文件名(接口：d_savepathfilename)</td>" & _
"</tr>"
Dim i
For i = 0 To UBound(aOriginalFileName)
Response.Write "<tr>" & _
"<td>" & CStr(i + 1) & "</td>" & _
"<td>" & aOriginalFileName(i) & "</td>" & _
"<td>" & aSaveFileName(i) & "</td>" & _
"<td>" & aSavePathFileName(i) & "</td>" & _
"</tr>"
Next
Response.Write "</table>"

End Sub