奇偶文件重新命名

来源：互联网发布：mac菜单栏设置国旗编辑：程序博客网时间：2024/05/20 18:45

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

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" onchange="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="重置" onclick="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,ifiledir=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 nextend if%>

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