ＡＳＰからのファイル検索

質問

お世話になっております。

ＡＳＰ＋ＳＱＬＳｅｒｖｅｒを使用して開発を行っております。

サーバに格納されたファイルを検索文字を入力して、検索文字が記述して
ある、ファイル情報を取得して表示したいと考えております。
ＡＳＰ＋ＳＱＬＳｅｒｖｅｒを使用して行えますでしょうか？
また、ＭｉｃｒｏｓｏｆｔＩｎｄｅｘＳｅｒｖｉｃｅを使用すると可能との
ことなのですが具体的にどのようにして使用するか分からないでおります。

何方かご存知でしたらお教え願います。
宜しくお願い致します。

回答No.2

agricap · ベストアンサー

ＳＱＬＳｅｒｖｅｒは必要ありません。
まずインデックスサービスそのものを知らないようですので、
インデックスサービスそのものを使ってみることをおすすめします。
たとえばこういうソフトをつかってみるといいかと思います。

「サトリ」
http://www.forest.impress.co.jp/article/2003/07/15/satori.html

その後で・・・ここからは私もあまり知りませんので、以下に
書くこと以上の補足はできません。

参考ＵＲＬ：http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B238791

なお、手元にWinXP Professional があれば（多分Win2000 Serverなど
でも同じ）、IISをインストールして http://localhost
を表示してみてください。
IISのヘルプの検索用アプリケーションがインデックスサービスを
使用してASPで実装されているようです。
ソースを実際みて、真似して作ればいいかと思います。

私の環境ですと、
C:\WINDOWS\Help\iisHelp\iis\misc\search.asp
が検索条件を入力するページのソース、
C:\WINDOWS\Help\iisHelp\iis\misc\query.asp
が検索結果を表示するソースになっているようです。

回答No.1

naganaga_001

お世話になります。
以下のようなソースで、
Get パラメータに一部でも合致するファイル名のみ表示されます。

例えば、この asp が test.asp の場合、
ｈttp://マシン名/配置したディレクトリ/test.asp?filename=asp
とすると、ファイル名に asp が含まれるものみ
表示されます。

<%
Dim objFSO
Dim objFOL
Dim queryFileName

queryFileName = Request.QueryString("filename")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFOL = objFSO.GetFolder("C:\Inetpub\wwwroot\RegTest")

For Each objFile in objFOL.Files
%>
<% If InStr(1, objFile.Name, queryFileName) > 0 Then %>
<%=objFile.Name%><br>
<% End If %>
<%
Next

Set objFOL = Nothing
Set objFSO = Nothing
%>

補足

回答ありがとうございます。

私の質問内容が悪かったのですが、ファイル名称を指定して検索するのではなく、ファイルの中に記述してある文字列を指定して検索を行いたいのです。
ご存知でしたらお教え下さい。

なお、回答して頂いた内容につきましては別な箇所で使用させて頂きました。

ありがとうございました。