网络编程
位置：首页>> 网络编程>> Asp编程>> ASP函数指针试探－GetRef（2）

ASP函数指针试探－GetRef（2）

作者：Anyyes　来源：ASP Quick Work 官方网站　发布时间：2009-10-12 12:39:00　

标签：asp,函数,指针,GetRef

实际应用：

在做后台管理的项目时，比如新闻添加，删除，修改，等操作在同一个页面处理，一般我们会在form里面插入一个隐藏域action，或者url参数action，根据action的值来判断操作哪一步。通常这么写：

select case request.querystring("action")
case "add" : '要操作的代码段....
case "modify" : '要操作的代码段....
end select

或者使用if else

使用“函数变量”可以使代码更加简洁、清晰，附上一个完整的例子，该例是后台中常用的一种操作。修改、删除、添加。

可以使用?action=×××来测试结果


<％
option explicit


dim array_action
'合法的模块名
array_action = array("list","add","add_form","modify","modify_form","del")


'输出
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
％>

很多帖讨论ASP、PHP、.NET，到底哪个强，个人认为不是语言的问题，而是思想的问题，网站功能原理了解了，用什么语言写都一样，效率高不高、代码是否简洁明了，那就看自己的水平了。欢迎大家讨论！

第一页 上一页 1
2
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com