Dim DataObj,SqlStr
    SqlStr = "select * from MsgData"
    Set DataObj = Server.CreateObject("adodb.recordset")
    DataObj.Open SqlStr,UserConnect,1,3
    If Err.Number <> 0 Then
        Err.Clear
        Response.Write("数据库连接失败")
        Response.End
    End IF
    DataObj.addnew
    DataObj("msgname") = MsgTitle
    DataObj("msgtext") = MsgText
    DataObj("author") = session("LoginUser")
    DataObj("ansnum") = 0
    DataObj("bitnum") = 0
    DataObj("istop") = False
    DataObj.Update
    DataObj.Close
    DataObj = Nothing
    AddRet = True

上面这段代码添加数据库只有当数据库为空的时候才能添加进去是什么问题呢？百思不得其解///

If Err.Number <> 0 Then
        Err.Clear
        Response.Write("数据库连接失败")
        Response.End
    End IF
应该在数据库连接的下方不是添加的时候，检查一下变量传递。

弄好了，参数我是在表单提交的时候检测的