在ASP编程的过程中，获取当前操作的文件的文件名，是一个非常常用的动作，ASP好像没有自己内置函数，所以这个操作我们需要自己编函数来完成。今天一个老朋友问我怎么做，我愣了一下，还在想有没有内置函数，实在没想起来，不知道是真的没有还是我不知道。呵呵~不管了，最后我还是自己写了一个小函数来完成的，不过不是我的原创，忘了在哪儿看到的方法，一直记在心里。
介绍一下InstrRev函数
InstrRev函数：从字符串的最后一个字符搜索起，向前面逐个搜索前面字符串，返回字符在字符串当中的第几位。
举例来说明其应用：
ASP/Visual Basic代码
<%
Dim strTXT,pos
strTXT=www.baidu.com
pos=instrRev(strTXT,".")
Response.Write pos
%>
InstrRev函数搜索的起始是倒序，倒着搜索到com前的那个“.”。返回这个点在字符串中的位置，从0开始计数（类似数组），这个点为第12位，所以返回的结果将是11。
通过此原理，我们不光可以取得ASP页面的文件名，还可以获取域名后缀名等信息，应用还是比较广泛的。
下面这几句代码就是实现获取当前文件名（放到ASP页面里，就能打印出当前文件名）：
ASP/Visual Basic代码
Dim strURL,intPos,intStrLen,strFileName
strURL = Request.Servervariables("url")
intPos = InstrRev(strURL,"/")
intStrLen = len(strURL)
strFileName = Right(strURL,intStrLen-intPos)
Response.Write strFileName
如果希望函数来获取，调用如下getFileName()函数即可实现：
ASP/Visual Basic代码
Function getFileName()
Dim strURL,intPos,intStrLen,strFileName
strURL = Request.Servervariables("url")
intPos = InstrRev(strURL,"/")
intStrLen = len(strURL)
strFileName = Right(strURL,intStrLen-intPos)
getFileName = strFileName
End Function
在asp数组定义中,可以直接定义,也可以使用Array函数定义..
先看用Array()函数定义例子:
<%
dim MyArray
MyArray=Array("天涯风云","小小程序员")
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
直接定义:
<%
dim MyArray(2)
MyArray(0)="天涯风云"
MyArray(1)="小小� ......
