站长资源 网络编程

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

整理:jimmy2026/7/29浏览2次

简介该搜索引擎由一个HTM文件一个ASP文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。searchpage.htm该HTM文件用来传入条件ASP搜索引擎范例</</div> <div class="news_infos"><div id="MyContent">该搜索引擎由一个HTM文件一个ASP文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。 <br><br>searchpage.htm <br>该HTM文件用来传入条件 <br><br><HTML> <br><HEAD> <br><TITLE>ASP搜索引擎范例</TITLE> <br></HEAD> <br><BODY> <br><CENTER> <br><FORM METHOD=POST ACTION="search.asp"> <br><br><TABLE BGCOLOR="#CC6633" BORDER="0"> <br><TR> <br><br><TD ROWSPAN="3" BGCOLOR="#CC6633" width="21" nowrap> </TD> <br><br><TD width="363" nowrap> <FONT COLOR="#FFFFFF"> <br><INPUT TYPE="text" NAME="SearchText" SIZE="22"> <br><INPUT TYPE="checkbox" NAME="Case"> <br>高度敏感</FONT> </TD> <br><br><TD ROWSPAN="3" width="10"> <br><INPUT TYPE="submit" VALUE="确定"> <br><P> <br><br><INPUT TYPE="reset" VALUE="清除"> <br></TD> <br><br><TD ROWSPAN="3" BGCOLOR="#CC6633" width="28"> </TD> <br></TR> <br><TR> <br><br><TD width="363" nowrap> <FONT COLOR="#FFFFFF"> 返回结果 <br><SELECT name="rLength" > <br><option value="200" selected>长信息 </option> <br><option value="100">短信息</option> <br><option value="0">只返回连接</option> <br></SELECT> <br><SELECT NAME="rResults"> <br><OPTION VALUE="10" SELECTED>10 <br><OPTION VALUE="25">25 <br><OPTION VALUE="50">50 <br></SELECT> <br></FONT> <br></TD> <br></TR> <br><TR> <br><br><TD width="363" nowrap> <FONT COLOR="#FFFFFF"> 必须包括: <br><INPUT TYPE="checkbox" NAME="iImage"> <br>图片 <br><INPUT TYPE="checkbox" NAME="iZips"> <br>Zip格式 <br><INPUT TYPE="checkbox" NAME="iJavaS"> JavaScript <br></FONT> <br></TD> <br></TR> <br></TABLE> <br></FORM> <br></CENTER> <br><br><DL> <br><DD> </DD> <br></DL> <br></BODY> <br></HTML> <br><br>------------------------------------------------------------------------ <br>显示结果的ASP程序 <br>search.asp <br><br><HTML> <br><HEAD> <br><TITLE>'<%=Request("SearchText")%>'的搜索结果</TITLE> <br></HEAD> <br><BODY> <br><B>'<%=Request("SearchText")%>'的搜索结果</B><BR> <br><% <br>Const fsoForReading = 1 <br>Dim objFile, objFolder, objSubFolder, objTextStream <br>Dim bolCase, bolFileFound, bolTagFound <br>Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL <br>Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip <br><br>strFile = ".asp .htm .html .js .txt .css" <br>strRoot = "/" <br>strText = Request("SearchText") <br>strTag = Chr(37) & Chr(62) <br>bolFileFound = False <br>bolTagFound = False <br>If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1 <br>If Request("iImage") = "on" Then reqImage = "<IMG" Else reqImage = "" <br>If Request("iZips") = "on" Then reqZips = ".zip" Else reqImage = "" <br>If Request("iJavaS") = "on" Then reqJavaS = "JavaScript" Else reqImage = "" <br>If Request("rResults") = "10" Then reqNumber = 10 <br>If Request("rResults") = "25" Then reqNumber = 25 <br>If Request("rResults") = "50" Then reqNumber = 50 <br>reqLength = Request("rLength") <br><br>Set objFSO = Server.CreateObject("Scripting.FileSystemObject") <br>Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot)) <br><br>schSubFol(objFolder) <br><br>Sub schSubFol(objFolder) <br>For Each objFile in objFolder.Files <br>If strCount + 1 > reqNumber or strText = "" Then Exit Sub <br>If Response.IsClientConnected Then <br>Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading) <br><br>strContent = objTextStream.ReadAll <br><br>If InStr(1, strContent, strTag, bolCase) Then <br>Else <br>If Mid(objFile.Name, Len(objFile.Name) - 1, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 1, 2) <br>If Mid(objFile.Name, Len(objFile.Name) - 2, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 2, 3) <br>If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4) <br>If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5) <br>If InStr(1, strContent, strText, bolCase) And _ <br>InStr(1, strContent, reqImage, 1) And _ <br>InStr(1, strContent, reqZips, 1) And _ <br>InStr(1, strContent, reqJavaS, 1) And _ <br>Instr(1, strFile, strExt, 1) Then <br>If InStr(1, strContent, "<TITLE>", 1) Then strTitle = Mid(strContent, InStr(1, strContent, "<TITLE>", 1) + 7, InStr(1, strContent, "</TITLE>", 1)) Else strTitle = "未命名" <br><br>strCount = strCount + 1 <br>Response.Write "<DL><DT><B><I>"& strCount &"</I></B> - <A HREF=" & objFile.Path & ">" & strTitle & "</A></A></DT><BR><DD>" <br>strTitleL = InStr(1, strContent, "</TITLE>", 1) - InStr(1, strContent, "<TITLE>", 1) + 7 <br><br>strDeTag = "" <br>bolTagFound = False <br><br>Do While InStr(strContent, "<") <br>bolTagFound = True <br>strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1) <br>strContent = MID(strContent, InStr(strContent, ">") + 1) <br>Loop <br><br>strDeTag = strDeTag & strContent <br>If Not bolTagFound Then strDeTag = strContent <br><br>If reqLength = "0" Then Response.Write objFile.Path & "</DD></DL>" Else Response.Write Mid(strDeTag, strTitleL, reqLength) & "...<BR><b><FONT SIZE='2'>URL: " & objFile.Path & " - 上次修改时间: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024) & "Kbytes</FONT></b></DD></DL>" <br>bolFileFound = True <br>End If <br>objTextStream.Close <br>End If <br>End If <br>Next <br>End Sub <br><br>For Each objSubFolder in objFolder.SubFolders <br>schSubFol(objSubFolder) <br>Next <br><br>If Not bolFileFound then Response.Write "没有匹配结果" <br>If bolFileFound then Response.Write "<B>搜索结束</B>" <br><br>Set objTextStream = Nothing <br>Set objFolder = Nothing <br>Set objFSO = Nothing <br>%> <br></BODY></HTML> <br><br></p></div> </div> </div> <div class="share"> </div> <div class="nextinfo"> <p>上一篇：<a href="/3g/1/162011.html" title="怎样读取一个文本文件的内容?">怎样读取一个文本文件的内容?</a></p> <p>下一篇：<a href="/3g/1/162013.html" title="通过数组给您的文件排序">通过数组给您的文件排序</a></p> </div> <div class="otherlink"> <h2>最新资源</h2> <ul> <li><a href="/3g/1/623703.html" title="群星《奔赴！万人现场第2期》[FLAC/分轨]">群星《奔赴！万人现场第2期》[FLAC/分轨]</a></li> <li><a href="/3g/1/623702.html" title="群星《奇妙浪一夏 (上海迪士尼度假区音乐">群星《奇妙浪一夏 (上海迪士尼度假区音乐</a></li> <li><a href="/3g/1/623701.html" title="群星《奇妙浪一夏 (上海迪士尼度假区音乐">群星《奇妙浪一夏 (上海迪士尼度假区音乐</a></li> <li><a href="/3g/1/623700.html" title="【古典音乐】詹姆斯·高威《季节》1993[WA">【古典音乐】詹姆斯·高威《季节》1993[WA</a></li> <li><a href="/3g/1/623699.html" title="贝拉芳蒂《卡里普索之王》SACD[WAV+CUE]">贝拉芳蒂《卡里普索之王》SACD[WAV+CUE]</a></li> <li><a href="/3g/1/623698.html" title="小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE">小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE</a></li> <li><a href="/3g/1/623697.html" title="群星《欢迎来到我身边电影原声专辑》[32">群星《欢迎来到我身边电影原声专辑》[32</a></li> <li><a href="/3g/1/623696.html" title="群星《欢迎来到我身边电影原声专辑》[FL">群星《欢迎来到我身边电影原声专辑》[FL</a></li> <li><a href="/3g/1/623695.html" title="雷婷《梦里蓝天HQⅡ》 2023头版限量编号低">雷婷《梦里蓝天HQⅡ》 2023头版限量编号低</a></li> <li><a href="/3g/1/623694.html" title="群星《2024好听新歌42》AI调整音效【WAV分">群星《2024好听新歌42》AI调整音效【WAV分</a></li> </ul> </div> </div> <div class="sidebar"> </div> <div class="sidebar"> 友情链接:<a href="http://www.imxmx.com/" title="杰晶网络" target="_blank">杰晶网络</a> <a href="/" 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="/sitemap1.xml">站点地图</a> <a href="/sitemap.xml">SiteMap</a> </div> </article> <footer> <p>Design by <a href="http://m.ddrfans.com">DDR爱好者之家</a> <a href="http://m.ddrfans.com">http://m.ddrfans.com</a></p> </footer> <script src="/images3g/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>