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