InstrRev函数，从字符串的最后一个搜索起，前面字符串。

<%
Dim strTXT,pos
strTXT="www.webjx.com"
pos=instrRev(strTXT,".")
Response.Write pos
%>

我们搜索的起始是倒序，从com前的一个点。起始的字符的长度，含此点，共十个字符，返回的结果将是9。

通过此原理，我们就可以取得文件名，域名后缀名等。

<%
Dim aa,bb,cc,dd
aa=Request.Servervariables("url")
bb=InstrRev(aa,"/")
cc=len(aa)
dd=Right(aa,cc-bb)
Response.Write dd
%>