VBScript版的PHP 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来实现表单处理的更多功能，希望这篇文章能够给你编写ASP带来方便:-)

您可能感兴趣的文章:

PHP中extract()函数的定义和用法PHP中extract()函数的妙用分析PHP extract 将数组拆分成多个变量的函数PHP中的extract的作用分析php的socket编程详解PHP内置加密函数详解php PDO异常处理详解php.ini中date.timezone设置详解浅析php中array_map和array_walk的使用对比php 二维数组时间排序实现代码php socket通信简单实现php 数组处理函数extract详解及实例代码