ASP技巧:利用函数InstrRev()获取当前文件名

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

月落网

 举例来说明其应用:

字串7

<%
Dim strTXT,pos
strTXT="www.yueluo.net"
pos=instrRev(strTXT,".")
Response.Write pos
%> 字串7

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

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

字串6

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