足球游戏_中国足彩网¥体育资讯$

vbscript版的php extract()函数
来源:易贤网 阅读:663 次 日期:2016-06-20 09:51:35
温馨提示:易贤网小编为您整理了“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来实现表单处理

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:vbscript版的php extract()函数
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标