검색 엔진 기능과 유사한 코드를 작성하기 위해 ASP를 사용하는 해석

제목 텍스트

설명 텍스트

요약 텍스트

키워드 텍스트 (색인 : with (중복 없음))

<bodybgcolor =#ffffffmarginwidth = 0marginheight = 0

LeftMargin = 0TopMargin = 0>

<formmethod = postaction = doquery.asp? act = 검색>

쿼리 : <inputtype = textName = QueryString> <br>

<inputtype = admitvalue = 제출>

</form>

</센터>

<%

크게

act = request (act)

if (act = search) 그러면

querystring = request.form (QueryString)

QueryWords = split (QueryString)

strindent =

'검색이 비어 있으면 반환하십시오

ifQueryString = 그런 다음

Response.Redirect (default.asp)

endif

session.timeout = 2

ifisobject (session (setesearch_conn))

setconn = 세션 (siteesearch_conn)

또 다른

setconn = server.createobject (adodb.connection)

conn.opendriver = {Microsoft AccessDriver (*. mdb)}; dbq = & server.mappath (database/sitesearch.mdb) ,,

setsession (siteesearch_conn) = conn

endif

'쿼리 문

sql = [urlindex]에서*선택*

'검색 설명 필드

SQL = SQL & ([설명]과 같은 '% & querywords (0) &%' '

fori = lbound (querywords)+1toubound (querywords)

ifquerywords (i) <> anducase (Querywords (i)) <> oranducase (Querywords (i)) <> andthen

ifucase (querywords (i-1)) = Orthen

SQL = SQL & 또는 '%& Querywords (i) &%'와 같은 [설명]

또 다른

SQL = SQL & 및 [설명]과 같은 '%& querywords (i) &%'

endif

endif

다음

'검색 키워드 필드

sql = sql &) 또는 ([키워드]와 같은 '%& querywords (0) &%'

fori = lbound (querywords)+1toubound (querywords)

ifquerywords (i) <> anducase (Querywords (i)) <> oranducase (Querywords (i)) <> andthen

ifucase (querywords (i-1)) = Orthen

SQL = SQL & 또는 '%& querywords (i) &%'와 같은 [키워드]

또 다른

SQL = SQL & 및 [키워드] '%& Querywords (i) &%'와 같은 [키워드]

endif

endif

다음

'타이틀 필드 검색

SQL = SQL &) 또는 ([제목]과 같은 '%& querywords (0) &%'

fori = lbound (querywords)+1toubound (querywords)

ifquerywords (i) <> anducase (Querywords (i)) <> oranducase (Querywords (i)) <> andthen

ifucase (querywords (i-1)) = Orthen

SQL = SQL & 또는 [제목]과 같은 '%& Querywords (i) &%'

또 다른

SQL = SQL & 및 [제목]과 같은 '%& Querywords (i) &%'

endif

endif

다음