Vbscript 为什么这行代码会导致dreamweaver(cs3)崩溃?

Vbscript 为什么这行代码会导致dreamweaver(cs3)崩溃?,vbscript,crash,dreamweaver,adodb,Vbscript,Crash,Dreamweaver,Adodb,我很想解决这个问题,但我问这个问题更多的是出于好奇,而不是其他原因——我曾在各种场合尝试调试它,但从未找到答案 问题 当单击某些ASP/VB文件的代码时,DW有时会变得无响应 这是非常罕见的,在我的编码生涯中,只发生在5个左右的文件上。但当它真的发生时,它是非常令人沮丧的 到目前为止我所尝试/发现的 这不是夏令时错误,记录在这里:。相反,它更像是这里记录的问题: 受影响的文件始终包含存储过程命令。所以我把它缩小到了一行——代码中的第四行在指定cmd.ActiveConnection的下面 如果我

我很想解决这个问题,但我问这个问题更多的是出于好奇,而不是其他原因——我曾在各种场合尝试调试它,但从未找到答案

问题

当单击某些ASP/VB文件的代码时,DW有时会变得无响应

这是非常罕见的,在我的编码生涯中,只发生在5个左右的文件上。但当它真的发生时,它是非常令人沮丧的

到目前为止我所尝试/发现的

这不是夏令时错误,记录在这里:。相反,它更像是这里记录的问题:

受影响的文件始终包含存储过程命令。所以我把它缩小到了一行——代码中的第四行在指定cmd.ActiveConnection的下面

如果我在另一个文本编辑器中注释该行,那么它将在DW中打开没有问题

但是。。。不管我在那行代码中做了什么更改,它仍然会导致崩溃

因此,我可能会将命令行从cmd.ActiveConnection=dataConnectionString更改为foo.BarBar=Hum,但它仍然会崩溃

不过,如果我把这句话注释掉就可以了

更重要的是,这一行代码在许多其他文件中使用时没有问题

发生什么事了

代码

Set cmd = Server.CreateObject("ADODB.Command")         
    cmd.CommandType = adcmdStoredProc
    cmd.CommandText = "spPortalCreate"
    cmd.ActiveConnection = dataConnectionString  '**THIS LINE CAUSES FILE TO CRASH**
    cmd.Parameters.Append cmd.CreateParameter("@newRef", adVarChar, adParamOutput, 25)
    cmd.Parameters.Append cmd.CreateParameter("@userTitle", advarchar, adParamInput, 10, userTitle)
    cmd.Parameters.Append cmd.CreateParameter("@userFirstName", advarchar, adParamInput, 100, userFirstName)
    cmd.Parameters.Append cmd.CreateParameter("@userLastName", advarchar, adParamInput, 100, userLastName)
    cmd.Parameters.Append cmd.CreateParameter("@userEmail", advarchar, adParamInput, 100, userEmail)
    cmd.Parameters.Append cmd.CreateParameter("@canAddress1", advarchar, adParamInput, 150, canAddress1)
    cmd.Parameters.Append cmd.CreateParameter("@canAddress2", advarchar, adParamInput, 150, canAddress2)
    cmd.Parameters.Append cmd.CreateParameter("@canCity", advarchar, adParamInput, 150, canCity)
    cmd.Parameters.Append cmd.CreateParameter("@canPostcode", advarchar, adParamInput, 50, canPostcode)

    cmd.Execute     
    RegisterNewCandidateAndReturnReference = cmd.Parameters("@newRef")
Set cmd = Nothing