Vbscript 在经典asp应用程序中使用VB脚本执行存储过程时出现500-内部服务器错误

我支持一个旧的经典ASP VBscript应用程序。我的坏运气是我甚至不能调试服务器中的代码。编写脚本后，我需要直接在网页上查看输出。下面的代码在网页中抛出500-内部服务器错误。你能找出这个代码哪里出错了吗。提前谢谢。 在构建代码时，我遵循了以下链接

---

正确的答案是（然后确保您的浏览器不会以“友好性”的名义隐藏所述详细错误消息）。但有时您确实无法控制服务器，并且无法做到这一点。你完蛋了吗？嗯，不完全是这样

您可以通过“下一步错误恢复”中的

关闭错误处理，然后通过
响应手动单步执行代码。写入
和
响应。结束

On Error Resume Next
'Set Connection String to Database
sConnect = "PROVIDER=SQLOLEDB;DATA SOURCE=SCRBNGADK00XXXX;DATABASE=SMART2XXX;UID=XXXX;PWD=XXXX;"

' Establish connection.
Set oConObj = CreateObject("ADODB.Connection")
If err.Number <> 0 Then
    Response.Write "Error creating connection"
    Response.End
End If
Set oCmdObj = CreateObject("ADODB.Command")
If err.Number <> 0 Then
    Response.Write "Error creating command object"
    Response.End
End If
Set Rs1 = CreateObject("ADODB.Recordset")
If err.Number <> 0 Then
    Response.Write "Error creating recordset object"
    Response.End
End If
'etc., etc., etc.

出错时继续下一步
'将连接字符串设置为数据库
sConnect=“PROVIDER=SQLOLEDB；数据源=SCRBNGADK00XXXX；数据库=SMART2XXX；UID=XXXX；PWD=XXXX；”
建立联系。
设置oConObj=CreateObject（“ADODB.Connection”）
如果错误号为0，则
响应。写入“创建连接时出错”
答复.完
如果结束
设置oCmdObj=CreateObject（“ADODB.Command”）
如果错误号为0，则
响应。写入“创建命令对象时出错”
答复.完
如果结束
Set Rs1=CreateObject（“ADODB.Recordset”）
如果错误号为0，则
响应。写入“创建记录集对象时出错”
答复.完
如果结束
等等等等等等。

实际上，您可能只会在怀疑导致问题的行之后进行错误检查，而不是添加几十个
If err.number…
部分，您可以只拥有一个这样的部分，一直向下移动，直到找到错误。
您有完整的错误吗？这不是.net，因此您可以尝试使用“出错时继续下一步”，然后在“错误号0”时显示“错误说明”，以进行尝试/捕获。如果看不到错误，调试可能会很困难。（或检查iis日志）如果没有错误消息，这可能无法回答。1） 打开2）要使用诸如adDBTimeStamp之类的常量，您必须绑定到类型库或手动声明/包含-是否执行了此操作？请使用事件查看器查看是否有关于应用程序日志中错误的更多信息。另外，请尝试直接在数据库中使用相同的参数值，以查看是否出现错误。如果您的问题标记错误，请尝试删除VB.NET标记。大多数托管环境现在将使用iis 7.0或更高版本，因此在
web.config
中配置它没有问题。记住，是IIS读取
web.config
而不是经典的ASP，所以这对于那些无法访问服务器的主机用户来说是配置IIS设置的好方法。@Martha…非常感谢您提供了宝贵的消息。我将打开详细的错误消息，并检查代码错误的位置。。。。
On Error Resume Next
'Set Connection String to Database
sConnect = "PROVIDER=SQLOLEDB;DATA SOURCE=SCRBNGADK00XXXX;DATABASE=SMART2XXX;UID=XXXX;PWD=XXXX;"

' Establish connection.
Set oConObj = CreateObject("ADODB.Connection")
If err.Number <> 0 Then
    Response.Write "Error creating connection"
    Response.End
End If
Set oCmdObj = CreateObject("ADODB.Command")
If err.Number <> 0 Then
    Response.Write "Error creating command object"
    Response.End
End If
Set Rs1 = CreateObject("ADODB.Recordset")
If err.Number <> 0 Then
    Response.Write "Error creating recordset object"
    Response.End
End If
'etc., etc., etc.