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