逍遥一派 发表于 2015-2-16 00:25:13

ASP网页设计Asp中一些FSO方面的函数

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了fso|函数   Asp中一些FSO方面的函数

'//==================================文件操作================================== '取文件巨细
Function GetFileSize(FileName)
'//功效:取文件巨细
'//形参:文件名
'//前往值:胜利为文件巨细,掉败为-1
'//
Dim f
If ReportFileStatus(FileName) = 1 Then
Set f = fso.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
End Function
'文件删除
Function deleteAFile(filespec)
'//功效:文件删除
'//形参:文件名
'//前往值:胜利为1,掉败为-1
'//
If ReportFileStatus(filespec) = 1 Then
fso.deleteFile(filespec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
'显示文件列表
Function ShowFileList(folderspec)
'//功效:目次存在时显示此目次下的一切文件
'//形参:目次名
'//前往值:胜利为文件列表,掉败为-1
'//
Dim f, f1, fc, s
If ReportFolderStatus(folderspec) = 1 Then
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next
ShowFileList = s
Else
ShowFileList = -1
End if
End Function
'!!!
'文件复制
Function CopyAFile(SourceFile,DestinationFile)
'//功效:源文件存在时,才干对文件停止复制,目标文件无影响
'//形参:源文件,目标文件
'//前往值:胜利为1,掉败为-1
'//
Dim MyFile
If ReportFileStatus(SourceFile) = 1 Then
Set MyFile = fso.GetFile(SourceFile)
MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
CopyAFile = -1
End if
End Function
'文件挪动
'Response.Write MoveAFile("f:\123\4561.exe","f:\123\4562.txt")
Function MoveAFile(SourceFile,DestinationFile)
'//功效:源文件存在时目标文件不存在时才干对文件停止挪动
'//形参:源文件,目标文件
'//前往值:胜利为1,掉败为-1
'//
If ReportFileStatus(SourceFile)=1 And ReportFileStatus(DestinationFileORPath) =
-1 Then
fso.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
MoveAFile = -1
End if
End Function
'文件是不是存在?
'Response.Write ReportFileStatus("G:\soft\delphi\my_pro\代码库.exe")
Function ReportFileStatus(FileName)
'//功效:判别文件是不是存在
'//形参:文件名
'//前往值:胜利为1,掉败为-1
'//
Dim msg
msg = -1
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function

'文件创立日期
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\代码库.exe")
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\复件 代码库.exe")
Function ShowDatecreated(filespec)
'//功效:文件创立日期
'//形参:文件名
'//前往值:胜利:文件创立日期,掉败:-1
'//
Dim f
If ReportFileStatus(filespec) = 1 Then
Set f = fso.GetFile(filespec)
ShowDatecreated = f.Datecreated
Else
ShowDatecreated = -1
End if
End Function
'文件属性
'Response.Write GetAttributes("G:\soft\delphi\my_pro\复件 代码库.exe")
Function GetAttributes(FileName)
'//功效:显示文件属性
'//形参:文件名
'//前往值:胜利:文件属性,掉败:-1
'//
Dim f,Str
If ReportFileStatus(FileName) = 1 Then
Set f = fso.GetFile(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
GetAttributes = Str
Else
GetAttributes = -1
End if
End Function
'最初一次会见/最初一次修正工夫
'Response.Write ShowFileAccessInfo("G:\soft\delphi\my_pro\复件 代码库.exe")
Function ShowFileAccessInfo(FileName,InfoType)
'//功效:显示文件创立时信息
'//形参:文件名,信息种别
'// 1 -----创立工夫
'// 2 -----前次会见工夫
'// 3 -----前次修正工夫
'// 4 -----文件途径
'// 5 -----文件称号
'// 6 -----文件类型
'// 7 -----文件巨细
'// 8 -----父目次
'// 9 -----根目次
'//前往值:胜利为文件创立时信息,掉败:-1
'//
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = fso.GetFile(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 '// 8 -----
根目次
End select
ShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
End if
End Function
'写文本文件
Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
select Case WriteORAppendType
Case 1: '文件停止写操作
Set f = fso.OpenTextFile(FileName, ForWriting, True)
f.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
Case 2: '文件末尾停止写操作
If ReportFileStatus(FileName) = 1 then
Set f = fso.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
End select
End Function
'读文本文件
Function ReadTxtFile(FileName)
Const
Active Server Page技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。

小女巫 发表于 2015-2-16 01:15:06

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

兰色精灵 发表于 2015-2-26 20:28:23

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

只想知道 发表于 2015-2-28 19:22:00

跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组

深爱那片海 发表于 2015-3-10 05:01:50

封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。

灵魂腐蚀 发表于 2015-3-10 22:21:42

弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。

透明 发表于 2015-3-17 11:10:30

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

admin 发表于 2015-3-18 17:36:07

我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。

飘灵儿 发表于 2015-3-23 12:22:27

下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。

仓酷云 发表于 2015-3-25 07:01:43

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

第二个灵魂 发表于 2015-3-25 12:17:31

不能只是将它停留在纸上谈兵的程度上。

乐观 发表于 2015-3-30 18:31:42

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

愤怒的大鸟 发表于 2015-4-1 14:09:53

封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。

蒙在股里 发表于 2015-4-1 17:11:21

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。

不帅 发表于 2015-4-12 11:20:27

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

简单生活 发表于 2015-4-12 16:40:29

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

若相依 发表于 2015-4-15 18:29:27

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

老尸 发表于 2015-4-21 17:05:40

弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。

柔情似水 发表于 2015-4-25 05:50:36

代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。

冷月葬花魂 发表于 2015-4-28 21:58:18

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
页: [1] 2
查看完整版本: ASP网页设计Asp中一些FSO方面的函数