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