奇偶文件重新命名

原創

2020-07-04 21:30

用在，如數碼相機拍書本時，奇數頁和偶數頁分開拍（儘量避免頁面拱起，保持平平整），但到最後，又要重新命名合成一本完整的書。代碼如下

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 %>

結束…………………………………………………………………………………………………………

發表評論

所有評論

還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.

奇偶文件重新命名

.NET有哪些好用的定時任務調度框架

Python 將PDF轉爲PDF/A、PDF/X，以及PDF/A轉回PDF

elk3

Kafka存儲機制

aws語音呼叫調用，告警電話

深度學習框架火焰圖pprof和CUDA Nsys配置指南

爬蟲兩種繞過5s盾的方法

【轉】[C#] WebAPI 防止併發調用二（冥等性）

【轉】[SQL Server]關掉 SSMS 的 IntelliSense

號稱能打敗MLP的KAN到底行不行？數學核心原理全面解析

jQuery插件開發模式（一)

EXT JS點滴（1）引入有用的EXT JS內容文件

深表歉意

奇偶文件重新命名

PHP中$GLOBALS['HTTP_RAW_POST_DATA'] 和 $_POST

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結