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