返回一個(gè)指向一過(guò)程的引用，此過(guò)程可綁定某事件。
Set object.eventname = GetRef(procname)
參數(shù)
object
必選項(xiàng)。事件所關(guān)聯(lián)的對(duì)象的名稱(chēng)。
eventname
必選項(xiàng)。要與函數(shù)綁定的事件的名稱(chēng)。
procname
必選項(xiàng)。該字符串中包含 Sub 或 Function 過(guò)程的名稱(chēng)，該過(guò)程與事件關(guān)聯(lián)。
說(shuō)明
GetRef 函數(shù)可以用來(lái)將 VBScript 過(guò)程 (Function 或 Sub） 與 DHTML (動(dòng)態(tài) HTML)頁(yè)面中可用的任何事件聯(lián)系在一起。DHTML 對(duì)象模型為不同對(duì)象提供了與各種可用事件有關(guān)的信息。
在其他腳本和程序設(shè)計(jì)語(yǔ)言中，GetRef 所提供的功能被稱(chēng)為函數(shù)指針，即它指向了在指定事件發(fā)生時(shí)要執(zhí)行的過(guò)程的地址。
下面的例子說(shuō)明了 GetRef 函數(shù)的使用：
復(fù)制代碼代碼如下:
<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>
大概意思是為綁定事件所用，因?yàn)楸救藢?duì)ASP中事件了解不多，所以在這里對(duì)GetRef和事件的關(guān)系也不做過(guò)多的討論。這里只研究下WEB開(kāi)發(fā)應(yīng)用中GetRef的用處。
在PHP里面，PHP不支持指針，因此無(wú)法使用函數(shù)指針這一技術(shù)。PHP支持所謂的“函數(shù)變量”，可以把函數(shù)賦予某個(gè)變量，其作用類(lèi)似于函數(shù)指針。
簡(jiǎn)單點(diǎn)的例子:
PHP里面可以這么做
復(fù)制代碼代碼如下:
<?php
$funcname = "cutstr";
echo $funcname();
function cutstr() {
return "function";
}
?>
有了GetRef，類(lèi)似上面的功能ASP也可以實(shí)現(xiàn)：
<%
dim funcname
funcname = "cutstr"
response.Write(getref(funcname))
function cutstr()
cutstr = "function"
end function
%>
實(shí)際應(yīng)用：
在做后臺(tái)管理的項(xiàng)目時(shí)，比如新聞添加，刪除，修改，等操作在同一個(gè)頁(yè)面處理，一般我們會(huì)在form里面插入一個(gè)隱藏域action，或者url參數(shù)action，根據(jù)action的值來(lái)判斷操作哪一步。通常這么寫(xiě)：
select case request.querystring("action")
case "add" : '要操作的代碼段....
case "modify" : '要操作的代碼段....
end select
或者使用if else
使用“函數(shù)變量”可以使代碼更加簡(jiǎn)潔、清晰，附上一個(gè)完整的例子，該例是后臺(tái)中常用的一種操作。修改、刪除、添加。
可以使用?action=×××來(lái)測(cè)試結(jié)果
復(fù)制代碼代碼如下:
<%
option explicit
dim array_action
'合法的模塊名
array_action = array("list","add","add_form","modify","modify_form","del")
'輸出
response.write(getref(action))
'檢驗(yàn)參數(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
'------------------------------
'檢測(cè)是否存在于數(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，到底哪個(gè)強(qiáng)，個(gè)人認(rèn)為不是語(yǔ)言的問(wèn)題，而是思想的問(wèn)題，網(wǎng)站功能原理了解了，用什么語(yǔ)言寫(xiě)都一樣，效率高不高、代碼是否簡(jiǎn)潔明了，那就看自己的水平了。歡迎大家討論！
