ASP网站制作之ASP文件删除的类
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。这是我在进修过程当中写的一个类。<SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
文件删除类
版本：V1.0
Vince
email:vince6799@hotmail.com
工夫：2005-6-19
用法：实例.Del_File(文件路径)
Setdelfile=NEWDelFile_class
文件路径:文件的物理路径
前往值：
-1:文件删除乐成
1:FSO组件不存在
2:指定文件不存在
3:指定文件没法删除
desi:形貌信息
classDelFile_class
DimVersion,verr,desi
PrivateSubClass_Initialize
Version="文件删除类V1.0"
verr="-1"
desi=""
EndSub
PrivateSubClass_Terminate
verr="-1"
EndSub
PrivatefunctiongetFileName(sFilePath)
getFileName=right(sFilePath,instrRev(sFilePath,"")-1)
endfunction
publicfunctionDel_File(sFilePath)
OnErrorResumeNext
dimoFSO
setchk=newCheck_Obj_class
ifchk.IsObjInstalled("Scripting.FileSystemObject")=truethen
SetoFSO=Server.CreateObject("Scripting.FileSystemObject")
IfoFSO.FileExists(sFilePath)Then
oFSO.DeleteFilesFilePath,true
if0=errthen
verr="-1"文件删除乐成
desi=getFileName(sFilePath)&"文件删除乐成"
else
verr="3"指定文件没法删除
desi=getFileName(sFilePath)&"文件没法删除"
endif
else
verr="2"指定文件不存在
desi=getFileName(sFilePath)&"文件不存在"
EndIf
setoFSO=nothing
else
verr="1"FSO组件不存在
desi="FSO组件不存在"
endif
Del_File=verr
endfunction
endclass
检测服务器是不是撑持某一工具类
版本：V1.0
Vince
email:vince6799@hotmail.com
工夫：2005-6-19
用法：实例.IsObjInstalled(工具名)
Setchk=NEWCheck_Obj_class
工具名:检测的工具称号
前往值：
true:撑持
false:不撑持
classCheck_Obj_class
FunctionIsObjInstalled(strClassString)
OnErrorResumeNext
IsObjInstalled=False
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(strClassString)
If0=ErrThenIsObjInstalled=True
SetxTestObj=Nothing
Err=0
EndFunction
endclass
</SCRIPT>
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)
页:
[1]