|
|
|
7i24.Com不停为您服务
<%
' 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
%>
|
|
|