得到当前网页文件名（不含路径）的小函数，如果有效率更高的请回帖评论

     Shared   Function  getfilename()  As   String
         Dim  a()  As   String
        a  =   Split (HttpContext.Current.Request.Path,  " / " )
         Return   LCase (a( UBound (a)))
     End Function