http://expert.csdn.net/Expert/topic/1894/1894760.xml?temp=.6230432
哈哈。自己找到了。
谁再来,就把分送给他

解决方案 »

  1.   

    比如说我有一个新闻更改的asp文件, 可能跟你要的差不多,,呵呵..不过你有了那就仅供参考了.   :)
       <%
    function htmlencode(str)
    if request("special")="true" then
    htmlencode=replace(replace(str,chr(13),"<br>"),"'","’")
    else
    htmlencode=server.htmlencode(str)
    htmlencode=replace(replace(htmlencode,chr(13),"<br>"),"'","’")
    end ifend function   IF Request.Form("Submit")="修改确认" THEN
         txt1=Request.Form("title")
         txt2=Request.Form("data")
         txt3=Request.Form("come")
         txt4=Request.Form("image")
         txt5=Request.Form("content")
         IF txt1="" or txt2="" or txt3="" or txt5="" THEN
          errMessage="<li>输入有错"
         end if
         IF errMessage<>"" THEN
           Response.write "<b>.....发现错误.....</b><br><br>"&errMessage&"<br><br><a href=javascript:history.back()><font color=#000000>返回</font></a>"
         ELSE
            IF  txt4<>"" THEN  
               txt1="(图) " & txt1
            end if
    set adocon=Server.CreateObject("ADODB.Connection")
            adocon.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("news.mdb")
            dim rs,sql
            set rs=server.createobject("adodb.recordset")
            sql="select * from news where id=" & session("id")
            rs.open sql,adocon,1,3
    rs("title")=txt1
    rs("data")=txt2
                rs("come")=txt3
                if request.form("image")<>"" then
                   rs("image")=txt4
    end if
    rs("content")=htmlencode(txt5)
    rs.update
    rs.close

           Response.write "<b>.....编辑操作完成.....</b><br><br>新闻修改成功,<a href=newsoperate.asp><font color=#000000>返回</font></a>"
         END IF
    end if
    %>
      

  2.   

    1、将下面的代码放在head区中
    <script language="javascript">
    <!--
    function abc()
    {
        document.form1.doc_html.value = document.form1.cont.value return true
    }
    function CheckForm()
    {
    document.form1.content.value=document.form1.doc_html.value;
        
    return true
    }//-->
    </script>2、<body onload="javascript:abc()">
       将数据库中的记录保存在另外一个textarea中,并赋值给编辑器3、下面是表单的部分细节,利用onsubmit动作将修改后的html代码赋值给隐藏的content,为存入数据库做好资准备。<%=content%>从数据库中取出记录:
    <form method="POST" action="......" name="form1" onsubmit="return CheckForm()">
     ...............
    <OBJECT id=doc_html style="LEFT: 0px; TOP: 0px" data=editor.htm width=544  height=320 type=text/x-scriptlet  VIEWASTEXT>
             <embed src="editor.htm" width="544" height="320"></embed> 
             </OBJECT>
    ...............
    <textarea style="display:none" name="cont">
    <%=content%>
    </textarea>
             <input type="hidden" name="content" value="">
    以上是测试成功的代码!