文章 专题 AI工具 学习 下载 问答 源码 最近更新
PHP
会员中心 讲师中心 微信公众号
首页 > 后端开发 > C#.Net教程 > 正文

Asp 对文件操作问题总结

怪我咯
发布： 2017-03-30 13:56:28
原创
1243人浏览过
<html>
<body>读取一个文件相关信息的范例<br><br>
<%
  Dim objFSO,objFile    '声明一个名称为 objFSO 的变量以存放对象实例
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   If objFSO.FileExists(Server.MapPath("newfile.asp")) Then
     Set objFile = objFSO.GetFile(Server.MapPath("newfile.asp"))
     Response.Write "文件的路径："&objFile.Path&"<br>"
     Response.Write "文件的建立日期："&objFile.DateCreated&"<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 对象实例内存空间
%>
</body></html>
登录后复制
动网论坛的代码，你参考一下吧
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->

<title><%=Forum_info(0)%>--管理页面</title>
<!--#include file=inc/forum_css.asp-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY <%=Forum_body(11)%>>
<%
	if not master or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call dvbbs_error()
		response.end
	
	end if
	on error resume next
 	Sub ShowSpaceInfo(drvpath)
 		dim fso,d,size,showsize
 		set fso=server.createobject("scripting.filesystemobject") 		
 		drvpath=server.mappath(drvpath) 		 		
 		set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & " Byte" 
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & " KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & " MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & " GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	End Sub	
 	
 	Sub Showspecialspaceinfo(method)
 		dim fso,d,fc,f1,size,showsize,drvpath 		
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpath=server.mappath("pic")
 		drvpath=left(drvpath,(instrrev(drvpath,"/")-1))
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		elseif method="Program" then
 			set fc=d.Files
 			for each f1 in fc
 				size=size+f1.size
 			next	
 		end if	
 		
 		showsize=size & " Byte" 
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & " KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & " MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & " GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	end sub 	 	 	
 	
 	Function Drawbar(drvpath)
 		dim fso,drvpathroot,d,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("pic")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		drvpath=server.mappath(drvpath) 		
 		set d=fso.getfolder(drvpath)
 		size=d.size
 		
 		barsize=cint((size/totalsize)*400)
 		Drawbar=barsize
 	End Function 	
 	
 	Function Drawspecialbar()
 		dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("pic")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		set fc=d.files
 		for each f1 in fc
 			size=size+f1.size
 		next	
 		
 		barsize=cint((size/totalsize)*400)
 		Drawspecialbar=barsize
 	End Function 	
 %>

<table align=center cellspacing=1 cellpadding=1 class=tableborder1>		  							  				
  <tr>
     <th height=25>  系统空间占用情况</th>  					</th>
  </tr> 	
  <tr>
     <td class=tablebody1> 			
 	<blockquote> 			
 			
 			 			
 			法规数据占用空间：  
 			备份数据占用空间：  
 			程序文件占用空间：  
 			心情图片占用空间：  
 			系统图片占用空间：  
 			上传头像占用空间：  
 			上传图片占用空间：  	
 			系统占用空间总计： 
 			
 	</blockquote> 	
      </td>
    </tr>
</table>
登录后复制
ASP--文件操作类 设计版
登录后复制


'====================================================
'version:  aspfile 1.0
'data:  2006.6.20
'copyright: (c) 2006 evan.cn all rights reserved
'====================================================
'文件操作类
'文件名称
'文件大小
'文件创建
'filename--文件名称
'destinationfile--目标文件名称
'filesize--获得文件大小
'filecreateddate--获得文件创建日期
'fileattributes--获得文件属性
'showfileaccessinfo(infotype)--获得文件属性
'createtxtfile()--创建文本文件
'writetxtfile(textstr,writeorappendtype)==写文本文件
'readtxtfile()--读取文本文件
'deletefile()--删除文件
'copyfile()--拷贝文件
'movefile()--移动文件
'
'
class cls_fso
private o_fso,s_filename,s_foldername,s_destinationfile
private s_foldername,s_destinationfolder

private sub class_initialize()
         set o_fso = createobject("scripting.filesystemobject")
   end sub

private sub class_terminate()
       set o_fso = nothing
   end sub

'===============================================文件操作

'设置文件名字
public property let filename(byval values)
 s_filename=values
 'checkfile '检查文件
end property

'设置目标文件名
public property let destinationfile(byval values)
 s_destinationfile=values
end property


'取文件大小
public property get filesize()
 if fileexist then
  dim f
  set f = o_fso.getfile(s_filename)
           filesize = f.size
 else
  filesize=0
 end if
end property

'取文件
public property get filecreateddate()
 if fileexist then
  dim f
  set f = o_fso.getfile(s_filename)
  filecreateddate = f.datecreated
 else
  filecreateddate="1900-1-1"
 end if

end property

'取文件大小
public property get fileattributes()
 if fileexist then
  dim f,str
  set f = o_fso.getfile(s_filename)
  select case f.attributes
   case 0 str="普通文件。没有设置任何属性。 "
   case 1 str="只读文件。可读写。  "
   case 2 str="隐藏文件。可读写。  "
   case 4 str="系统文件。可读写。  "
   case 16 str="文件夹或目录。只读。  "
   case 32 str="上次备份后已更改的文件。可读写。 "
   case 1024 str="链接或快捷方式。只读。  "
   case 2048 str=" 压缩文件。只读。"
  end select
  fileattributes=str
 else
  fileattributes="文件不存在或不可预测地属性"
 end if

end property

public function showfileaccessinfo(infotype)
   '//功能：显示文件创建时信息
   '//形参：文件名,信息类别
   '//        1  -----创建时间
   '//        2  -----上次访问时间
   '//        3  -----上次修改时间
   '//        4  -----文件路径
   '//        5  -----文件名称
   '//        6  -----文件类型
   '//        7  -----文件大小
   '//        8  -----父目录
   '//        9  -----根目录
 '判断参数是否是数字
       if fileexist then
  dim f, s
  set f = o_fso.getfile(s_filename)
  select case infotype
   case 1
    s = f.datecreated        '//        1  -----创建时间
   case 2
    s = f.datelastaccessed    '//        2  -----上次访问时间
   case 3
    s = f.datelastmodified    '//        3  -----上次修改时间
   case 4
    s = f.path                '//        4 -----文件路径
   case 5
    s = f.name                '//        5 -----文件名称
   case 6
    s = f.type                '//        6 -----文件类型
   case 7
    s = f.size                '//        7 -----文件大小
   case 8
    s = f.parentfolder        '//        8  -----父目录
   case 9
    s = f.rootfolder            '//        9  -----根目录
  end select
  showfileaccessinfo=s
 else
  showfileaccessinfo="文件不存在:("
 end if

   end function

private function fileexist
 fileexist = true
 '检查文件路径

 '检查文件是否存在
 if not(o_fso.fileexists(s_filename)) then
  fileexist = false
       end if
end function

private function showerr(s_msg)
 response.write(s_msg)
 set fso=nothing
 response.end()
end function

public function createtxtfile()
'//创建空文件
 if fileexist then
  showerr "文件已经存在:("
 else
  dim f
  set f=o_fso.createtextfile(s_filename)
  f.close
 end if
end function

public function writetxtfile(textstr,writeorappendtype)
 const forreading = 1, forwriting = 2 , forappending = 8
       dim f, m
       select case writeorappendtype
       case 1:            '文件进行写操作
           set f = o_fso.opentextfile(s_filename, forwriting, true)
           f.write textstr
           f.close
           if not fileexist then
               showerr "文件写入失败"
           end if
       case 2:            '文件末尾进行写操作
           if fileexist then
               set f = o_fso.opentextfile(s_filename, forappending)
               f.write textstr
               f.close
           else
               showerr "文件追加失败"
           end if
       end select
end function

public function readtxtfile()
 const forreading = 1, forwriting = 2
       dim f, m
       if fileexist then
           set f = o_fso.opentextfile(s_filename, forreading)
           m =  f.readline
           'm =  f.readall
           'f.skipline
           readtxtfile = m
           f.close
       else
           readtxtfile = "文件读取失败-文件不存在:("
       end if
end function

public function deletefile()
       if fileexist then
  o_fso.deletefile(s_filename)
 else
  showerr "文件已经不存在:("
 end if
end function

public function copyfile()
'//功能：源文件存在时，才能对文件进行复制，目的文件无影响
'//sourcefile=s_filename
 if fileexist then
  dim myfile
  if s_filename=s_destinationfile then
   showerr "禁止一相同文件名拷贝到同一目录下:("
  end if
  set myfile = o_fso.getfile(s_filename)
  myfile.copy (s_destinationfile)
  else
  showerr "文件已经不存在"
 end if

end function

public function movefile()
 if fileexist then
  dim sourcefile
  if s_filename=s_destinationfile then
   showerr "禁止一相同文件名移动到同一目录下:("
  end if
  o_fso.movefile s_filename,s_destinationfile
 else
  showerr "文件已经不存在:("
 end if

end function

'===============================================目录操作

'设置目录名
public property let foldername(byval values)
 s_foldername=values
 'checkfolder '检查文件
end property

'设置目标目录名
public property let destinationfolder(byval values)
 s_destinationfolder=values
end property

'获得目录大小

'获得目录创建信息

'判断目录是否存在

'创建目录

'删除目录

'拷贝目录

'移动目录

'重命名目录

'===============================================遍历操作

end class

set myfile=new cls_fso
myfile.filename=server.mappath("file.txt")
'myfile.createtxtfile()
myfile.writetxtfile "test",2
myfile.destinationfile=server.mappath("file2.txt")
myfile.copyfile()
'myfile.filename=server.mappath("file2.txt")
'myfile.deletefile()
response.write(myfile.filesize)
for i =0 to 8
response.write(myfile.showfileaccessinfo(i) )
response.write("
")
next

%>

以上就是Asp 对文件操作问题总结的详细内容，更多请关注php中文网其它相关文章！

最佳 Windows 性能的顶级免费优化软件
最佳 Windows 性能的顶级免费优化软件

每个人都需要一台速度更快、更稳定的 PC。随着时间的推移，垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是，许多工具可以让 Windows 保持平稳运行。

下载
来源：php中文网
收藏 点赞
上一篇：asp.net 验证正则表达式方法总结 下一篇：ASP.NET面试题大全
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn
作者最新文章
最新问题
c语言中权是什么意思 权值在c语言算法中的特殊含义 在C语言中，"权"通常指的是赋予元素或节点的数值，用于表示其重要性、成本、距离等。1.在图论中，权值表示边的成本或距离，用于最短路径算法。2.在排序算法中，权值决定元素的排序顺序，如优先队列中的优先级。3.在数据结构中，权值用于树和图的遍历，如哈夫曼编码中的字符频率。权值在C语言算法中广泛应用，帮助解决复杂问题。
2025-06-10 10:48:01
106
c语言中&是什么意思 &符号在c语言中的地址引用 &符号在C语言中用作取地址操作符，用于获取变量的内存地址。1）指针初始化时，&获取变量地址赋值给指针。2）函数参数传递时，&传递变量地址以便修改。3）动态内存分配时，&传递地址给malloc等函数。
2025-06-09 09:30:02
534
!10在c语言中是什么意思 !运算符在c语言中的逻辑非 在C语言中，!运算符是逻辑非运算符，用于将布尔值取反。1)在条件语句中，!运算符可以简化代码，如if(!condition)。2)在循环控制中，!运算符可用于控制循环终止，如while(!done)。3)使用时需注意其只能用于布尔值，且优先级较高，避免误用。
2025-06-08 08:33:01
842
C语言中的位域是什么？怎么定义和使用？ 位域是C语言中一种特殊的结构体成员声明方式，允许按“位”分配内存，而非以字节为单位，从而更高效地利用内存空间。它适合需要节省内存或与硬件交互的场景，如寄存器标志位的嵌套。定义位域的方式与普通结构体类似，但在成员后加冒号和数字表示该字段占多少位，例如：struct{unsignedintfield1:1;unsignedintfield2:3;unsignedintfield3:4;}flags;使用位域时需注意：1.对齐问题因编译器不同而异，影响跨平台移植；2.位域字段不能取地址；3.建议使用无
2025-06-07 09:33:01
595
～a在c语言中是什么意思 按位取反～a的运算规则 在C语言中，~运算符用于按位取反操作。1）它将操作数的每一位二进制位取反，即0变为1，1变为0。2）按位取反操作的结果依赖于操作数的类型，如无符号字符类型中，5的按位取反结果为250。3）实际应用中需注意类型的影响、位宽度和掩码操作。4）按位取反操作通常高效，但需权衡性能和代码可读性。
2025-06-06 08:03:01
567
c语言中avg用法 avg函数在c语言中的使用方法 在C语言中，avg函数用于计算一组数的平均值。实现步骤如下：1.基本实现：接受整数数组和长度，返回浮点平均值。2.浮点数处理：修改函数接受浮点数数组。3.动态数组处理：使用动态内存分配处理不同大小的数组。
2025-06-05 09:57:01
693
c语言中bon是什么意思 bon在c语言中的变量命名解析 "bon"在C语言中可以用作变量名，但为了提高代码的可读性和维护性，建议选择更有描述性的名字，并避免与已有定义冲突。
2025-06-04 09:42:01
905
temp在c语言中代表什么 temp在c语言中的临时变量用途 在C语言中，temp通常指的是临时变量，主要用于交换变量值和中间计算。1.交换变量值：inta=5;intb=10;inttemp=a;a=b;b=temp。2.中间计算：floatx=2.0;floaty=3.0;floattemp=x*y;floatresult=temp+(x/y)。使用临时变量应注意作用域和命名，遵循最佳实践以提高代码效率和可读性。
2025-06-03 08:18:01
423
反斜杠n在c语言中是什么意思 \n在c语言中的换行符作用 在C语言中，\n是换行符，用于在输出时插入新行。1)\n是转义字符，通过反斜杠改变字符含义。2)使用时需注意不同操作系统的差异，如Windows使用\r\n。3)与其他转义字符组合时要注意顺序。4)调试中要确保字符串末尾有\n，处理用户输入时需注意\n的影响。5)使用puts函数可简化代码，puts会自动添加换行符。
2025-06-02 10:17:41
551
c语言中le是什么意思 le在c语言中的逻辑判断用法 在C语言中，"le"不是标准关键字或运算符，可能是指"小于或等于"，用
2025-05-31 08:24:01
359
相关专题
更多>
热门推荐
开源免费商场系统广告
热门教程
更多>
相关推荐
热门推荐
最新课程
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 意见反馈 讲师合作 广告合作 最新更新
php中文网：公益在线php培训，帮助PHP学习者快速成长！
关注服务号 技术交流群
app下载
PHP中文网订阅号
每天精选资源文章推送
PHP中文网APP
随时随地碎片化学习
PHP中文网抖音号
发现有趣的

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号

  • PHP学习

  • 技术支持

  • 返回顶部