仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 384|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之用asp完成的代码批量修正程序,fso相干...

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:26:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
源代码保护方面其实现在考虑得没那么多了..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:00 | 只看该作者
掌握asp的特性而且一定要知道为什么。
变相怪杰 该用户已被删除
板凳
发表于 2015-1-25 17:19:17 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
第二个灵魂 该用户已被删除
地板
发表于 2015-2-3 12:06:04 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
若天明 该用户已被删除
5#
发表于 2015-2-8 20:53:23 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
山那边是海 该用户已被删除
6#
发表于 2015-2-26 10:34:04 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
柔情似水 该用户已被删除
7#
发表于 2015-3-8 13:34:27 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
谁可相欹 该用户已被删除
8#
发表于 2015-3-16 02:03:57 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
莫相离 该用户已被删除
9#
发表于 2015-3-22 18:48:11 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:49

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表