권장 : FileSystemObject 샘플 코드 이 섹션에 설명 된 샘플 코드에서는 파일 시스템 개체 객체 패턴에서 사용 가능한 많은 기능을 설명하기 위해 실제 예제가 제공됩니다. 이 코드는 객체 패턴을 함께 사용하는 방법의 모든 기능과 자신의 코드에서 효과적으로 사용하는 방법을 보여줍니다.
먼저 액세스 데이터베이스를 만듭니다. 라이브러리에는 URL 및 키워드 필드가 각각 색인화되는 Urlindex 테이블이 있습니다.
| 다음은 인용 된 내용입니다. 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> |
공유 : 로그인 확인 페이지를 만드는 방법 사용자 로그인 검증 스크립트, chkpwd.asp 다음은 참조 된 내용입니다.