<%
'#########################
' 文件搜索引擎
' 请自行设置各项内容
' 需要 Scripting.FileSystemObject
' by S.F.
' Mailto:webmaster@guyee.com
' http://www.lanmang.net
'##########################
%>
<HTML>
<Title>搜索</Title>
<BODY>
<FORM METHOD=POST ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
请输入你想查询的文本:
<INPUT TYPE=TEXT NAME=SearchText>
<P>
<INPUT TYPE=SUBMIT VALUE="开始搜索!">
</FORM>
<B>
<%If Request("SearchText")="" Then
Response.End
End If
%>
查找 <%=Request("SearchText")%>的结果如下：</B><BR>
<%
Const fsoForReading = 1
Dim strSearchText
strSearchText = Request("SearchText")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/tt"))
Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<LI><A HREF=""tt/" &objFile.Name & _
""">" & objFile.Name & "</A><BR>"
bolFileFound = True
End If
objTextStream.Close
End If
Next
if Not bolFileFound then Response.Write "十分抱歉，没有找到你需要的文件..."
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>
'#########################
' 文件搜索引擎
' 请自行设置各项内容
' 需要 Scripting.FileSystemObject
' by S.F.
' Mailto:webmaster@guyee.com
' http://www.lanmang.net
'##########################
%>
<HTML>
<Title>搜索</Title>
<BODY>
<FORM METHOD=POST ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
请输入你想查询的文本:
<INPUT TYPE=TEXT NAME=SearchText>
<P>
<INPUT TYPE=SUBMIT VALUE="开始搜索!">
</FORM>
<B>
<%If Request("SearchText")="" Then
Response.End
End If
%>
查找 <%=Request("SearchText")%>的结果如下：</B><BR>
<%
Const fsoForReading = 1
Dim strSearchText
strSearchText = Request("SearchText")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/tt"))
Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<LI><A HREF=""tt/" &objFile.Name & _
""">" & objFile.Name & "</A><BR>"
bolFileFound = True
End If
objTextStream.Close
End If
Next
if Not bolFileFound then Response.Write "十分抱歉，没有找到你需要的文件..."
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>
