Hard disk file search code (ASP class)

zhaozj2021-02-16 51

<% @Language = "vbscript" CODEPAGE = "936"%> <% DIM stst = Timer () '********************************** ***********************************'*************search for Hard disk file Searchfile ************* '************* Call method: ************? * ************ SET newsearch = new searchfile 'declaration ************************ NewSearch.Folder = "F: E:" 'Incoming Search source *************' ************* NewSearch.keyword = "Compilation" "Keyword * ************ '************* NewSearch.Search' start searching ************? **** ********* SET newsearch = nothing 'End ************' ************* CopyRight (C) drunken weather Station ************ '************ http://btyz.51web.cn/ ************ * '******************************************************************* ************* Class searchFile Dim folders 'Incoming an absolute path, multi-path uses number connection, can not have space DIM Keyword' incoming keyword DIM objfso 'Define global variable DIM counter' definition Global variable, the number of search results "**************** Initialization ********************************** ************** Private Sub Class_Initialize Set Objfso = Server.createObject ("scripting.filesystemObject") Counter = 0 'Initialization Counter End Sub' **************************************************** ************************** Private Sub class_terminate set objfso = nothing end sub '************* Public member, call method ** ************************* Function Search Folders = Split (Folders, " ") 'transforming into array keyword = trim (keyword)' Remove before and after Space If Keyword = "" THEN Response.write (" keyword cannot be empty ") EXIT FUNT FUNT FUNT IF 'Judging whether illegal character flag = INSTR (Keyword , "/") or ins (Keyword, "/"

Flag = flag or instr (keyword, ":") Flag = flag or instric (Keyword, "|") Flag = flag or instr (keyword, "&") if flag the 'keyword cannot be included //: | & Response.write (" Keywords cannot contain //: | & ) exit function 'If this is included, exiting end if' multipath search DIM i For i = 0 to Ubound (Folders) Call getFile (Folders) 'calls looped credit function next response.write ("Search " & Counter & " Results") End function '************** All over the file and folder *********************************** **** Private Function GetAllFile (folder) dim objFd, objFs, objFf Set objFd = objFso.GetFolder (folder) Set objFs = objFd.SubFolders Set objFf = objFd.Files 'calendar over the subfolders dim strFdName' statement subfolders Name '******** Calendar folder ****** ON Error Resume Next for Each One One One One ONEDIR IN OBJFS STRFDNAME = OneDir.name' system folder is not StrfDname <> " Config.Msi "EQV strFdName <>" RECYCLED "EQV strFdName <>" RECYCLER "EQV strFdName <>" System Volume Information "Then SFN = Folder &" / "& strFdName 'absolute path call GetAllFile (SFN)' called recursively End If Next dim Strflname '********* calendar Document ******** for Each OneFile In Objff StrflName = OneFile.Name 'Desktop.ini and Folder.htt Not Since IF Strflname <> "Desktop.ini" EQV StrflName <> "Folder.htt" THEN FN = folder & "/" & strflname counter = counter coloron (fn) end if next '************************* Close each Object instance set objfd = Nothing set objfs = nothing set objff = Nothing end function '

******************* Generate matching mode *********************************** ********* Private Function createPattern (keyword) createPattern = keyword createPattern = Replace (createPattern, ".", "/.") createPattern = Replace (createPattern, " ", "/ ") createPattern = Replace (CreatePattern, "(", "/ (") "" /) ")" /) ") CreatePattern = Replace (createpattern," [["," / [") createpattern = replace (createpattern," ], "/]") CreatePattern = Replace (createPattern, "{", "/ {") CreatePattern = Replace (createPattern, "}", "/}") CreatePattern = Replace (createpattern, "*", "[[ ^] * ") '* Match CreatePattern = Replace (CreatePattern,"? "," [^] {1} ")'?" Match CreatePattern = "(" & CreatePattern & ") " overall matching end function '** ********************** Search and make keywords ****************** ****** Private Function ColorOn (FileName) dim objReg Set objReg = new RegExp objReg.Pattern = createPattern (keyword) objReg.IgnoreCase = True objReg.Global = True retVal = objReg.Test (FileName) 'search test, If you pass, you colors and output if RetVal Then Outp UT = objreg.replace (filename, " $ 1 ") 'Sets the display color of the keyword' *************** ********** This section can modify the output ******************************************************* *** OUTPUT = "" Response.Write (OUTPUT)' output match result "************ ********************************************************************************************************** **************** Coloron = 1 '

Number of Else Coloron = 0 end if set objreg = Nothing end funnd class' ************** End Searchfile ***** *****************%> Media Search </ Title> </ head> <body> <form name = "form1" method = "post" action = "<% = request.servervariables (" path_info ")%>"> Keywords: <input name = "Keyword" type = "text" id = "keyword"> <input type = "submit" name = "submit" value = "Search"> <a href="help.htm" target="_blank"> Advanced Search Help </a> </ form> <% Dim KeywordKeyword = Request.form ("Keyword") if keyword <> "" The set newsearch = new searchfile newsearch.folders = "E: / Media f:" NewSearch.Keyword = Keyword NewSearch.search set newsearch = Nothing response.write ("Time:" & (Timer () - ST) * 1000 & "Mix") Endix</p> <p>%> </ body> </ html></p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-24380.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="24380" 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.044</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 = 'f00XD7chhW7zaB41DUP_2F4YvNPv9Ky2YVwMs5l9cbDM9zr94Ks0gP7rVj3Ujcxj36DpGsGcVFc4fkJydXdZSEmQ_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>