Function showsize(filename) FPath=server.mappath(filename) '本目录下 set fso=server.CreateObject("scripting.filesystemobject") If fso.fileExists(FPath) Then Set f = fso.GetFile(FPath) filetype=f.type filesize=f.size adddate=f.DateCreated Select Case true Case filesize<1024 fsize=filesize&" B" Case filesize<1048576 fsize=Round((filesize/1024),2)&" KB" Case filesize<1073741824 fsize=Round((filesize/1024/1024),2)&" MB" Case else fsize=Round((filesize/1024/1024/1024),2)&" GB" End Select Response.Write "文件大小:"&fsize&",文件类型:"&filetype&",创建时间:"&adddate else Response.Write"文件不存在!" end if End Function '======================== Call showsize("123.rar")