马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现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还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |