Remove remote bulk files with ASP

xiaoxiao2021-03-06  65

Remove remote bulk files with ASP

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, the naming of our common image files is often used in 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 have been programmed by other languages ​​may feel deep; now, we will see the functional implementation code: <% @Language = VBScript%> <% Option Explicit%> <% 'The following program Batch file name in the comparison folder And move all files to new folders; response.write "" & vbcrlf & "" & vbrlfresponse.write " Batch file is rename </ title>" & vbcrfresponse.write "< / head> "& VbCrLf &" <body> "& VbCrLf 'variable Description Dim gbolGoProcedureDim strFromDir' source folder Dim strTargetDir 'target folder Dim objFSDim objRootFolderDim objFileDim strFileNameLenDim strPrevFileNameDim strFileExt' number of file extensions Dim strFileNameCountDim strNewFileNameDim strRealCount 'file handle Gbolgoprocedure = false 'If you click the start button, do the following processing if (Request.form ") =" Start "TEN' Specified Source Folder, Target Folder StromDir =" D: Test / "STRTARGETDIR =" : / Test1 / "'Set the number of processed files to 0 strreatalcount = 0 set objfs = server.createObject (" scripting.filesystemObject ") S ET OBJROOTFOLDER = Objfs.getFolder (STRTARGETDIR) 'The specific setting of the file name, here is set to 100001, indicating that the file name will start from 100001', gradually increment, can be set as needed; strfileNameCount = 100001for Each Objfile in objroTfolder.Files' for specific Document, no processing,</p> <p>You may be provided according to need; If objFile.Name = "Thumbs.db" then strFileNameCount = StrFileNameCount - 1 strFileNameCount = strFileNameCount 1 NextSet objRootFolder = objFS.GetFolder (strFromDir) For each objFile in objRootFolder.Files strFileNameLen = Len (objFile.Name) If Mid (objFile.Name, (strFileNameLen - 3), 1) "." = then strFileExt = right (objFile.Name, 4) Else strFileExt = right (objFile.Name, 5) End If strPrevFileName = objFile.Name strNewFileName = strFileNameCount & strFileExt objFile.Move strTargetDir & strNewFileName Response.Write "source file:" & strFromDir & strPrevFileName & "> mobile and renamed:" & strTargetDir & strNewFileName & "<br>" & vbCrLF strFileNameCount = strFileNameCount 1 strRealCount = strRealCount 1Next Response.Write <P> <b> A total of: "& (strRealcount) &" File </ b> "& vbcrlf set objrootfolder = Nothing set objfs = Nothing gbolgoprocedure = truend ifif gbolgoprocedure Then Response.write (" <p> <b > Batch file batch movement and rename </ b> ") & vbcrfelse response.write (" <center> <fab <<form method = "" act "" action = "" FileNameConve RTER.ASP "" ID = form1 name = "" ">" "" value = "" id = "" "" "" "" "" "" "" "" "" "" "" "" "Gobutton"> ") & vbcrlf response.write (" </ form> ") &</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-89891.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="89891" 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.038</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 = '9KFxinBpyiCVXjXAF42jpAjhk6_2BdM5o2YfeqQprX4iXWXo_2F6Q8WHmTIsCCJSAfx31vsMOsx3X_2Fb31WghVwxn9Q_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>