The code copy is as follows:
'*********************************************************
'Function ID: 0016 [Get the name of the executor]
'Function name: GT_the_proname
'Function: Get the name of the executor
'parameter:
'Return value: Return the name of the executor
'*********************************************************
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