Remove remote bulk files with ASP

xiaoxiao2021-03-05  25

For website designers, it is often handled by a large number of files, especially pictures and some text files, especially pictures and some text files. Since the relationship between the website, the name of the same type of file is often used directly as a file name with a certain regular incremental number, for example, we often use 1001.jpg, 1002. JPG this way, this benefit is that the file name will not be repeated, easy to manage. Here, we specialize in a simple and easy way to realize all the files under any folder, of course, the file name after the rename will be based on the needs of the website designer, increment according to the number.

We use ASP to implement the above features, you need to note that because the design to file operation, use the FileSystemObject object, so the implementation of this feature is to be done in a website with file operation. General virtual attention, considering security requirements, may not give file existence, this is what we first need to pay; in addition, in the following program, we will operate all files in the specified folder strFromDir, as long as this file is The file in the clip, whether the file type is file type, of course, the file type does not change, the file after the rename, will not be saved in the original folder, but moves to new folders Strtargetdir, pay attention, we are moving here, not copy, so after operation, all files in the original folder will not exist; the program is good to use the various properties and features provided by the FileSystemObject object, simple when implementing Ming, friends who use other language programming may feel deep; now, let's see the functional implementation code:

<% @Language = VBScript%>

<% OPTION Explicit%>

<%

'The following programs batch the file name in the rename folder and move all files to a new folder;

Response.write "" & vbcrlf & "" & vbcrlf

Response.write " Batch file name" </ TITLE> "& VBCRLF</p> <p>Response.write "</ head>" & vbcrlf & "<body>" & vbcrlf</p> <p>'Variable description</p> <p>Dim gbolgoprocedure</p> <p>DIM STROMDIR 'Source Folder</p> <p>DIM STRTARGETDIR 'target folder</p> <p>DIM OBJFS</p> <p>Dim objrootfolder</p> <p>DIM Objfile</p> <p>DIM STRFILENAMELEN</p> <p>DIM STRPREVFILENAME</p> <p>DIM STRFILEXT 'File extension</p> <p>DIM STRFILENAMECOUNT</p> <p>DIM STRNEWFILENAME</p> <p>Dim strreatalcount '</p> <p>gbolgoprocedure = false</p> <p>'If you click the start button, do the following</p> <p>IF (Request.form ("GOBUTTON") = "start" THEN 'specified source folder, target folder</p> <p>strfromdir = "D: Test /"</p> <p>Strtargetdir = "D: / TEST1 /"</p> <p>'Set the number of processes to 0</p> <p>StrRealcount = 0</p> <p>Set objfs = server.createObject ("scripting.filesystemObject")</p> <p>Set objrootfolder = objfs.getfolder (Strtargetdir)</p> <p>'The specific setting of the file name, here is set to 100001, indicating that the file name will be from 100001</p> <p>'Start, gradually increment, can be set as needed;</p> <p>Strfilenamecount = 100001</p> <p>For Each Objfile in Objrootfolder.Files</p> <p>'For a specific file, it is not processed, and it can be set as needed;</p> <p>IF objfile.name = "thumbs.db" Then StrfileNameCount = STRFILENAMECUNT - 1</p> <p>StrfilenameCount = STRFILENAMECUNT 1</p> <p>NEXT</p> <p>Set objrootfolder = objfs.getfolder (strfromdir)</p> <p>For Each Objfile in Objrootfolder.Files</p> <p>Strfilenamelen = LEN (Objfile.name)</p> <p>IF MID (Objfile.Name, (Strfilenamelen - 3), 1) = "." THEN</p> <p>Strfileext = Right (Objfile.name, 4)</p> <p>Else</p> <p>StrfileExt = Right (Objfile.name, 5)</p> <p>END IF</p> <p>StrPrevFileName = Objfile.name</p> <p>StrnewFileName = StrfileNameCount & strfileext</p> <p>Objfile.Move Strtargetdir & strnewFileName</p> <p>Response.write "Source File:" & strfromdir & strprevfilename "and renamed:" & Strtargetdir & StrnewFileName & "<br>" & vbrlf</p> <p>StrfilenameCount = STRFILENAMECUNT 1</p> <p>StrRealcount = STRREALCOUNT 1</p> <p>NEXT</p> <p>Response.write "<p> <b> A total of:" & Strrealcount) & "File </ b>" & vbcrlf</p> <p>Set objRootfolder = Nothing</p> <p>Set objfs = Nothing</p> <p>gbolgoprocedure = true</p> <p>END IF</p> <p>IF gbolgoprocedure dam</p> <p>Response.write ("<p> <b> bulk file batch movement and rename </ b>") & vbcrfelse</p> <p>Response.write ("<center> <f>" "action =" "action =" "filenameconverter.asp" "iD = form1 name =" ""> ") & vbcrlf</p> <p>Response.write ("<input type =" "" value = "" start "" ID = "" gobutton "" name = "" "gobutton"> ") & vbcrlf</p> <p>Response.write ("</ form>") & vbcrlf</p> <p>Response.write ("<p> <b> Click the button to batch mobile and rename </ b> <center>") & vbcrlf</p> <p>END IF</p> <p>Response.write "</ body>" & vbcrlf & "</ html>"</p> <p>%></p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-32173.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="32173" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.037</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'R8Cd754fHI7pJn5vCsvcJlygXEt5vJfzkWZK0wS_2BAiOghH4aL1VtuBXjjFPS1IQ2ET0JULIuuPdCz8aarG1e2g_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>