近日在學習C++，看到函數(shù)指針，由于之前一直搞ASP，所以想ASP里面是否也有這個函數(shù)指針的東西，百度了一下，沒有太多關于此方面的介紹，于是翻了翻VBScript手冊，沒讓我失望，找到了GetRef這個函數(shù)，引用手冊上的說明：

GetRef 函數(shù)

返回一個指向一過程的引用，此過程可綁定某事件。

Set object.eventname = GetRef(procname)

參數(shù)
object

必選項。事件所關聯(lián)的對象的名稱。

eventname

必選項。要與函數(shù)綁定的事件的名稱。

procname

必選項。該字符串中包含 Sub 或 Function 過程的名稱，該過程與事件關聯(lián)。

說明
GetRef 函數(shù)可以用來將 VBScript 過程 (Function 或 Sub） 與 DHTML (動態(tài) HTML)頁面中可用的任何事件聯(lián)系在一起。DHTML 對象模型為不同對象提供了與各種可用事件有關的信息。

在其他腳本和程序設計語言中，GetRef 所提供的功能被稱為函數(shù)指針，即它指向了在指定事件發(fā)生時要執(zhí)行的過程的地址。

下面的例子說明了 GetRef 函數(shù)的使用：

<SCRIPT LANGUAGE="VBScript">

Function GetRefTest()
  Dim Splash
  Splash = "GetRefTest Version 1.0"  & vbCrLf
  Splash = Splash & Chr(169) & " YourCompany 1999 "
  MsgBox Splash
End Function

Set Window.Onload = GetRef("GetRefTest")
</SCRIPT>

大概意思是為綁定事件所用，因為本人對ASP中事件了解不多，所以在這里對GetRef和事件的關系也不做過多的討論。這里只研究下WEB開發(fā)應用中GetRef的用處。

在PHP里面，PHP不支持指針，因此無法使用函數(shù)指針這一技術。PHP支持所謂的“函數(shù)變量”，可以把函數(shù)賦予某個變量，其作用類似于函數(shù)指針。
簡單點的例子:

PHP里面可以這么做

<?php
$funcname = "cutstr";
echo $funcname();

function cutstr() {
 return "function";
}
?>

有了GetRef，類似上面的功能ASP也可以實現(xiàn)：
<%
dim funcname
funcname = "cutstr"
response.Write(getref(funcname))

function cutstr()
 cutstr = "function"
end function
%>

實際應用：

在做后臺管理的項目時，比如新聞添加，刪除，修改，等操作在同一個頁面處理，一般我們會在form里面插入一個隱藏域action，或者url參數(shù)action，根據(jù)action的值來判斷操作哪一步。通常這么寫：

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

或者使用if else

使用“函數(shù)變量”可以使代碼更加簡潔、清晰，附上一個完整的例子，該例是后臺中常用的一種操作。修改、刪除、添加。
可以使用?action=×××來測試結果

<%
option explicit

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

'輸出
response.write(getref(action))

'檢驗參數(shù)是否合法
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 = "執(zhí)行添加操作"
end function

function add_form()
 add_form = "顯示添加表單"
end function

function modify()
 modify = "執(zhí)行修改操作"
end function
'------------------------------

'檢測是否存在于數(shù)組
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，到底哪個強，個人認為不是語言的問題，而是思想的問題，網(wǎng)站功能原理了解了，用什么語言寫都一樣，效率高不高、代碼是否簡潔明了，那就看自己的水平了。歡迎大家討論！

• asp