奇偶文件重新命名

最新推荐文章于 2024-10-14 08:50:37 发布

letianok

最新推荐文章于 2024-10-14 08:50:37 发布

阅读量2k

点赞数

分类专栏： ASP 文章标签： input xhtml javascript html button border

本文链接：https://blog.csdn.net/letianok/article/details/3931039

版权

ASP 专栏收录该内容

0 篇文章 0 订阅

订阅专栏

用在，如数码相机拍书本时，奇数页和偶数页分开拍（尽量避免页面拱起，保持平平整），但到最后，又要重新命名合成一本完整的书。代码如下

index.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>奇偶文件重新命名</title> <mce:script type="text/javascript"></mce:script> </head> <body> <form action="do.asp" method="get" enctype="multipart/form-data" name="form1" id="form1"> <table width="617" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="38" colspan="2"><div align="center">文件重新命名</div></td> </tr> <tr> <td width="181" height="19"> </td> <td width="436"><input name="foldername" type="hidden" id="foldername" /></td> </tr> <tr> <td height="44"><div align="right">原文件目录：</div></td> <td><label> <input name="filepath" type="file" id="filepath" size="40" οnchange="selectFolder();" /> <input style="display:none" mce_style="display:none" name="filedir" type="text" id="filedir" size="40" /> </label></td> </tr> <tr> <td height="44"> </td> <td><label> <input type="radio" name="nametype" value="1" /> 奇数　 <input type="radio" name="nametype" value="2" /> 偶数 </label></td> </tr> <tr> <td height="44"> </td> <td><label> <input type="submit" name="Submit" value="提交" />　　 <input type="button" name="Submit2" value="重置" οnclick="javascript:window.location='index.asp'"/> </label></td> </tr> </table> </form> </body> </html>

do.asp

<% response.Charset="utf-8" dim filedir,foldername,obj,files,objfolder,nametype,i filedir=trim(request("filedir")) foldername=trim(request("foldername")) nametype=trim(request("nametype")) if len(filedir)>0 then set obj=Server.CreateObject("Scripting.FileSystemObject") if not obj.FolderExists(server.MapPath(foldername)) then obj.createfolder(server.MapPath(foldername)) response.Write(foldername&"文件夹新建成功！<br/>") end if set objfolder=obj.getfolder(filedir) set files=objfolder.files if nametype=1 then i=1 else i=2 end if for each f in files obj.copyfile filedir&f.name,server.MapPath(foldername&"/letianbook"&i&".jpg") response.Write(i&" : "&f.name&"文件重命名成功！<br/>") i=i+2 next end if %>

结束…………………………………………………………………………………………………………