可以获得文件的文件名的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