近日在學習C++，看到函數指針，由於之前一直搞ASP，所以想ASP裡面是否也有這個函數指針的東西，百度了一下，沒有太多關於此方面的介紹，於是翻了翻VBScript手冊，不讓我失望，找到了GetRef這個函數，引用手冊上的說明GetRef 函數
傳回一個指向一過程的引用，此程序可綁定某事件。
Set object.eventname = GetRef(procname)
參數
object
必選項。事件所關聯的物件的名稱。
eventname
必選項。要與函數綁定的事件的名稱。
procname
必選項。該字串中包含Sub 或Function 過程的名稱，該過程與事件關聯。
說明
GetRef 函數可以用來將VBScript 過程(Function 或Sub） 與DHTML (動態HTML)頁面中可用的任何事件連結在一起。 DHTML 物件模型為不同物件提供了與各種可用事件相關的資訊。
在其他腳本和程式設計語言中，GetRef 所提供的功能稱為函數指針，也就是它指向了在指定事件發生時要執行的程序的位址。
下面的例子說明了GetRef 函數的使用：
複製代碼代碼如下:
<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開發應用中GetRef的用處。
在PHP裡面，PHP不支援指針，因此無法使用函數指針這項技術。 PHP支援所謂的函數變量，可以把函數賦予某個變量，其作用類似函數指標。
簡單點的例子:
PHP裡面可以這麼做
複製代碼代碼如下:
<?php
$funcname = cutstr;
echo $funcname();
function cutstr() {
return function;
}
?>
有了GetRef，類似上面的功能ASP也可以實現：
<%
dim funcname
funcname = cutstr
response.Write(getref(funcname))
function cutstr()
cutstr = function
end function
%>
實際應用：
在做後台管理的項目時，例如新聞添加，刪除，修改，等操作在同一個頁面處理，一般我們會在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，到底哪個強，個人認為不是語言的問題，而是思想的問題，網站功能原理了解了，用什麼語言寫都一樣，效率高不高、代碼是否簡潔明了，那就看自己的水平了。歡迎大家討論！