VBScript版的PHP extract()函数
写过PHP的都知道，其有个extract()非常方便，可以便捷的将字典转换为变量，当然到ASP中则要受限很多，特别是VBScript脚本，本文叙述的就是一种转换的思路，可以实现类似的功能。
下面我就直接提供ASP版本的extract代码吧：
'
'ASP/VBScriptDictionaryextract
'Author:WangYe
'Formoreinformationpleasevisit
'
'ThiscodeisdistributedundertheBSDlicense
'
'collection集合或者字典，可以通过ForEach访问的
' Request.Form或者Request.QueryString
'specified 指定必须存在的属性，假如该属性不存在，将自动创建一个
'prefix 每个属性的前缀修饰
'callback 对于集合或者字典的每个元素(key-value)的值进行函数调用
' 函数原型：
' Functionfilter(key,value)
' filter=value
' EndIf
' 最终值将以该函数返回的值为准
'
Functionextract(collection,ByValspecified,prefix,callback)
DimVarName,VarValue,DynObj,searchKey
specified=","&Replace(specified,"","")&","
SetDynObj=NewDynamicObject
ForEachkeyIncollection
searchKey=","&key&","
IfInStr(1,specified,searchKey,1)>0Then
specified=Replace(specified,searchKey,"")
IfLeft(specified,1)<>","Then
specified=","&specified
EndIf
IfRight(specified,1)<>","Then
specified=specified&","
EndIf
EndIf
VarName=prefix&key
VarValue=collection(key)
Ifcallback<>""Then
VarValue=GetRef(callback)(key,VarValue)
EndIf
DynObj.addVarName,VarValue,PROPERTY_ACCESS_READONLY
Next
specified_array=Split(specified,",")
Dimi
Fori=LBound(specified_array)ToUBound(specified_array)
Ifspecified_array(i)<>""Then
DynObj.addprefix&specified_array(i),"",_
PROPERTY_ACCESS_READONLY
EndIf
Next
Setextract=DynObj.GetObject()
EndFunction
再介绍下使用方法：
Dimquery Setquery=extract(Request.QueryString,"name,id","","") Response.Writequery.name Response.Writequery.id Setquery=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()函数返回的对象是否存在相应的属性，比如代码有：
Dimquery
Setquery=extract(Request.QueryString,"name,id","","")
Ifquery.hasattr_("job")Then
Response.Write"Job:"&query.job
EndIf
Setquery=Nothing这里job并不在我们的specified列表中，但是不带查询字串的直接访问程序没有报错，因为我们通过hasattr_在使用前进行判断是否存在此属性。
3.通过返回对象的getattr_方法进行安全访问，这个方法会在使用前判断指定的属性是否存在，如果不存在则用默认值替代，详细参考DynamicObject说明，比如代码：
Dimquery
Setquery=extract(Request.QueryString,"name,id","","")
Response.Write"Job:"&query.getattr_("job","NoJob")
Setquery=Nothing最后再介绍下filter的使用，extract()函数的filter参数，指定的是另外一个函数名字符串，然后extract()将对每个值调用该函数进行处理，比如过去有这样的代码：
Dimname,job,id
name=Trim(Request.QueryString("name"))
job=Trim(Request.QueryString("job"))
id=CLng(Trim(Request.QueryString("id")))可以看到，我们每一次都调用了Trim()函数，重复的写多次很麻烦，而且以后如果要改变相应功能还要一个一个替换，通过filter参数我们可以这样写：
' 'Functionfilter(key,value) ' filter=Trim(value) 'EndFunction '
Functionfilter(key,value) OnErrorResumeNext SelectCasekey Case"id"'判断ID是否是数字 IfNotIsNumeric(value)Then ExitFunction EndIf IfCLng(value)<1Then ExitFunction EndIf EndSelect '最后记得让函数返回值，该值在extract将被置为该返回值 filter=Trim(value) IfErr.Number<>0Then filter="" EndIf EndFunction Dimquery Setquery=extract(Request.QueryString,"name,id,job","","filter") Response.Writequery.name Response.Writequery.job Response.Writequery.id Setquery=Nothing