关于搜索引擎的源代码 抄袭加修改 不知道好不好用-<!--#INCLUDE FILE="includes/DisplayHandling.asp"-->

<!--#INCLUDE FILE="includes/MainSearch.asp"-->

<

Dim strHTML, strError

____________________________________________________________________________________________________________



Function CheckRules

　　CheckRules = True

　　If Len(strKeywords) < 2 Then

　　　　CheckRules = False

　　　　strError = "Please enter keyword(s) for searching."

　　End If　　

End Function

____________________________________________________________________________________________________________



Sub InitializePage

　　 On Error Resume Next

　　Dim strSQL, strTEMP, intDescr iption,intDate

　　intDate = 3

　　intDescr iption = 8

　　catID = 6

　　If CheckRules = True Then

　　　　Call MainSearchInitialize

　　　　Call GetRecordSet(BuildSearchSQL(doActiveStatus))

　　　　strTemp = BuildHTMLTable(catID)

　　　　Call MainSearchClose

　　End If

　　strHTML = strTEMP

　　If err <> 0 Then

　　　　strError = "<p align=center><b>An error has occured in the search engine, " & _