[QUOTE]<% '******************************************* '函数作用:取得文件的后缀名 '******************************************* Function GetExtensionName(str) Dim FileName FileName=Split(str,".") GetExtensionName=FileName(Ubound(FileName)) End Function %>[/QUOTE]