仓酷云

标题: ASP教程之用asp完成的代码批量修正程序，fso相干... [打印本页]

作者: 乐观 时间: 2015-1-16 22:26
标题: ASP教程之用asp完成的代码批量修正程序，fso相干...
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码用asp完成的代码批量修正程序，fso相干是因事情必要做的一个批量修正代码的小器材，拿出来与人人分享
今朝能够处置的文件范例：.asp.inc.htm.html详细范例可自行修正增加
程序完成的功效：将源目次下的文件批量修正后存到目标目次下
用它稍做修正能够完成良多器材噢！
其余不说了，代码内里都写的很分明了
<%
//+---------------------------------------------------------------------------+
//|程序称号：参考之资代码批量修正器v1.01|
//|参考之资版权一切，侵权必究！转载请说明版权：）|
//|-------------------------------------------------------------------------|
//|体系:win2000;编纂器:EditPlus;缩进工具:Tab;缩进长度:8;字体:宋体(10pt);|
//|-------------------------------------------------------------------------|
//|创立者:WYC;创立工夫:2004-03-08;|
//|编写者:WYC;编写工夫:2004-03-08;|
//+---------------------------------------------------------------------------+
Server.ScriptTimeOut=500剧本超不时间
//+---------------------------------------------------------------------------+
//|批量修正函数|
//|-------------------------------------------------------------------------|
//|属性：path_from源文件目次path_to方针文件事情目次|
//|-------------------------------------------------------------------------|
//|前往值：无|
//|-------------------------------------------------------------------------|
//|程序流程：......|
//|-------------------------------------------------------------------------|
//|编写者:WYC;编写工夫:2004-03-08;|
//+---------------------------------------------------------------------------+
Submidfile(path_from,path_to)
list_from=path_from贮存以后源事情目次
list_to=path_to贮存以后方针事情目次
Setfso=CreateObject("Scripting.FileSystemObject")
SetFold=fso.GetFolder(list_from)猎取Folder工具
Setfc=Fold.Files猎取文件纪录集
Setmm=Fold.SubFolders猎取目次纪录集
ForEachf2inmm
setobjfile=server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to&""&f2.name)创立目次
midfilepath_from&""&f2.name,path_to&""&f2.name递回挪用
response.writepath_to&""&f2.name&"终了！<br>"
Next
ForEachf1infc
file_from=list_from&""&f1.name天生文件地点(源)
file_to=list_to&""&f1.name天生文件地点(到)
fileExt=lcase(right(f1.name,4))猎取文件范例
IffileExt=".asp"orfileExt=".inc"orfileExt=".htm"orfileExt="html"Then详细范例可自行修正增加
setobjfile=server.createobject("scripting.filesystemobject")界说一个服务器组件（读取源文件）
setout=objfile.opentextfile(file_from,1,false,false)
content=out.readall读取数据
out.close
//+---------------------------------------------------+
//|文件内容处置模块（次要，其他都是文件操纵）|
SetregEx=NewRegExp
regEx.Pattern="(>s*
)"
regEx.Global=true设置全体婚配形式
content=regEx.Replace(content,">")交换失落回车符
content=Replace(content,"","")作tab交换
//+---------------------------------------------------+
setobjfile=server.createobject("scripting.filesystemobject")界说一个服务器组件（写进方针文件）
setoutt=objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content)写进数据
outt.close
else不然间接复制文件
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CopyFilefile_from,file_to
EndIf
Next
EndSub
midfileServer.mappath("temp/aaa"),Server.mappath("temp/bbb")挪用示例源目次temp/aaa处置后存到temp/bbb
源目次目标目次（必需是已存在的目次）
%>
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；

作者: 活着的死人 时间: 2015-1-19 12:14
掌握asp的特性而且一定要知道为什么。

作者: 变相怪杰 时间: 2015-1-25 17:19
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

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

作者: 若天明 时间: 2015-2-8 20:53
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 山那边是海 时间: 2015-2-26 10:34
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 柔情似水 时间: 2015-3-8 13:34
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 谁可相欹 时间: 2015-3-16 02:03
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 莫相离 时间: 2015-3-22 18:48
不能只是将它停留在纸上谈兵的程度上。

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