| 标题 | vbscript版的php extract()函数 |
| 内容 | 写过php的都知道，其有个extract()非常方便，可以便捷的将字典转换为变量，当然到asp中则要受限很多，特别是vbscript脚本，本文叙述的就是一种转换的思路，可以实现类似的功能。 下面我就直接提供asp版本的extract代码吧： 代码如下: ' ' asp/vbscript dictionary extract ' author: wangye ' for more information please visit ' ' this code is distributed under the bsd license ' ' collection 集合或者字典，可以通过for each访问的 ' request.form 或者 request.querystring ' specified 指定必须存在的属性，假如该属性不存在，将自动创建一个 ' prefix 每个属性的前缀修饰 ' callback 对于集合或者字典的每个元素(key-value)的值进行函数调用 ' 函数原型： ' function filter(key, value) ' filter = value ' end if ' 最终值将以该函数返回的值为准 ' function extract(collection, byval specified, prefix, callback) dim varname, varvalue, dynobj, searchkey specified = , & replace(specified, , ) & , set dynobj = new dynamicobject for each key in collection searchkey = , & key & , if instr(1, specified, searchkey, 1)>0 then specified = replace(specified, searchkey, ) if left(specified, 1) <> , then specified = , & specified end if if right(specified, 1) <> , then specified = specified & , end if end if varname = prefix & key varvalue = collection(key) if callback<> then varvalue = getref(callback)(key, varvalue) end if 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()将对每个值调用该函数进行处理，比如过去有这样的代码： 代码如下: dim name, job, id name = trim(request.querystring(name)) job = trim(request.querystring(job)) id = clng(trim(request.querystring(id))) 可以看到，我们每一次都调用了trim()函数，重复的写多次很麻烦，而且以后如果要改变相应功能还要一个一个替换，通过filter参数我们可以这样写： ' ' function filter(key, value) ' filter = trim(value) ' end function ' function filter(key, value) on error resume next select case key case id ' 判断id是否是数字 if not isnumeric(value) then exit function end if if clng(value)<1 then exit function end if end select ' 最后记得让函数返回值，该值在extract将被置为该返回值 filter = trim(value) if err.number<>0 then filter = end if end function dim query set query = extract(request.querystring, name,id,job, , filter) response.write query.name response.write query.job response.write query.id set query = nothing 刚才我们是以request.querystring为例子的，当然你也可以使用request.form来实现表单处理 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。