获取文件信息

1.获取文件格式

<%
FullPath = theFile.Name
filetype= mid(FullPath,InStrRev(FullPath, ".")+1)
'Response.Write f
%>