仓酷云

标题: ASP编程：经常使用的fso操纵通用函数 [打印本页]

作者: 若天明 时间: 2015-1-16 23:50
标题: ASP编程：经常使用的fso操纵通用函数
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。fso|函数以下是几则在ASP中常常使用到FSO操纵函数，有用精典，保举保藏！
<%
功效:判别文件名是不是正当
isFileName[filename]
文件名不克不及包括以下任何字符之一
/:*?"|
FunctionisFileName(sFileName)
DimsErrorStr,i
isFileName=TRUE
sErrorStr=Array("","/",":","*","?","""","<",">","|")
IfLen(sFileName&"")=0ThenisFileName=FALSE:ExitFunction
Fori=0To8
IfInStr(sFileName,sErrorStr(i))>0Then
isFileName=FALSE
EndIf
Next
EndFunction
%>
<%
功效:删除一个目次。除目次自己外，还将删除指定目次下的一切子目次和文件。用于删除目次树。
RD[Drive:]Path
撑持删除多级目次，撑持绝对路径和相对路径。
撑持用“...”指定父目次的父目次。
必要PATH函数鄙人面
FunctionRD(ByValsPath)
OnErrorResumeNext
DimoFSO
sPath=Path(sPath)//此处必要PATH函数
SetoFSO=Server.CreateObject("Scripting.FileSystemObject")
IfoFSO.FolderExists(sPath)Then
oFSO.DeleteFoldersPath,True
RD=True
EndIf
SetoFSO=Nothing
IfErr.Number>0Then
Err.Clear()
RD=False
Else
RD=True
EndIf
EndFunction
%>
<%
功效:创立目次。
MD[Drive:]Path
撑持创立多级目次，撑持绝对路径和相对路径。
撑持用“...”指定父目次的父目次。

必要PATH函数鄙人面
FunctionMD(sPath)
OnErrorResumeNext
DimaPath,iPath,i,sTmpPath
DimoFSO
sPath=Path(sPath)//此处必要PATH函数
SetoFSO=Server.CreateObject("Scripting.FileSystemObject")
IfoFSO.FolderExists(sPath)ThenMD=True:ExitFunction
aPath=Split(sPath,"")
iPath=UBound(aPath)
sTmpPath=""
Fori=0ToiPath
sTmpPath=sTmpPath&aPath(i)&""
IfNotoFSO.FolderExists(sTmpPath)Then
oFSO.CreateFolder(sTmpPath)
EndIf
Next
SetoFSO=Nothing
IfErr.Number>0Then
Err.Clear()
MD=False
Else
MD=True
EndIf
EndFunction
%>
<%
功效:盘算目次相对路径。
PATH[Drive:]Path
撑持多级目次，撑持绝对路径和相对路径。
撑持用“...”指定父目次的父目次。

FunctionPath(ByValsPath)
OnErrorResumeNext
IfLen(sPath&"")=0ThensPath="./"
IfRight(sPath,1)=":"ThensPath=sPath&""
sPath=Replace(sPath,"/","")
sPath=ReplaceAll(sPath,"","",False)
sPath=ReplaceAll(sPath,"...","....",False)
If(InStr(sPath,":")>0)Then
sPath=sPath
Else
sPath=Server.Mappath(sPath)
EndIf
Path=sPath
EndFunction
%>

<%
功效:判别文件是不是已存在。
IsFileExist(文件名)

PublicFunctionIsFileExist(ByValsFileName)
OnErrorResumeNext
DimoFSO
sFileName=PATH(sFileName)
SetoFSO=CreateObject("Scripting.FileSystemObject")
IsFileExist=oFSO.FileExists(sFileName)
SetoFSO=Nothing
EndFunction
%>
<%
功效:判别文件夹是不是已存在。
IsFolderExist(文件名)

PublicFunctionIsFolderExist(ByValsFolderName)
OnErrorResumeNext
DimoFSO
sFolderName=PATH(sFolderName)
SetoFSO=CreateObject("Scripting.FileSystemObject")
IsFolderExist=oFSO.FolderExists(sFolderName)
SetoFSO=Nothing
EndFunction
%>
<%
功效:创立十进制文本文件。
CreateTextFile(文件内容,文件名)
文件名撑持绝对路径和相对路径。
撑持用“...”指定父目次的父目次。

FunctionCreateTextFile(ByValsText,ByValsFileName)
OnErrorResumeNext
sFileName=Path(sFileName)
SetoFSO=CreateObject("Scripting.FileSystemObject")
SetoWrite=oFSO.OpenTextFile(sFileName,2,True)
oWrite.WritesText
oWrite.Close
SetoFSO=Nothing
SetoWrite=Nothing
IfErr.Number>0Then
Err.Clear()
CreateTextFile=False
Else
CreateTextFile=True
EndIf
EndFunction
%>结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。

作者: 深爱那片海 时间: 2015-1-20 12:23
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 山那边是海 时间: 2015-1-28 05:53
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 再见西城 时间: 2015-2-5 12:06
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 变相怪杰 时间: 2015-2-11 16:54
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 小魔女 时间: 2015-3-2 15:56
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 不帅 时间: 2015-3-11 04:34
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 海妖 时间: 2015-3-17 20:30
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 老尸 时间: 2015-3-25 00:23
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

欢迎光临仓酷云 (http://ckuyun.com/)