먼저 액세스 데이터베이스를 구축하십시오. 라이브러리에는 URL 및 키워드 필드가 다음과 같이 추가됩니다.
| 다음은 참조 내용입니다. URL 텍스트 (색인 : 거기 (중복 없음)) 제목 텍스트 설명 텍스트 요약 텍스트 키워드 텍스트 (색인 : 거기 (중복 없음)) |
프로그램 파일 doquery.asp, 코드 :
| 다음은 참조 내용입니다. <html> <head> <title> 간단한 검색 엔진 </title> </head> <bodybgcolor =#ffffffffmarginwidth = 0marginheight = 0 LeftMargin = 0TopMargin = 0> <formmethod = postaction = doquery.asp? 쿼리 : <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 = {microsoftaccessdriver (*. mdb)}; setsession (siteesearch_conn) = conn endif '쿼리 문 sql = [urlindex]에서*선택* '설명 필드를 검색하십시오 SQL = SQL & ([설명]과 같은 '%& querywords (0) &%'먼저 fori = lbound (querywords)+1toubound (querywords) ifquerywords (i) <> anducase (Querywords (i)) <> Orangewords (i)) 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)) <> Orangewords (i)) 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)) <> Orangewords (i)) 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)) <> Orangewords (i)) ifucase (querywords (i-1)) = Orthen SQL = SQL & 또는 '%& querywords (i) &%'와 같은 [요약] 또 다른 SQL = SQL & 및 [요약]과 같은 '%& querywords (i) &%' endif endif 다음 SQL = SQL &) ' setrs = server.createobject (adodb.oldset) Rs.Opensql, Conn, 3,3 Response.write <br> <b> 검색 한 내용은 다음과 같습니다. </b> & querystring 응답 <br> <b> 검색 키워드 : </b> fori = lbound (Querywords) toubnsnd (Querywords) response.write <br> & strindent & i & : & querywords (i) 다음 'printthesqlstring response.write <br> <b> sql 문 : </b> & sql 'Printtheresults 응답 <br> <b> 결과 : </b> <ul> onerrersumenext rs.movefired dowhilenotrs.eof rite.write <br> & <ahref = 'OpenPage.asp? Response.writers.fields (설명) & <br> response.write <fontsize = 2> url : & rs.fields (url) & </font> response.write <hrsize = 1width = 200align = left> rs.movenext 고리 응답 </ul> endif %> </body> </html> |