' Filename stripper

' This script was obtained from the Infinite Monkeys Code library at

http://infinitemonkeys.atrax.co.uk ' to re-use, you must keep this text block intact ' copyright (c) Jason Brown/Atrax Internet 2000

Function getFilename(text)

text = Left(text,inStrRev(fl,".")-1) getFilename = text

End Function

Function getExtn(text)

text = Left(text,inStr(text,".")-1) getExtn = text End Function

%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124721/，如需转载，请注明出处，否则将追究法律责任。