如何为我的网站编写搜索页面代码
How to code a search page for my website
我们的网站上有一个搜索页面,是我们在 Windows Server 2003 上使用 ASP Classic 制作的。现在我们已经迁移到 Windows Server 2012,我们需要制作一个新的搜索页面,因为代码将无法在 Windows Server 2012 搜索服务上运行。
有没有人遇到过这个。我一直在努力寻找有关如何执行此操作的良好信息。如果可能的话,有人可以展示一些代码示例来说明这是如何完成的吗?
提前谢谢你。
<%
'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
%>
我们的网站上有一个搜索页面,是我们在 Windows Server 2003 上使用 ASP Classic 制作的。现在我们已经迁移到 Windows Server 2012,我们需要制作一个新的搜索页面,因为代码将无法在 Windows Server 2012 搜索服务上运行。
有没有人遇到过这个。我一直在努力寻找有关如何执行此操作的良好信息。如果可能的话,有人可以展示一些代码示例来说明这是如何完成的吗?
提前谢谢你。
<%
'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
%>