复制代码 代码如下:
'**************************************************
'函数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