站长资源 网络编程

用ASP做一个TOP COOL的站内搜索

整理:jimmy2024/10/28浏览2次

简介该搜索引擎由一个HTM文件一个ASP文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。searchpage.htm该HTM文件用来传入条件ASP搜索引擎范例</</div> <div class="news_infos"><div id="MyContent">该搜索引擎由一个HTM文件一个ASP文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。 searchpage.htm 该HTM文件用来传入条件 <HTML> <HEAD> <TITLE>ASP搜索引擎范例</TITLE> </HEAD> <BODY> <CENTER> <FORM METHOD=POST ACTION="search.asp"> <TABLE BGCOLOR="#CC6633" BORDER="0"> <TR> <TD ROWSPAN="3" BGCOLOR="#CC6633" width="21" nowrap> </TD> <TD width="363" nowrap> <INPUT TYPE="text" NAME="SearchText" SIZE="22"> <INPUT TYPE="checkbox" NAME="Case"> 高度敏感 </TD> <TD ROWSPAN="3" width="10"> <INPUT TYPE="submit" VALUE="确定"> <INPUT TYPE="reset" VALUE="清除"> </TD> <TD ROWSPAN="3" BGCOLOR="#CC6633" width="28"> </TD> </TR> <TR> <TD width="363" nowrap> 返回结果 <SELECT name="rLength" > <option value="200" selected>长信息 </option> <option value="100">短信息</option> <option value="0">只返回连接</option> </SELECT> <SELECT NAME="rResults"> <OPTION VALUE="10" SELECTED>10 <OPTION VALUE="25">25 <OPTION VALUE="50">50 </SELECT> </TD> </TR> <TR> <TD width="363" nowrap> 必须包括: <INPUT TYPE="checkbox" NAME="iImage"> 图片 <INPUT TYPE="checkbox" NAME="iZips"> Zip格式 <INPUT TYPE="checkbox" NAME="iJavaS"> JavaScript </TD> </TR> </TABLE> </FORM> </CENTER> <DL> <DD> </DD> </DL> </BODY> </HTML> ------------------------------------------------------------------------ 显示结果的ASP程序 search.asp <HTML> <HEAD> <TITLE>'<%=Request("SearchText")%>'的搜索结果</TITLE> </HEAD> <BODY> '<%=Request("SearchText")%>'的搜索结果 <% Const fsoForReading = 1 Dim objFile, objFolder, objSubFolder, objTextStream Dim bolCase, bolFileFound, bolTagFound Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip strFile = ".asp .htm .html .js .txt .css" strRoot = "/" strText = Request("SearchText") strTag = Chr(37) & Chr(62) bolFileFound = False bolTagFound = False If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1 If Request("iImage") = "on" Then reqImage = "<IMG" Else reqImage = "" If Request("iZips") = "on" Then reqZips = ".zip" Else reqImage = "" If Request("iJavaS") = "on" Then reqJavaS = "JavaScript" Else reqImage = "" If Request("rResults") = "10" Then reqNumber = 10 If Request("rResults") = "25" Then reqNumber = 25 If Request("rResults") = "50" Then reqNumber = 50 reqLength = Request("rLength") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot)) schSubFol(objFolder) Sub schSubFol(objFolder) For Each objFile in objFolder.Files If strCount + 1 > reqNumber or strText = "" Then Exit Sub If Response.IsClientConnected Then Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading) strContent = objTextStream.ReadAll If InStr(1, strContent, strTag, bolCase) Then Else If Mid(objFile.Name, Len(objFile.Name) - 1, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 1, 2) If Mid(objFile.Name, Len(objFile.Name) - 2, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 2, 3) If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4) If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5) If InStr(1, strContent, strText, bolCase) And _ InStr(1, strContent, reqImage, 1) And _ InStr(1, strContent, reqZips, 1) And _ InStr(1, strContent, reqJavaS, 1) And _ Instr(1, strFile, strExt, 1) Then If InStr(1, strContent, "<TITLE>", 1) Then strTitle = Mid(strContent, InStr(1, strContent, "<TITLE>", 1) + 7, InStr(1, strContent, "</TITLE>", 1)) Else strTitle = "未命名" strCount = strCount + 1 Response.Write "<DL><DT>"& strCount &" - <A HREF=" & objFile.Path & ">" & strTitle & "</A></A></DT> <DD>" strTitleL = InStr(1, strContent, "</TITLE>", 1) - InStr(1, strContent, "<TITLE>", 1) + 7 strDeTag = "" bolTagFound = False Do While InStr(strContent, "<") bolTagFound = True strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1) strContent = MID(strContent, InStr(strContent, ">") + 1) Loop strDeTag = strDeTag & strContent If Not bolTagFound Then strDeTag = strContent If reqLength = "0" Then Response.Write objFile.Path & "</DD></DL>" Else Response.Write Mid(strDeTag, strTitleL, reqLength) & "... URL: " & objFile.Path & " - 上次修改时间: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024) & "Kbytes</DD></DL>" bolFileFound = True End If objTextStream.Close End If End If Next End Sub For Each objSubFolder in objFolder.SubFolders schSubFol(objSubFolder) Next If Not bolFileFound then Response.Write "没有匹配结果" If bolFileFound then Response.Write "搜索结束" Set objTextStream = Nothing Set objFolder = Nothing Set objFSO = Nothing %> </BODY></HTML> </div> </div> </div> <div class="share"> </div> <div class="nextinfo"> 上一篇：<a href="http://m.wwsws.com/show/1/162011.html" title="怎样读取一个文本文件的内容?">怎样读取一个文本文件的内容?</a> 下一篇：<a href="http://m.wwsws.com/show/1/162013.html" title="通过数组给您的文件排序">通过数组给您的文件排序</a> </div> <div class="otherlink"> <h2>最新资源</h2> <ul> <li> <a class="text-sm" href="/show/1/620773.html" one-link-mark="yes" title="群星《歌手2024 第3期》[FLAC/分轨][204.16MB]">群星《歌手2024 第3期》[FLAC/分轨][204.16MB]</a> </li> <li> <a class="text-sm" href="/show/1/620772.html" one-link-mark="yes" title="群星《乘风2024 第6期》[320K/MP3][57.95MB]">群星《乘风2024 第6期》[320K/MP3][57.95MB]</a> </li> <li> <a class="text-sm" href="/show/1/620771.html" one-link-mark="yes" title="群星《乘风2024 第6期》[FLAC/分轨][170.72MB]">群星《乘风2024 第6期》[FLAC/分轨][170.72MB]</a> </li> <li> <a class="text-sm" href="/show/1/620770.html" one-link-mark="yes" title="陈立强1995-我爱你胜过这世界[福茂][WAV+CUE]">陈立强1995-我爱你胜过这世界[福茂][WAV+CUE]</a> </li> <li> <a class="text-sm" href="/show/1/620769.html" one-link-mark="yes" title="群星-《2014年十大发烧唱片精选HQCD》[低速原抓WAV+CUE]">群星-《2014年十大发烧唱片精选HQCD》[低速原抓</a> </li> <li> <a class="text-sm" href="/show/1/620768.html" one-link-mark="yes" title="群星2013-青春缤纷辑压箱宝大公开3CD2[新加坡限量版][WAV整轨]">群星2013-青春缤纷辑压箱宝大公开3CD2[新加坡限</a> </li> <li> <a class="text-sm" href="/show/1/620767.html" one-link-mark="yes" title="林育群.2013-BalladShow（日本版）【环球】【WAV+CUE】">林育群.2013-BalladShow（日本版）【环球】【WAV+</a> </li> <li> <a class="text-sm" href="/show/1/620766.html" one-link-mark="yes" title="陈加洛.1992-痛到感觉不到【宝丽金】【WAV+CUE】">陈加洛.1992-痛到感觉不到【宝丽金】【WAV+CUE】</a> </li> <li> <a class="text-sm" href="/show/1/620765.html" one-link-mark="yes" title="群星.2023-宿命之敌电视剧原声带【韶愔音乐】【FLAC分轨】">群星.2023-宿命之敌电视剧原声带【韶愔音乐】【</a> </li> <li> <a class="text-sm" href="/show/1/620764.html" one-link-mark="yes" title="東京事変-大発見[FLAC+CUE]">東京事変-大発見[FLAC+CUE]</a> </li> </ul> </div> </div> <div class="sidebar"> <div class="cloud"><h2 class="hometitle">标签云</h2><ul><a href="/search.asp?key=1080P高清&m=1">1080P高清(5)</a><a href="/search.asp?key=高清电影&m=1">高清电影(5)</a><a href="/search.asp?key=百度云盘&m=1">百度云盘(5)</a><a href="/search.asp?key=网盘下载&m=1">网盘下载(4)</a><a href="/search.asp?key=破解软件&m=1">破解软件(4)</a><a href="/search.asp?key=绿色软件&m=1">绿色软件(4)</a><a href="/search.asp?key=磁力链接&m=1">磁力链接(3)</a><a href="/search.asp?key=强度天梯&m=1">强度天梯(3)</a><a href="/search.asp?key=福利资源&m=1">福利资源(2)</a><a href="/search.asp?key=王者荣耀&m=1">王者荣耀(2)</a><a href="/search.asp?key=黑钻活动&m=1">黑钻活动(2)</a><a href="/search.asp?key=WPS会员&m=1">WPS会员(2)</a><a href="/search.asp?key=刷图排行&m=1">刷图排行(1)</a><a href="/search.asp?key=网盘限速&m=1">网盘限速(1)</a><a href="/search.asp?key=鬼灭之刃&m=1">鬼灭之刃(1)</a><a href="/search.asp?key=免费韩国漫画&m=1">免费韩国漫画(1)</a><a href="/search.asp?key=宫本重做&m=1">宫本重做(1)</a><a href="/search.asp?key=免费动漫&m=1">免费动漫(1)</a></ul></div> </div> </article> <footer> 友情链接:<a href="http://www.imxmx.com/" title="杰晶网络" target="_blank">杰晶网络</a> <a href="http://www.ddrfans.com/" title="DDR爱好者之家" target="_blank">DDR爱好者之家</a> <a href="http://www.nqxw.com/" title="南强小屋" target="_blank">南强小屋</a> <a href="http://www.paidiu.com/" title="黑松山资源网" target="_blank">黑松山资源网</a> <a href="http://www.dyhadc.com/" title="白云城资源网" target="_blank">白云城资源网</a> <a href="/sitemap.xml">SiteMap</a> Design by <a href="http://m.wwsws.com">伏龙阁资源网</a> <a href="/">http://m.wwsws.com</a> </footer> <script src="/images/nav.js"></script> <script type="text/javascript"> jQuery.noConflict(); jQuery(function() { var elm = jQuery('#left_flow2'); var startPos = jQuery(elm).offset().top; jQuery.event.add(window, "scroll", function() { var p = jQuery(window).scrollTop(); jQuery(elm).css('position', ((p) > startPos) ? 'fixed' : ''); jQuery(elm).css('top', ((p) > startPos) ? '0' : ''); }); }); </script> </body> </html>