ASP GetRef 函數(shù)指針試探

2020-07-27 12:53:32

字體：大中小

供稿：網(wǎng)友

GetRef 函數(shù)
返回一個指向一過程的引用，此過程可綁定某事件。
Set object.eventname = GetRef(procname)
參數(shù)
object
必選項。事件所關(guān)聯(lián)的對象的名稱。
eventname
必選項。要與函數(shù)綁定的事件的名稱。
procname
必選項。該字符串中包含 Sub 或 Function 過程的名稱，該過程與事件關(guān)聯(lián)。
說明
GetRef 函數(shù)可以用來將 VBScript 過程 (Function 或 Sub）與 DHTML (動態(tài) HTML)頁面中可用的任何事件聯(lián)系在一起。DHTML 對象模型為不同對象提供了與各種可用事件有關(guān)的信息。
在其他腳本和程序設計語言中，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和事件的關(guān)系也不做過多的討論。這里只研究下WEB開發(fā)應用中GetRef的用處。
在PHP里面，PHP不支持指針，因此無法使用函數(shù)指針這一技術(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=×××來測試結(jié)果

復制代碼代碼如下:

 
<% 
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 
%> 