VBScript版的PHP extract()函数

        DynObj.add VarName, VarValue, PROPERTY_ACCESS_READONLY
 Next

    specified_array = Split(specified, ",")
    Dim i
    For i = LBound(specified_array) To UBound(specified_array)
        If specified_array(i)<>"" Then
            DynObj.add prefix & specified_array(i), "", _
  PROPERTY_ACCESS_READONLY
        End If
    Next
    Set extract = DynObj.GetObject()
End Function

再介绍下使用方法：

Dim query
Set query = extract(Request.QueryString, "name,id", "", "")

    Response.Write query.name
    Response.Write query.id

Set query = Nothing
访问包含上述代码的ASP页面，在QueryString（就是URL问号后面的）包含name=wangye你将看到页面输出”wangye”，包含id=12的时候，将输出”12″，当然你也可以同时指定两项。

你可能发现当你Response.Write输出name和id之外key的时候，程序报错了，因为指定的属性不存在，当你在查询字符串包含这个key的时候，程序又正常了，因为有了这个key就自动建立了属性，所以又可以直接Response.Write了，如何避免呢？

1. 通过extract()函数的specified参数，该参数是个以逗号隔开key的字符串，你可以看到刚才示例代码中运用了这个特性，如果查询字符串未包含相应的key，但是你又使用了这个key，只要specified列表中有，就会自动建立值为空的属性，所以就不会报错啦。

2. 通过返回对象的hasattr_方法进行使用前判断，这个方法可以判断extract()函数返回的对象是否存在相应的属性，比如代码有：

Dim query
Set query = extract(Request.QueryString, "name,id", "", "")

If query.hasattr_("job") Then
    Response.Write "Job : " & query.job
End If

Set query = Nothing
这里job并不在我们的specified列表中，但是不带查询字串的直接访问程序没有报错，因为我们通过hasattr_在使用前进行判断是否存在此属性。

3. 通过返回对象的getattr_方法进行安全访问，这个方法会在使用前判断指定的属性是否存在，如果不存在则用默认值替代，详细参考DynamicObject说明，比如代码：

Dim query
Set query = extract(Request.QueryString, "name,id", "", "")

    Response.Write "Job : " & query.getattr_("job", "No Job")

Set query = Nothing
最后再介绍下filter的使用，extract()函数的filter参数，指定的是另外一个函数名字符串，然后extract()将对每个值调用该函数进行处理，比如过去有这样的代码：