Question

我目前正试图弄清楚如何在ASP classic的行继续声明中添加注释。我们的代码管理要求要求我们编写一个Start块和End块来标记我们进行更改的位置。例如。

旧代码

arrayName = Array("FIRST_NAME", _
                  ,"LAST_NAME" _
                  ,"ADDRESS"
                  )

新代码

arrayName = Array("FIRST_NAME" _
                  ,"LAST_NAME" _
                  ,"ADDRESS" _
                  ' 2011/09/27 bob Added new column for XYZ support Start
                  ,"NEW_COLUMN" _
                  ' 2011/09/27 bob Added new column for XYZ support End
                  )

新代码导致错误，因为下划线无法放入评论中。无论如何在这些行之间放置代码管理注释？只是想看看我是否可能错过了其他选择。我认为没有，但你们/ gals的想法是什么？

Answer 1

请改用此评论：

' 2011/09/27 bob Added "NEW_COLUMN" for XYZ support
arrayName = Array("FIRST_NAME" _
                  ,"LAST_NAME" _
                  ,"ADDRESS" _
                  ,"NEW_COLUMN" _
                  )

您的版本控制系统会负责显示差异，因此开始和结束评论几乎没用。

Answer 2

如果注释行位置对您非常重要，则可能需要编写自己的数组推送过程所以，你没有错过任何东西。这是VBScript syntax的原因使用underscore，实际运行如下：

数组（“FIRST_NAME”，“LAST_NAME”，“ADDRESS”，'评论，“NEW_COLUMN”，'评论）

这也会导致错误。

我写这篇文章是为了提出关于推入数组的想法。

Sub [+](arrT, ByVal val)
    Dim iIdx : iIdx = 0
    If IsArray(arrT) Then
        iIdx = UBound(arrT) + 1
        ReDim Preserve arrT(iIdx)
    Else
        ReDim arrT(iIdx)
    End If      
    arrT(iIdx) = val
End Sub

'Start push

[+]arrayName, "FIRST_NAME"
[+]arrayName, "LAST_NAME"
[+]arrayName, "ADDRESS" 
'2011/09/27 bob Added new column for XYZ support Start
[+]arrayName, "NEW_COLUMN"
'2011/09/27 bob Added new column for XYZ support End

'Test
Response.Write Join(arrayName, "<br />")

在ASP Classic VBScript上的续行（下划线）之间添加注释

2 个答案: