careu 发布留言 2008-11-10 01:33
万般无奈！前来寻求解答，动网的问题~
管理员登陆后，在论坛前台点击“管理”下的“审核管理”出现以下错误无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 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 . . .
[ 本帖最后由 careu 于 2008-11-10 01:37 编辑 [/it]]
careu 发布留言 2008-11-10 01:37
以下为提示的代码---------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 & "
"
1424 End If
1425 Set Execute = Conn.Execute(Command)1426 End If
1427 SqlQueryNum = SqlQueryNum+1
1428 End Function
[ 本帖最后由 careu 于 2008-11-10 01:40 编辑 [/it]]
页: [1]
