iis-7 - 32 ビット ASP アプリケーションから Windows 2008 x64 Index Service を照会する方法は?

Question

最近、ASP クラシックサイトを w2k3 サーバーから w2k8 64 環境に移動する際の問題に遭遇しました。それには、インデックスサービスを ASP クラシックで動作させることが含まれていました。多くの解決策を試したところをすべて検索しましたが、すべて失敗しました。

問題: 32 ビットアプリケーションプール (asp クラシック用) で 64 ビットインデックスサービスを実行すると、インデックスサービスへの要求を実行する ASP ページで、サーバーオブジェクトの読み込みに失敗したというエラーが発生しました。インデックスサービスが実行されていて、インデックスサービスがインデックスを作成したサイトのドキュメントを含むフォルダーが 64 ビットモードで実行され、プールが 32 ビットモードで実行されていました。実行できませんでした。

提案された解決策のいくつかは、新しい「Windows 検索」を使用するようにコードを書き直すことでした。しかし、これも 64 ビットで実行されているため、32 ビットアプリケーションモードでは実行できませんでした。プールで 32 ビット互換モードに切り替えると、asp サイトで使用されるデータベースやその他の com オブジェクトが機能しなくなりました。

score 2 · Accepted Answer

数日後、私はほとんどあきらめましたが、真夜中に、すべてを機能させるための素晴らしいアイデアを思いつきました. 32 ビットアプリケーションモードで実行されているサイトのインデックス付きディレクトリを含む仮想ディレクトリを使用して、64 ビットモードで実行されている Web サーバー上のサブドメインに ajax 呼び出しを行うとどうなりますか。

落ち着きのない睡眠の翌日、私は仕事に取り掛かり、IIS7 に新しいサブドメインを追加して、Web サイトのインデックス付きディレクトリに仮想ディレクトリを追加しました。リクエストハンドラを含む「indexer.asp」ページを追加しました。

<%@ Language=VBScript %><%


Option explicit
response.buffer=true

dim RequestIndex, strFileError, RequestSearchString, FSOA, RequestMax


RequestIndex=request.querystring("Index")
RequestSearchString=request.querystring("Search")
RequestMax=request.querystring("Size")


' INDEXER 
sub DoIndexSearch(target, RequestIndex)
dim foundfilearray:foundfilearray=false
dim ixQuery   ' Index Server query object.
set ixQuery = Server.CreateObject("ixsso.Query")
if (Err.description <> "") Then
    strFileError= ("<div><strong>Query object Error : " & Err.description & ".</strong></div>")
    response.write strFileError 
    Exit sub
end if

ixQuery.Query =(target)
'ixQuery.SortBy  = "DocLastSavedTm[d]"
ixQuery.SortBy  = "Rank[d]"
ixQuery.Columns  = "FileName," 'Parameter: columns returned (one this case a one dimensional array)
ixQuery.LocaleID = 1043  'Parameter: language 
ixQuery.MaxRecords =RequestMax   'Parameter:  max returned documents 
ixQuery.Catalog = RequestIndex 'IndexService ' Which indexing service

' Create a search utility object to allow us to specify the search type as deep,meaning  it will search recursively down through the directories
dim util      
set util = Server.CreateObject("ixsso.Util")
util.AddScopeToQuery ixQuery, Server.MapPath(RequestIndex), "deep"
if (Err.description <> "") Then
    strFileError= ("<div><strong>Search Utility Error : " & Err.description & "</strong></div>")
    response.write strFileError 
    Exit sub
end if


' Run the query (i.e. create the recordset).
dim QueryRS
set queryRS = ixQuery.CreateRecordSet("nonsequential")
' Check the query result. If it timed out or return no records, then show
' an appropriate message. Otherwise, show the hits.
if (Err.description <> "") Then
    strFileError= "<div><strong>search error : " & Err.description & "</strong></div>"
    response.write strFileError 
    queryRS.close
    set queryRS = nothing
    set ixQuery = nothing
    set util = nothing 
    Exit sub

elseif queryrs.recordcount = 0 then
    strFileError="<div><strong>no documents found.</strong></div>"
    response.write strFileError 
    queryRS.close
    set queryRS = nothing
    set ixQuery = nothing
    set util = nothing 
    Exit sub
else
    FSOA= QueryRS.getrows()
    queryRS.close
    set queryRS = nothing
    set ixQuery = nothing
    set util = nothing 
    Exit sub
end if

end Sub


call DoIndexSearch(RequestSearchString,RequestIndex)


' TESTING PURPOSE  
dim strTestResult
strTestResult= "<html><head></head><body style=""font-family:Verdana, arial"">" 
strTestResult=strTestResult& "<h1>Testing 64bit classic asp indexing using windows 2008 64bit server</h1>" 
strTestResult=strTestResult& "<h3>Search in index <em>"&RequestIndex&"</em>  for <em>"&RequestSearchString&"</em> with max <em>"&requestMax&"</em> results</h3>" 
strTestResult=strTestResult& "<p>Using a seperate website running a 64bit classic pool, wich contains a virtual directory named after the Index which contains the path to the directory of the website that is indexed.</p>" 
strTestResult=strTestResult& "<p>The returned results is a one dimensional array containing the filenames where searchstring is found in. This array can be passes back using ajax/json</p>"  

if isarray(fsoa) then
    strTestResult=strTestResult& " <hr>" 
    strTestResult=strTestResult& "<fieldset><legend>Found items for "&RequestSearchString&"  </legend>"

    dim xloop:xloop=0
    strTestResult=strTestResult& " <ol>" 

    for each xloop in fsoa
        strTestResult=strTestResult& "<li>"&Xloop&" </li>" 
    next

    strTestResult=strTestResult& " </ol></fieldset></body></html>"
    strTestResult=strTestResult& "<hr>" 
    strTestResult=strTestResult& "<h1>AJAX return array</h1>" 
else
    strTestResult=strTestResult& " no items found" 
end if

' response.write strTestResult ' (Remark when done testing)
' END TESTING



' RETURN INDEXING RESULT TO AJAX/JSON CALLER (one dim array)
if  strFIleError="" then
    xloop=0
    dim ajaxresult

    for each xloop in FSOA
        ajaxresult=ajaxresult & ucase(Xloop) &"|" 
    next

    ajaxresult=Left(ajaxresult,Len(ajaxresult)-1)
    response.write ajaxresult
end if


%>

次に、32 ビットアプリケーションモードで実行されている Web サイトの 1 つでリクエストページを作成しました。

dim FSOA 'return documents file array

'search inside documents 
sub DoSearchText(target, indexservice)
'target = search string
'indexservice = catalog name (index service)

dim IndexArray() 'one dimensional array for index result
dim xmlhttp, tempArray, IndexUrl

'url to the 64bit indexer subdomain
IndexURL = ("http://indextest.subdomain.local/indexer.asp?Index="&IndexService&"&Search="&target&"&Size=50") 
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", IndexURL, false 
xmlhttp.send ""  

if xmlhttp.status >= 400 and xmlhttp.status <=599 then
    response.write " error processing: " &xmlhttp.status &" - "&xmlhttp.statusText
else
    tempArray= xmlhttp.responseText 
end if

set xmlhttp = nothing  
'put result into a array
FSOA= split(tempArray,"|")
end Sub


call DoSearchText("chapter one", "sitebooks")

if isarray(FSOA) then

    dim docloop
    for each docloop in FSOA
        response.write "<div>"&docloop&"</div>"
    next
else
    response.write "No documents found"
end if

`

説明：

インデックスサービスカタログ名、検索文字列、最大結果ドキュメントの解析
サブドメインで、インデックスが作成されたディレクトリの元の場所にリダイレクトする仮想ディレクトリ (インデックスカタログと呼ばれる) を作成します。
要求呼び出しを処理する indexer.asp ページを追加します。
元のWebページの既存のリクエストオブジェクトコードを変更して、上記のサブドメインへのajax呼び出しを行います

利点：

32 ビットアプリケーションモードで実行されている asp クラシック Web サイトから 64 ビットアプリケーションに Ajax 要求を行い、結果を返します。
Adobe PDF Ifilter (64 ビット) を含めて PDF にインデックスを付け、PDF ファイル内を読み取ることもできます。
サイトの既存の ASP コードを簡単に変更できます。マイナーな変更
別の 64 ビットプールとサブドメインでインデクサーを実行する
複数のカタログを 1 か所で簡単に追加して管理
不可能を可能にする: 32 ビットアプリケーションモードで 64 ビットインデックスサービスを使用して asp クラシックを実行する

iis-7 - 32 ビット ASP アプリケーションから Windows 2008 x64 Index Service を照会する方法は?

1 に答える 1

Related

Reference