从Url中获取当前页面文件名称

来源：互联网发布：mysql php管理源码编辑：程序博客网时间：2024/04/29 21:13

'==================================================================================
'函数名：GetPageName
'作  用：不管当前Url地址是否含有参数，从Url中获取当前页面文件名称。
'返回值：页面文件名称。
'==================================================================================
function GetPageName()
    dim Url,PageStr,PageName
    Url=request.ServerVariables("URL")
    PageStr=mid(Url,instrRev(Url,"/")+1)
    if instr(PageStr,"?")=0 then
        PageName=PageStr
    else
        PageName=mid(PageStr,1,instr(PageStr,"?")-1)
    end if

    GetPageName=PageName
end function

实例说明：

设当前地址为：http://www.fengyekun.com/Index.asp

response.write GetPageName() '输出结果为Index.asp

设当前地址为：http://www.fengyekun.com/Index.asp?Action=ceshi&Meter=ceshi&Page=333

response.write GetPageName() '输出结果为Index.asp

枫叶随风网

http://www.fengyekun.com