searchfiles.html<html>
<head>
<title>撼雪喷云之本网搜索引擎</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><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><td BGCOLOR=C0C0C0 ALIGN=RIGHT><FONT SIZE=1>现在调用专业搜索引擎<A HREF= http://www.yahoo.com.cn/ </A></FONT></td></tr></TABLE>\”)
\’ 任选一个你喜欢的引擎.
Response.Write (\”</CENTER></body></html>\”) End Sub %>
[1]