仓酷云

标题: ASP教程之一组FSO相干FUNCTION，经常使用代码(也常有... [打印本页]

作者: 柔情似水 时间: 2015-1-16 23:33
标题: ASP教程之一组FSO相干FUNCTION，经常使用代码(也常有...
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了fso|反复删除文件
<%
|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ASPWizardCopyright?1999-2001>>>>>>>
|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>[GenericFileDeletion]>>>>>>>>>>>>>>>>
|Author:JoaquimJos?PratesFerreira
|DateCreated:13/01/2001
|LastUpdate:28/06/2001
|Dependencies:
|Description:Thisfunctionwilldeleteunwantedfilesfromtheserver...
|V1.1:Addedanewparameter[intShowLabel]0-Donotshowlabel/1-Showlabel
|V1.0:Thisfunctiononlyacceptsoneparameteratthemoment,thepathwiththefile,
|belowthereareexamplesofhowtocallthefunction.
|e.g.
|CallGeneric_FileDeletion(FilepathREQUIRED)
|CallGeneric_FileDeletion("myfile.txt")
|CallGeneric_FileDeletion("win95/myfile.txt")
|
|PleaseremembertospecifyaPath,otherwiseanErrorwilloccur...

FunctionGeneric_FileDeletion(byvalstrpath,byvalintShowLabel)

ERRORCHECKING!!!!...
IFstrpath=""orisnull(strpath)then
Response.Write("Sorrybutapathisrequiredwhencallingthisfunction")
Response.End
EndIF

ERRORCHECKING!!!!...
IFintShowLabel=""orisnull(intShowLabel)then
Response.Write("SorrybuttheparamterintShowLabelismissing.PARAMETERISREQUIRED")
Response.End
EndIF

Filename=Server.MapPath(strpath)

Setfs=CreateObject("Scripting.FileSystemObject")

Iffs.FileExists(filename)Then
fs.DeleteFile(filename)

ifintShowLabel=1then
response.write"File"&"("&strpath&")"&"hasBeenDeletedwithSuccess. "
endif
Else
response.write"Nopathwasfound,orfiledoesnotexisttodelete... "
EndIf

EndFunction
%>

copy文件

<%
|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ASPWizard.co.ukCopyright?1999-2001>>>>>>>>>>>>>>>>>
|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>[Generic_FileCopy.asp]>>>>>>>>>>>>>>>>
|Author:JoaquimJos?PratesFerreira
|LastAuthor:JoaquimJos?PratesFerreira
|DateCreated:26/04/2001
|LastUpdate:26/04/2001
|Dependencies:
|Description:ThisfunctionwillcopyFilesFrom[A]to[B]
|V1.0:ThisfunctionwillcopyafilefromoneFoldertoanother.
|
|Parameters:
|strFileSource-WespecifythepathtothefiletoCopy
|strFileDestination-Wesepcifythepathtothenewfile
|strOverWrite-Wesayifwewanttooverwrightafile
|
|E.G:
|CallGeneric_FileCopy("D:XkudosNewsX_1997.mdb","D:XkudosXkudosXkudosDBNewsX_1997.mdb",True)
FunctionGeneric_FileCopy(ByValstrFileSource,ByValstrFileDestination,ByValstrOverWrite)
--------------------------------[ERRORCHECKING]--------------------------------
ERRORCHECKING!!!!...
IFstrFileSource=""orisnull(strFileSource)Then
Response.Write("SorrybutaFileSourcepathisrequiredwhencallingthisfunction")
Response.End
EndIF
ERRORCHECKING!!!!...
IFstrFileDestination=""orisnull(strFileDestination)Then
Response.Write("SorrybutaFileDestinationpathisrequiredwhencallingthisfunction")
Response.End
EndIF
ERRORCHECKING!!!!...[True-False]
IFstrOverWrite=""orisnull(strOverWrite)Then
Response.Write("SorrybutaFileDestinationpathisrequiredwhencallingthisfunction")
Response.End
EndIF
--------------------------------[/ERRORCHECKING]--缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

作者: 愤怒的大鸟 时间: 2015-1-20 09:52
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 再见西城 时间: 2015-1-29 06:41
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 灵魂腐蚀 时间: 2015-1-31 22:32
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 若天明 时间: 2015-2-7 00:53
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

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

作者: 简单生活 时间: 2015-3-6 13:08
尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

作者: 蒙在股里 时间: 2015-3-13 01:08
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 若相依 时间: 2015-3-13 01:08
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

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