服务器.创建对象失败错误

发布于 2024-12-29 13:25:47 字数 323 浏览 4 评论 0原文

我正在调试一些旧的 ASP 代码，并偶然发现以下错误：

Server.CreateObject 失败

这是我收到错误的代码行：

Set Session("SessionBoolian") = Server.CreateObject("DBUtils.SQLExpression")

DBUtils.SQLExpression 位于何处？我似乎无法在代码中找到对其的引用。它是如何设置的？

我的 bin 文件夹中有一个 DBUtils.dll，有没有办法查看 DLL 内部是否有 SQLEXpression 方法？

原文

I am debugging some old ASP code and have stumbled upon the following error:

Server.CreateObject Failed

Here's the line of code where I got the error:

Set Session("SessionBoolian") = Server.CreateObject("DBUtils.SQLExpression")

Where is DBUtils.SQLExpression located? I can't seem to find a reference to it in the code. How is it set?

I do have a DBUtils.dll in my bin folder, is there a way to look inside a DLL to find out if there's a SQLEXpression method there?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

趁微风不噪 2025-01-05 13:25:47

DBUtils.SQLExpression 很可能是一个 ActiveXDLL。最好的选择是搜索 DBUtils.dll 或 DBUtils.SQLExpression.dll 文件。

如果可用，您可能需要使用 regsvr32 将其注册到 COM 服务器，即在运行对话框中键入 regsvr32 D:\MyPath\DBUtils.dll 并按 Enter。

在会话中设置 ActiveXObject 之前，您可能还需要执行一些错误处理，并准确查看错误是什么。像这样的事情：

Dim sqlExpression
sqlExpression = Nothing

On Error Resume Next
Set sqlExpression = Server.CreateObject("DBUtils.SQLExpression")

If Err.Number <> 0 then
    Response.Write "#: " & Err.Number & ", Source: " & Err.Source & ", Description: " & Err.Description
Else
    'Rest of your code
End If

DBUtils.SQLExpression is most probably an ActiveXDLL. Your best bet is to search for the DBUtils.dll or DBUtils.SQLExpression.dll file.

If it's available, you may need to register it to the COM server using regsvr32 i.e. type regsvr32 D:\MyPath\DBUtils.dll in the run dialog and press enter.

You may also want to do a bit of error handling before setting an ActiveXObject in the session and see exactly what is the error. Something like this:

Dim sqlExpression
sqlExpression = Nothing

On Error Resume Next
Set sqlExpression = Server.CreateObject("DBUtils.SQLExpression")

If Err.Number <> 0 then
    Response.Write "#: " & Err.Number & ", Source: " & Err.Source & ", Description: " & Err.Description
Else
    'Rest of your code
End If

回复收藏 0 原文