管理员登陆后，在论坛前台点击“管理”下的“审核管理”出现以下错误

无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80040E14)
FROM 子句语法错误。
/bbs/inc/Dv_ClsMain.asp, 第 1425 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; TencentTraveler ; TencentTraveler 4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)

网页：
GET /bbs/AccessTopic.asp
 
----------------------------------------------------------------------------
而后发现 发帖也会出现错误，如下：
无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句的语法错误。
/bbs/inc/Dv_ClsMain.asp, 第 1425 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; TencentTraveler ; TencentTraveler 4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)

网页：
POST 256 ??? /bbs/SavePost.asp

POST Data:
upfilerename=&Body=%B7%A2&dvbbs=jbefbjdfd&star=1&page=1&TotalUseTable=&username=********&passwd=**********&font=&topic=%B7%A2&topicximoo=0&Expression=face1.gif&autofix=1&GetPostType=&ToMoney=&Buy_Orde . . .

[[it] 本帖最后由 careu 于 2008-11-10 01:37 编辑 [/it]]

以下为提示的代码---------
1403        Dim TempStr
        TempStr = mainhtml(13)
        TempStr = Replace(TempStr,"{$sucmsg}",sucmsg)
        TempStr = Replace(TempStr,"{$returnurl}",Request.ServerVariables("HTTP_REFERER"))
        Response.Write TempStr
        TempStr = ""
    End Sub
    Public Function Execute(Command)
        If Not IsObject(Conn) Then ConnectionDatabase        
        If IsDeBug = 0 Then
            On Error Resume Next
            Set Execute = Conn.Execute(Command)
            If Err Then
                err.Clear
                Set Conn = Nothing
                Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。"
                Response.End
            End If
1421        Else
1422            If ShowSQL=1 Then
1423                Response.Write command & "<br>"
1424            End If
1425            Set Execute = Conn.Execute(Command)
1426        End If    
1427        SqlQueryNum = SqlQueryNum+1
1428    End Function

[[it] 本帖最后由 careu 于 2008-11-10 01:40 编辑 [/it]]