|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。程序
用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
源目次目标目次(必需是已存在的目次)
%>
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了, |
|