奇偶文件重新命名

原創

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

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

發表評論

所有評論

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

奇偶文件重新命名

PDManer [元数建模]-v4.9.0 发布：一款简单好用的数据库建模平台

使用neovim打造go ide(支持代码跳转, 代码补全, 实时语法检查)

sql求连续值问题

cs01 CSS Syntax

挑战程序设计竞赛 2.3章习题 poj 3046 Ant Counting

[MASM拾遗]Offset伪指令

h30 HTML Layout Elements

了解显卡

一款基于C#开发的通讯调试工具（支持Modbus RTU、MQTT调试）

Linux/Golang/glibC系统调用

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以太網驅動總結