권장 : ASP 3.0 고급 프로그래밍 (38) 8.3.3 연결 상태를 사용하여 연결 문자열을 애플리케이션 변수에 저장하는 것은 일반적인 속임수이며 포함 된 파일을 사용하는 것만 큼 효과적입니다. 예를 들어 Global.asa 파일에 다음 코드를 추가 할 수 있습니다 : sub application_onstart () strconn = "
아래는 라이브러리의 urlindex 테이블입니다. URL 및 키워드 필드가 각각 인덱싱되었습니다.
| URL 텍스트 (색인 : with (중복 없음)) 제목 텍스트 설명 텍스트 요약 텍스트 키워드 텍스트 (색인 : with (중복 없음)) |
doquery.asp
| <html> <head> <title> 간단한 검색 엔진 </title> </head> <body bgcolor =#ffffff marginwidth = 0 marginheight = 0 LeftMargin = 0 TopMargin = 0> <form 메소드 = post action = doquery.asp? act = search> 쿼리 : <입력 유형 = 텍스트 이름 = QueryString> <br> <입력 유형 = 제출 값 = 제출> </form> </센터> <% 희미한 행위 act = request (act) if (act = search) 그러면 querystring = request.form (QueryString) QueryWords = split (QueryString) strindent = '검색이 비어 있으면 반환하십시오 QueryString =이면 그렇다면 Response.Redirect (default.asp) 끝 If session.timeout = 2 iSobject (세션 (setesearch_conn)) 인 경우 conn = 세션 세트 (siteesearch_conn) 또 다른 set conn = server.createobject (adodb.connection) conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (database/siteesearch.mdb) ,,, 세션 설정 (siteesearch_conn) = conn 끝 If '쿼리 문 sql = [urlindex]에서 * 선택 * '검색 설명 필드 SQL = SQL & ([설명]과 같은 ' % & querywords (0) & %' '먼저 i = lbound (querywords) 1 to ubound (querywords)의 경우 QueryWords (i) <> 및 ucase (Querywords (i)) <> 및 Ucase (Querywords (i)) <> 그리고 그런 다음 UCASE (QueryWords (i-1)) = 또는 그런 다음입니다 SQL = SQL & 또는 ' % & Querywords (i) & %'와 같은 [설명] 또 다른 SQL = SQL & 및 [설명]과 같은 ' % & querywords (i) & %' 끝 If 끝 If 다음 '키워드 필드 검색 sql = sql &) 또는 ([키워드]와 같은 ' % & querywords (0) & %' i = lbound (querywords) 1 to ubound (querywords)의 경우 QueryWords (i) <> 및 ucase (Querywords (i)) <> 및 Ucase (Querywords (i)) <> 그리고 그런 다음 UCASE (QueryWords (i-1)) = 또는 그런 다음입니다 SQL = SQL & 또는 ' % & querywords (i) & %'와 같은 [키워드] 또 다른 SQL = SQL & 및 [키워드] ' % & Querywords (i) & %'와 같은 [키워드] 끝 If 끝 If 다음 '타이틀 필드 검색 SQL = SQL &) 또는 ([제목]과 같은 ' % & querywords (0) & %' i = lbound (querywords) 1 to ubound (querywords)의 경우 QueryWords (i) <> 및 ucase (Querywords (i)) <> 및 Ucase (Querywords (i)) <> 그리고 그런 다음 UCASE (QueryWords (i-1)) = 또는 그런 다음입니다 SQL = SQL & 또는 [제목]과 같은 ' % & Querywords (i) & %' 또 다른 SQL = SQL & 및 [제목]과 같은 ' % & Querywords (i) & %' 끝 If 끝 If 다음 '요약 필드 검색 sql = sql &) 또는 ([요약]과 같은 ' % & querywords (0) & %' i = lbound (querywords) 1 to ubound (querywords)의 경우 QueryWords (i) <> 및 ucase (Querywords (i)) <> 및 Ucase (Querywords (i)) <> 그리고 그런 다음 UCASE (QueryWords (i-1)) = 또는 그런 다음입니다 SQL = SQL & 또는 ' % & querywords (i) & %'와 같은 [요약] 또 다른 SQL = SQL & 및 [요약]과 같은 ' % & querywords (i) & %' 끝 If 끝 If 다음 SQL = SQL &) ' set rs = server.createobject (adodb.recordset) Rs. Open SQL, Conn, 3, 3 response.write <br> <b> 당신은 다음을 검색하고 있습니다 : </b> & querystring response.write <br> <b> 키워드 검색 : </b> i = lbound (querywords)에서 ubound (Querywords)의 경우 response.write <br> & strindent & i & : & querywords (i) 다음 'SQL 문자열을 인쇄하십시오 response.write <br> <b> sql 문 : </b> & sql '결과를 인쇄하십시오 응답 <br> <b> 결과 : </b> <ul> 다음에 오류가 재개됩니다 Rs.MoveFirst rs.eof가 아니라 response.write <br> & <a href = 'OpenPage.asp? indexurl = & rs.Fields (url) .Value &'> & rs.fields (title) & </a> - 응답. rs.fields (설명) & <br> 응답 <font size = 2> url : & rs.fields (url) & </font> 응답. <hr size = 1 너비 = 200 Align = 왼쪽> rs.movenext 고리 응답 </ul> 끝 If %> </body> </html> |
공유 : ASP 팁 예 : 양식 운영 프로그램 정보 다음은 참조 된 컨텐츠입니다. ASP가있는 데이터베이스에 양식 컨텐츠를 삽입합니다. <% ' - loader.asp -' - 버전 1.5.2