asp-classic - 如何为我的网站编写搜索页面

Question

我们的网站上有一个搜索页面，它是在 Windows Server 2003 上使用 ASP Classic 制作的。现在我们已经迁移到 Windows Server 2012，我们需要创建一个新的搜索页面，因为该代码在 Windows Server 2012 搜索服务上不起作用。有没有人遇到过这个。我一直在努力寻找有关如何做到这一点的好信息。如果可能的话，有人可以展示一些关于如何完成的编码示例吗？
先感谢您。

Answer 1

    <%
    'Setup ADO objects.
    Set adoCommand    = CreateObject("ADODB.Command")
    Set adoConnection = CreateObject("ADODB.Connection")
    adoConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
    Set adoCommand.ActiveConnection = adoConnection

    strQuery = "SELECT Top 1000 System.ItemPathDisplay FROM SYSTEMINDEX"

    adoCommand.CommandText = strQuery
    adoCommand.Properties("Page Size") = 10
    adoCommand.Properties("Timeout") = 30
    adoCommand.Properties("Cache Results") = False

    ' Run the query.
    Set adoRecordset = adoCommand.Execute


    adoRecordset.MoveFirst
Do Until adoRecordset.EOF
    response.write(adoRecordset.Fields.Item("System.ItemPathDisplay")& "<br />")
    adoRecordset.MoveNext
Loop

    ' Clean up.
    adoRecordset.Close
    adoConnection.Close
    %>