山那边是海 发表于 2015-1-16 23:44:58

ASP编程:文件、目次,文本文件等多种操纵类

ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;

<%
DimMyFileFolder
SetMyFileFolder=NewFileFolderCls
Response.WriteMyFileFolder.MoveAFile("f:1234561.exe","f:1234562.txt")
Response.WriteMyFileFolder.MoveAFolder("f:456","f:ditg456")
Response.WriteMyFileFolder.ShowFileSystemType("i:")
Response.WriteMyFileFolder.CopyAFile("f:1234562.txt","f:1234563.txt")
!!!!
Response.WriteMyFileFolder.CopyAFolder("f:123","f:789")
Response.WriteMyFileFolder.ShowFolderList("f:ditg")
Response.WriteMyFileFolder.ShowFileList("f:123123")
Response.WriteMyFileFolder.DeleteAFile("f:1234562.txt")
Response.WriteMyFileFolder.DeleteAFolder("f:456")
Response.WriteMyFileFolder.CreateFolderDemo("f:147")
Response.WriteMyFileFolder.GetFileSize("f:1234563.txt")
Response.WriteMyFileFolder.GetFolderSize("f:123123.txt")
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",1)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",2)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",3)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",4)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",5)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",6)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",7)&"<br>"
Response.WriteMyFileFolder.ShowFileAccessInfo("f:123123.txt",8)&"<br>"

Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",1)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",2)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",3)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",4)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",5)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",6)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",7)&"<br>"
Response.WriteMyFileFolder.ShowFolderAccessInfo("f:123",8)&"<br>"

Response.WriteMyFileFolder.WriteTxtFile("f:123cexo.txt","",1)&"<br>"
Response.WriteMyFileFolder.WriteTxtFile("f:123cexo.txt","cexowxfdw",1)&"<br>"
Response.WriteMyFileFolder.WriteTxtFile("f:123cexo.txt",Chr(13)&Chr(10)

&"cexowxfdw",2)&"<br>"
Response.WriteMyFileFolder.ReadTxtFile("f:123cexo.txt")&"<br>"
Response.WriteMyFileFolder.DisplayLevelDepth("F:ditgditgumenimages")&"<br>"

ClassFileFolderCls
Publicfso

PrivateSubClass_Initialize()
Setfso=CreateObject("Scripting.FileSystemObject")
EndSub

PrivateSubClass_Terminate()
Setfso=Nothing
EndSub

//==================================文件操纵==================================

取文件巨细
FunctionGetFileSize(FileName)
//功效:取文件巨细
//形参:文件名
//前往值:乐成为文件巨细,失利为-1
//
Dimf
IfReportFileStatus(FileName)=1Then
Setf=fso.Getfile(FileName)
GetFileSize=f.Size
Else
GetFileSize=-1
Endif
EndFunction

文件删除
FunctionDeleteAFile(filespec)
//功效:文件删除
//形参:文件名
//前往值:乐成为1,失利为-1
//
IfReportFileStatus(filespec)=1Then
fso.DeleteFile(filespec)
DeleteAFile=1
Else
DeleteAFile=-1
&nbs</p>ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!

小妖女 发表于 2015-1-20 11:39:25

代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。

愤怒的大鸟 发表于 2015-1-29 06:59:10

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

山那边是海 发表于 2015-1-30 16:50:17

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

海妖 发表于 2015-2-6 14:11:27

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

爱飞 发表于 2015-2-16 10:35:35

哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?

若天明 发表于 2015-3-5 03:55:03

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。

若相依 发表于 2015-3-11 23:17:20

完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。

灵魂腐蚀 发表于 2015-3-19 16:01:46

掌握asp的特性而且一定要知道为什么。

金色的骷髅 发表于 2015-3-28 18:51:35

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
页: [1]
查看完整版本: ASP编程:文件、目次,文本文件等多种操纵类