<%
Dim objFSO,objFile ''声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("news.asp")) Then
Set objFile = objFSO.GetFile(Server.MapPath("news.asp"))
Response.Write "文件的名称："&objFile.Name&"<br>"
Response.Write "文件的路径："&objFile.Path&"<br>"
Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
'Response.Write "文件的最后浏览日期："&objFile.LastAccessed&"<br>" '我测试时,这个不能显示
'Response.Write "文件的最后修改日期："&objFile.LassModified&"<br>" '我测试时,这个不能显示
Response.Write "文件的大小："&objFile.Size&"<br>"
Response.Write "文件的类型："&objFile.Type&"<br>"
Else
Response.Write Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing ''释放 FileSystemObject 对象实例内存空间
%>
网站首页
业务范围
服务案例
投票系统
联系方式
电话联系