获得执行程序的名称

2006-6-26 0:05:48　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'函数名：GT_the_proname
'作  用：获得执行程序的名称
'参  数：
'返回值：返回执行程序的名称
'**************************************************
Public 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

>> 相关文章