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

'==================================================================================
'函数名：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