ASPを使用して検索エンジン機能と同様のコードを書き込むことの解釈

タイトルテキスト

説明テキスト

要約テキスト

キーワードテキスト（インデックス：（重複なし））

<bodybgcolor =＃ffffffmmarginwidth = 0marginheight = 0

leftmargin = 0topmargin = 0>

<formmethod = postaction = doquery.asp？act = search>

クエリ：<inputType = textName = queryString> <br>

<inputType = submitValue = submit>

</form>

</center>

<％

dimact

act = request（act）

if（act = search）then

queryString = request.form（querystring）

querywords = split（querystring）

strindent =

「検索が空の場合は、返品してください

ifqueryString = then

Response.redirect（default.asp）

endif

session.timeout = 2

ifisobject（session（sitesearch_conn））then

setConn = session（sitesearch_conn）

それ以外

setConn = server.createObject（adodb.Connection）

conn.opendriver = {Microsoft AccessDriver（*。MDB）}; dbq =＆server.mappath（database/sitesearch.mdb）,,

SetSession（sitesearch_conn）= conn

endif

'クエリステートメント

sql = select*from [urlindex] where

'説明フィールドを検索します

sql = sql＆（[説明] '％＆querywords（0）＆％' 'first

fori = lbound（querywords）+1toubound（querywords）

ifquerywords（i）<> anducase（querywords（i））<> oranducase（querywords（i））<> and then

ifucase（querywords（i-1））= orthen

sql = sql＆または[description] like '％＆querywords（i）＆％'

それ以外

sql = sql＆and [description] like '％＆querywords（i）＆％'

endif

endif

次

'キーワードの検索フィールド

sql = sql＆）または（[keywords] like '％＆querywords（0）＆％'

fori = lbound（querywords）+1toubound（querywords）

ifquerywords（i）<> anducase（querywords（i））<> oranducase（querywords（i））<> and then

ifucase（querywords（i-1））= orthen

sql = sql＆または[キーワード] '％＆querywords（i）＆％'

それ以外

sql = sql＆and [keywords] fike '％＆querywords（i）＆％'

endif

endif

次

'タイトルフィールドを検索します

sql = sql＆）または（[title] like '％＆querywords（0）＆％'

fori = lbound（querywords）+1toubound（querywords）

ifquerywords（i）<> anducase（querywords（i））<> oranducase（querywords（i））<> and then

ifucase（querywords（i-1））= orthen

sql = sql＆または[title] like '％＆querywords（i）＆％'

それ以外

sql = sql＆and [title] like '％＆querywords（i）＆％'

endif

endif

次