複製代碼代碼如下:
'**************************************************
'函數ID：0016[獲得執行程序的名稱]
'函數名：GT_the_proname
'作用：獲得執行程序的名稱
'參數：
'返回值：返回執行程序的名稱
'**************************************************
FunctionGT_the_proname()
Dimfu_name,temp,tempsiz
temp=Request.ServerVariables("PATH_INFO")
fu_name=Split(temp,"/",-1,1)
tempsiz=UBound(fu_name)
GT_the_proname=fu_name(tempsiz)
Endfunction