ASP Mid函数实现 取URL文件名

<script type=text/javascript> </script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript> </script>

<script type=text/javascript> </script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript> </script>

比如当前页面是：
http://zhidao.baidu.com/aaaa.asp?p=xxxxx&page=3

我现在要取aaaa.asp

怎么写？

就是让ASP判断当前页面的完整文件名是什么？

最好是写个通用的函数。

===================================

<%
Dim fn
fn = Request.ServerVariables("SCRIPT_NAME")
fn = Mid(fn,InStrRev(fn,"/")+1)
Response.Write "当前文件名是:" & fn
%>
或

' --------------------------------------
Function currentAspFileFullName()
strPath=request.serverVariables("PATH_INFO")
currentAspFileFullName=lcase(mid(strPath,instrRev(strPath,"/")+1))
End Function
' --------------------------------------