可以獲得檔案的檔案名稱的asp函數

複製代碼 代碼如下:'**************************************************
'函數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