% Function fsofiledatemofei(sfile) '通过FSO得到文件的时间,类型,大小;sfile是文件名 '制作:默飞 'QQ:33224360 'HOME: http://www.8vb.cn sfilere="" Set fso = Server.CreateObject("Scripting.FileSystemObject") if sfile="" or isnull(sfile) then sfile=Request.ServerVariables("SCRIPT_NAME") if not fso.FileExists(server.Mappath(sfile)) then sfile=Request.ServerVariables("SCRIPT_NAME") sfile=server.Mappath(sfile) Set fsofile=fso.getfile(sfile) sfilere=sfilerefsofile.DateLastModified '文件时间 sfilere=sfilerechr(9)"font color=green>"fsofile.type"/font>" '类型 sfilere=sfilerechr(9)round(fsofile.size*1000/1024/1000,2)" KB" '大小 set fso=nothing fsofiledatemofei=sfilere End Function