' 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/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10294527/viewspace-124721/