ASP GetRef 函数指针试探(2)

'输出
response.write(getref(action))
'检验参数是否合法
function action()
dim str : str = request.querystring("action")
action = array_action(0)
if arr_in(array_action,str) then action = str
end function
'操作部分----------------------
function list()
list = "显示列表信息"
end function
function add()
add = "执行添加操作"
end function
function add_form()
add_form = "显示添加表单"
end function
function modify()
modify = "执行修改操作"
end function
'------------------------------
'检测是否存在于数组
function arr_in(a,v)
arr_in = false
dim i
if isarray(a) then
for each i in a
if i = v then : arr_in = true : exit for : end if
next
end if
end function
%>