i have migrated website server 2003 server 2012, , ms indexing service not available.
in doing research, found ms search service 'replacement,' and, such, installed on server 2012. beyond this, haven't found asp-classic (vb) code necessary enable new search service catalog documents, indexing service did.
does ms search service have capability , flexibility catalog , search documents, , return results in same way ms indexing service did?
below example of code calls ms indexing service (on windows 2003 server):
<% dim strquery ' text of our query dim objquery ' index server query object dim rstresults ' recordset of results returned i.s. dim objfield ' field object loop dim objutility ' retreive query querystring strquery = request.querystring("cirestriction") if strquery <> "" if request.querystring("exactphrase") = "yes" strquery = """" & strquery & """" end if end if ' if query isn't blank them proceed if strquery <> "" ' create our index server object set objquery = server.createobject("ixsso.query") ' set properties objquery.catalog = "test_docs" ' catalog query objquery.maxrecords = 75 ' max # of records return objquery.sortby = "rank[d], size" objquery.columns = "characterization, doctitle, directory, filename, path, rank, size, vpath, write" ' build our query: hide admin page , fpse pages 'strquery = "(" & strquery & ")" _ ' & " , not #filename = *admin*" _ ' & " , not #path *\_vti_*" ' uncomment files modified last 5 days 'strquery = strquery & " , @write > -5d" ' set more complex scopes use utility object. ' can call addscopetoquery many times need to. ' shallow includes files in folder. deep includes ' subfolders well. ' set objutility = server.createobject("ixsso.util") objutility.addscopetoquery objquery, "d:\test_shares\test_docs", "deep" objquery.query = strquery ' query text set rstresults = objquery.createrecordset("nonsequential") ' recordset of our results index server ' check no records if rstresults.eof response.write "sorry. no results found." else ' print out # of results response.write "<p><strong>" response.write rstresults.recordcount response.write "</strong> results found:</p>" ' loop through results while not rstresults.eof ' loop through fields ' pretty pretty does... enough: %> <%ksize=formatnumber(rstresults.fields("size")) ksize= round(ksize/1024,0)%> <p> <%'test below using poormansisnull function%> <% if poormansisnull(rstresults.fields("doctitle")) or rstresults.fields("doctitle")="" %> <a href="/ams/test_docs<%= pathtovpath(rstresults.fields("path")) %>" target="_blank"><%= pathtovpath(rstresults.fields("filename")) %></a> <% else %> <a href="/ams/test_docs<%= pathtovpath(rstresults.fields("path")) %>" target="_blank"><font size="3"><%= rstresults.fields("doctitle") %></font></a> <% end if %> <br><%= rstresults.fields("characterization") %><br> <font color="#009900"><%= pathtovpath(rstresults.fields("path")) %> - <%= ksize %>k<br /></font> </p> <% ' move next result rstresults.movenext loop rstresults.movefirst response.write "<pre>" 'response.write rstresults.getstring() response.write "</pre>" end if ' kill our recordset object set rstresults = nothing set objutility = nothing set objquery = nothing end if %> </body> </html> <% function pathtovpath(strpath) const strwebroot = "d:\test_shares\test_docs\" dim strtemp strtemp = strpath strtemp = replace(strtemp, strwebroot, "\") strtemp = replace(strtemp, "\", "/") pathtovpath = strtemp end function %> and, results listed, per document (the name of document, excerpt document text, along title, size), illustrated below: 
thanks leads and/or alternatives.
this example in fact incorrect. not work. following code:
objrecordset.open "select top 20 " & _ "system.itempathdisplay " & _ ",system.itemname " & _ ",system.size " & _ "from systemindex", objconnection & _ "where scope='file:e:\manif\daap\ac'" should use connection object @ end of query. spent few hours wondering why clause not working.
objrecordset.open "select top 20 " & _ "system.itempathdisplay " & _ ",system.itemname " & _ ",system.size " & _ "from systemindex " & _ "where scope='file:e:\manif\daap\ac'", objconnection this should having same difficulty.
Comments
Post a Comment