ASP网页编程之用ASP完成远程批量文件更名
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；用ASP完成远程批量文件更名--------------------------------------------------------------------------------
关于网站计划者而言，经常处置多量量的文件是不免的，出格是图片和一些文本文本文件，更是常常处置。而因为网站大批文件的干系，关于同范例文件的定名，常常就间接接纳带有必定纪律的递增数字来作为文件名，好比，我们罕见的图片文件的定名，就经常接纳1001.jpg、1002.jpg这类体例，如许的优点是文件名不会反复，简单办理。这里，我们专门先容一种复杂易行的办法来完成对恣意文件夹下的一切文件举行批量更名，固然，更名今后的文件名，是依据网站计划者的必要，依照数字举行递增的。
我们利用ASP来完成以上功效，必要注重的是，由于计划到文件操纵，利用FileSystemObject工具，以是，该功效的完成要在具有文件操纵权限的网站举行。一样平常的假造注重，思索到平安请求，大概不会赐与文件存在权限，这是我们起首必要注重的；别的，鄙人面的程序中，我们将操纵指定文件夹strFromDir中的一切文件，只需是这个文件夹中的文件，不管文件范例怎样，程序城市对其举行文件更名操纵，固然，文件范例是不会举行改动的，更名今后的文件，将不在保留在原文件夹，而是挪动到新的文件夹strTargetDir，注重，我们这里是挪动，不是拷贝，以是，举行操纵今后，原文件夹中一切的文件都将不存在；程序很好的使用了FileSystemObject工具供应的各类属性和特性，完成的时分复杂了然，利用其他言语编程的伴侣大概会感觉深入；如今，我们就来看功效完成代码：
＜%@LANGUAGE=VBSCRIPT%＞
＜%OptionExplicit%＞
＜%
以下程序批量更名文件夹中的文件名，并将一切文件挪动到新的文件夹；
Response.Write"＜html＞"&VbCrLf&"＜head＞"&VbCrLf
Response.Write"＜title＞批量文件更名＜/title＞"&VbCrLf
Response.Write"＜/head＞"&VbCrLf&"＜body＞"&VbCrLf
变量申明
DimgbolGoProcedure
DimstrFromDir源文件夹
DimstrTargetDir方针文件夹
DimobjFS
DimobjRootFolder
DimobjFile
DimstrFileNameLen
DimstrPrevFileName
DimstrFileExt文件扩大名
DimstrFileNameCount
DimstrNewFileName
DimstrRealCount处置的文件数目
gbolGoProcedure=False
假如点击了入手下手按钮，举行以下处置
If(Request.Form("GoButton"))="开始"then
指定源文件夹、方针文件夹
strFromDir="D:test"
strTargetDir="D: est1"
将处置文件数目设置为0
strRealCount=0
SetobjFS=Server.CreateObject("Scripting.FileSystemObject")
SetobjRootFolder=objFS.GetFolder(strTargetDir)
文件名的详细设置，这里设置为100001，标明文件名将从100001
入手下手，慢慢递增，能够依据必要设置；
strFileNameCount=100001
ForeachobjFileinobjRootFolder.Files
关于特定的文件，不举行处置，能够依据必要设置；
IfobjFile.Name="Thumbs.db"thenstrFileNameCount=StrFileNameCount-1
strFileNameCount=strFileNameCount+1
Next
SetobjRootFolder=objFS.GetFolder(strFromDir)
ForeachobjFileinobjRootFolder.Files
strFileNameLen=Len(objFile.Name)
IfMid(objFile.Name,(strFileNameLen-3),1)="."then
strFileExt=right(objFile.Name,4)
Else
strFileExt=right(objFile.Name,5)
EndIf
strPrevFileName=objFile.Name
strNewFileName=strFileNameCount&strFileExt
objFile.MovestrTargetDir&strNewFileName
Response.Write"源文件:"&strFromDir&strPrevFileName&"＞挪动并更名为:"&strTargetDir&strNewFileName&"＜br＞"&vbCrLF
strFileNameCount=strFileNameCount+1
strRealCount=strRealCount+1
Next
Response.Write"＜p＞＜b＞一共处置："&(strRealCount)&"个文件＜/B＞"&vbCrLf
SetobjRootFolder=Nothing
SetobjFS=Nothing
gbolGoProcedure=True
EndIf
IfgbolGoProcedureThen
Response.Write("＜p＞＜b＞批量文件批量挪动和更名＜/b＞")&vbCrLf
Else
Response.Write("＜center＞＜br＞＜formmethod=""post""action=""FileNameConverter.asp"" ID=form1name=""form1""＞")&vbCrLf
Response.Write("＜inputtype=""SUBMIT""value=""开始""ID=""GoButton"" name=""GoButton""＞")&vbCrLf
Response.Write("＜/form＞")&vbCrLf
Resp</p>下一页
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。
页:
[1]