VBScript中变量作用域

答案：下午在写程序的时候，碰到个变量重定义的问题，具体是在一个函数中的两个地方定义了相同的变量，两个变量分别放在IF语句的两部分中，本来以为这两次定义在语句中不同的块，应该没有影响，然而在运行中IIS却提示变量重定义，把重复定义去掉即正确。 

解决了问题之后突然想到在Fdream的blog看过一篇文章《JavaScript变量无块级作用域》，似乎这两个是差不多的，在VBScript中变量同样没有块级作用域。 

再次去看了那篇文章之后我也做了下试验，得到结果：在VBScript中，函数中定义的变量的作用域是整个函数，而不是块级，不管这个变量是在函数中哪个位置定义的。因此，函数中一个变量不管在函数的哪个位置定义，它在整个函数中都可以使用。 

下面用一些例子来说明这个问题。 
复制代码 代码如下:

Option Explicit 
Sub foo() 
    Dim var 
    var="hello,world!" 
    MsgBox var 
End Sub 
Call foo() 

下面的代码跟上面的代码等效，但是var的定义放在了函数的最后：
复制代码 代码如下:

Option Explicit 
Sub foo() 
    var="hello,world!" 
    MsgBox var 
    Dim var 
End Sub 
Call foo() 

下面的例子说明变量不管在哪定义，在整个函数中都是可以使用的，当然如果把定义的位置放的特殊一点有利于代码的清晰，阅读起来比较方便，修改时也比较方便。
复制代码 代码如下:

Option Explicit 
Sub foo() 
    Dim var1 
    var1="YES" 
    MsgBox "var1: "&var1&vbCrLf&"var2: "&var2 
    IF var1="YES" Then 
        Dim var2 
        var2="NO" 
    End IF 
    MsgBox "var1: "&var1&vbCrLf&"var2: "&var2 
End Sub 
Call foo() 

在ASP开发中，写一个函数时通常的做法是变量到用时才定义，虽然变量的作用域与定义的位置无关，不过我觉得还是写在变量使用之前比较好，以后改起代码来比较方便，不至于修改了一段代码之后还要翻到函数头去修改变量定义。 

上一个：ASP与数据库，有用的代码（转贴，摘贴）
下一个：利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印