接改编辑器fckeditor的content失败，同时，写入数据库也不行！

接收编辑器fckeditor的content失败，同时，写入数据库也不行！！！
有2个错误，一个是接收编辑中的内容已经大于10位了，但是它还是提示“内容不得少于10位”
还有一个就是写入数据库也不行，说是少了一个，对了下，没有少啊，错误提示“Microsoft JET Database Engine (0x80040E10)至少一个参数没有被指定值。”
HTML code

<%@codepage = 936%>
<!--上面表示采用简体中文显示-->
<!--#include file="../Include/function.asp"-->
<!--#include file="fckeditor/fckeditor.asp"-->
<!--#include file="../Data/conn.asp"-->
<%
    response.charset = "GBK"
    if session("Admin") = "" then
        call sussLoctionHref("非法登录","admin_login.asp")
    end if
    '接收添加的内容
    if request.form("send") = "添加内容" then
        dim addsql,sort,title,top,rmp,pic,bold,color,tag,keyword,info,name
        sort = request.form("sort")
        title = request.form("title")
        top = request.form("top")
        rmp = request.form("rmp")
        pic = request.form("pic")
        bold = request.form("bold")
        color =  request.form("color")
        tag =  request.form("tag")
        keyword =  request.form("keyword")
        info =  request.form("info")
        name =  request.form("name")
        content =  request.form("content")
        
        '开始使用VBScript对字段进行验证
        
        '标题=>不能为空并且不能少于4位，不能大于100位
        if len(title) < 4 or len(title) > 100 then
            call errorHistoryBack("标题不小于4位，或者大于100位")
        end if
        
        '发布者不能为空
        if name = "" then
            call errorHistoryBack("发布人不得为空")
        end if
        
        '内容简介
        if len(info) < 10 or len(info) > 200 then
            call errorHistoryBack("内容简介不得小于10位，大于200位")
        end if 
        
        '主要内容
        if len(content) < 10 then
            call errorHistoryBack("内容不得少于10位")
        end if
        
        
        if top = "" then 
            top =0
        end if
        
        if rmp = "" then 
            rmp =0
        end if
        
        if pic =  "" then
            pic = 0
        end if
        
        if bold = "" then
            bold = 0
        end if
        
        '新增数据,发布成功后跳转到内容管理页面,[这里是错误的，写入不了]
        addsql = "Insert into Article (cms_Sort,cms_Title,cms_Top,cms_Rmp,cms_Pic,cms_Bold,cms_Color,cms_Tag,cms_Keyword,cms_Name,cms_Info,cms_Content,cms_Date) values ("&sort&",'"&title&"',"&top&","&rmp&","&pic&","&bold&",'"&color&"','"&tag&"','"&keyword&"','"&name&"','"&info&"','"&content&"',now())"
        conn.execute(addsql)
        call close_conn
        call sussLoctionHref("内容新增成功","admin_artice.asp")
        
    end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>菲戈--内容发布</title>
<link rel="stylesheet" type="text/css" href="css/login.css" />
<script type="text/javascript" src="js/content.js"></script>
</head>
<body>

<form name="add" id="articleadd" method="post" action="admin_article_add.asp">
    <dl>
        <dt>欢迎您来发布内容</dt>
        <dd>文章类别：
            <select name="sort">
                <%
                    dim rs,sql,rs2,sql2
                    set rs = server.createobject("adodb.recordset")
                    sql = "select * from Nav where Sid=0 order by Sort asc"
                    rs.open sql,conn,1,1
                    do while not rs.eof
                %>
                    
                <optgroup label="<%=rs("NavName")%>">                    
                    <%
                        set rs2 = server.createobject("adodb.recordset")
                        sql2 = "select * from Nav where Sid<>0 and Sid="&rs("ID")
                        rs2.open sql2,conn,1,1
                        do while not rs2.eof
                    %>
                    <option>└─<%=rs2("NavName")%></option>                    
                    <%
                         rs2.movenext
                        loop
                    %>
                </optgroup>
                
                <%
                     rs.movenext
                    loop
                %>    
            </select>
        </dd>
        <dd>文章标题：<input type="text" name="title" class="text" /></dd>
        <dd>
                自定义属性：
                <input type="checkbox" class="radio1" name="top" value="1" /> 头条
                <input type="checkbox" class="radio" name="rmp" value="1" /> 推荐
                <input type="checkbox" class="radio" name="pic" value="1" /> 附图
                <input type="checkbox" class="radio" name="blod" value="1" /> 加粗
        </dd>
        <dd>标题颜色：
            <input type="radio" name="color" value="black" checked="checked" /> 黑色
            <input type="radio" name="color" value="red" /> 红色
            <input type="radio"  name="color" value="green" /> 绿色
        </dd>
        <dd>
                文章简介：<textarea cols="90" rows="6" name="info"></textarea>    
        </dd>
        <dd>
            <%
                Dim oFCKeditor
                Set oFCKeditor = New FCKeditor '创建一个编辑器的实例
                oFCKeditor.BasePath = "fckeditor/" '配置编辑器的路径，我站点根目录下的一个目录
                oFCKeditor.ToolbarSet = "Default" '完整和简化.Basic
                oFCKeditor.Width = "90%" '编辑器的长度
                oFCKeditor.Height = "400" '编辑器的高度
                oFCKeditor.Value = "" '这个是给编辑器初始值
                oFCKeditor.Create "content" '以后编辑器里的内容都是由这个content 取得，
            %>    
        </dd>
        <dd>TAG 标签：<input type="text" name="tag" class="text" /> (多个标签请使用英文逗号","隔开)</dd>
        <dd>关 键 字：<input type="text" name="keyword" class="text" /> (多个关键字请使用英文逗号","隔开)</dd>
        <dd>发 布 者：<input type="text" name="name" value="<%=session("Admin")%>" class="text" /></dd>
        <dd><input type="submit" name="send" value="添加内容" class="submit" onclick="return check();" /></dd>
    </dl>
</form>

</body>
</html>
接改编辑器fckeditor的content失败，同时，写入数据库也不行！

相关推荐
