会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>用ASP制作一个只搜索本网站的引擎
推荐给你的朋友阅读:

用ASP制作一个只搜索本网站的引擎

来源:ASP之家 发表日期: 2011-04-24 21:22:57

    如何做一个只搜索本网站的引擎?

    用下面两个文件即可实现:

    searchfiles.html 

<html>

<head>
<title>本网搜索引擎 - asp之家</title>
</head>
<body>
<form method="POST" action="cgi-bin/searchfiles.asp">
  <table border="0" cellpadding="5" bgcolor="#C2E7E3">
    <tr>
      <td align="center">请输入条目或关键词<input type="text" name="term" size="15">
<input  type="submit" value="搜索"></td>
    </tr>
  </table>
</form>
</body>
</html>

searchfiles.asp
<% 

SearchTerm = request.form("term") 
Novalid=" a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more" 
NovalidResponse ="你输入的内容过于简单,请返回重试!" 
  
if instr(SearchTerm,Novalid)=0 then 
Response. Write ("<CENTER><H2>搜索结果</H2></CENTER>") 
  
  FolderName= "FolderName" 
  ShowList() 
else 
Response.Write NovalidResponse 
End if 
SearchResponse="" 
%> 
<% 
Sub ShowList() 
FolderToCheck = server.mappath("\") &"/" & FolderName & "/" 
Dim fs, f, f1, fc, s 
    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set f = fs.GetFolder(FolderToCheck) 
Set fc = f.Files 
For Each f1 in fc 
        Wfile = f1.name 
          if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" then 
            Wfile2 = FolderToCheck & Wfile 
            Set fs = CreateObject("Scripting.FileSystemObject") 
            Set a = fs.OpenTextFile(Wfile2) 
            ct = a.ReadAll 
            a.close 
            ct2=lcase(ct) 
            SearchTerm2 = lcase(SearchTerm) 
                  if instr(ct2,SearchTerm2)>0 then 
                      if instr(ct,"</title>")>0 then 
                  longitud=instr(ct,"</title>") 
                  longitud=longitud -1 
                          ct=left(ct,longitud) 
                          longitud2=len(ct) 
                  longitud=instr(ct,"<title>") 
                  longitud=longitud2 -longitud -6 
                          ct=right(ct,longitud) 
                    else 
                        if instr(ct,"</TITLE>")>0 then 
                    longitud=instr(ct,"</TITLE>") 
                    longitud=longitud -1 
                            ct=left(ct,longitud) 
                            longitud2=len(ct) 
                    longitud=instr(ct,"<TITLE>") 
                    longitud=longitud2 -longitud -6 
                            ct=right(ct,longitud) 
            end if 
                    end if 
                    SearchResponse= SearchResponse +"<TR><TD>"+ ct + "</TD><TD ALIGN=CENTER 
VALIGN=MIDDLE>" + " <A HREF=" + "/" + FolderName + "/" + Wfile +"> More </A></TD></TR>" 
          longitud=0 
                  ct="" 
                  end if 
          end if 
Next 
Response.Write ("<HTML><HEAD><TITLE>搜索结果</TITLE></HEAD><BODY BGCOLOR=FFFFFF><CENTER>")  
Response.Write ("<TABLE BORDER=0 WIDTH=550><TR><TD BGCOLOR=C0C0C0>")
Response.Write ("<FONT SIZE=5><B>搜索结果</B></FONT></TD></TR></TABLE>")  

Response.Write ("<TABLE BORDER=0 WIDTH=550>")  
if SearchResponse<>"" then  
Response.Write SearchResponse 
else 
Response.Write ("<TR><TD>对不起,没有找到你输入的条目或关键词!</TD></TR>") 
end if 
Response.Write ("</TABLE>") 
Response.Write ("<TABLE BORDER=0 WIDTH=550><TR>")
Response.Write ("<TD BGCOLOR=C0C0C0 ALIGN=RIGHT><FONT SIZE=1>现在调用")
Response.Write ("专业搜索引擎<A HREF= http://www.baidu.com/>BaiDu</A></FONT></TD></TR></TABLE>") 
' 任选一个你喜欢的引擎
Response.Write ("</CENTER></BODY></HTML>") 
End Sub 
%>

3
1
[作者:匿名 关键词:搜索,引擎 录入:raincity 责编:raincity 阅读次数:1910]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:171.88ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]