两个asp的函数，一个是扩展名的！

‘********************************************
‘函数名：deletefile
‘作 用：删除指定的一个文件
‘参 数：filename —-要删除的文件名
‘返回值：无
‘********************************************
function deletefile(filename)
if filename<>”” then
set fso=server.CreateObject(“scripting.filesystemobject”)
if fso.FileExists(server.MapPath(filename)) then ‘判断文件是否存在
fso.DeleteFile server.MapPath(filename)
end if
set fso=Nothing
end if
end function

‘********************************************
‘函数名：GetAnExtension
‘作 用：删除指定的一个文件
‘参 数：filename —-要删除的文件名
‘返回值：文件的扩展名
‘********************************************
Function GetAnExtension(filename)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
GetAnExtension = fso.GetExtensionName(filename)
set fso=Nothing
End Function