ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : (9)검색 페이지(BoardSearchList.asp)
글번호: 164
작성자: 레드플러스
작성일: 2004/04/22 오후 10:25:00
조회수: 4349
파일: boardsearchlist.asp (1 KB) / 전송수: 1331
<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardsearchlist.asp
' Program Description : 검색 결과 리스트 페이지
' QueryString : 검색폼에서 SearchField, SearchQuery
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] 변수 선언
Option Explicit
Dim SearchField: SearchField = Request("SearchField")
Dim SearchQuery: SearchQuery = Request("SearchQuery")
Dim objCon: Dim objRs: Dim strSql
'[2] 커넥션 객체의 인스턴스
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] Open() : 커넥션 스트링 지정
objCon.Open("Provider=SQLOLEDB.1;Password=Basic;Persist Security Info=True;User ID=Basic;Initial Catalog=Basic;Data Source=(local)")
'[4] 레코드셋 객체의 인스턴스
Set objRs = Server.CreateObject("ADODB.RecordSet")
'[5] Open() : 명령 실행(Select)
strSql = "Select * From Basic Where " & _
         SearchField & " Like '%" & _
         SearchQuery & "%' Order By Num Desc"
objRs.Open strSql, objCon
'[6] 출력
If objRs.BOF Or objRs.EOF Then
    Response.Write("<b style='color:red;'>" & SearchQuery & "</b>로 검색한 결과가 없습니다.")
Else
    Call ShowRecordSet(objRs)
End If
'[7] Close()
objRs.Close(): objCon.Close()
'[8] 객체 해제
Set objRs = Nothing: Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
%>
    <table border=1 width="100%">
<%
    While Not objRs.EOF
%>
    <TR onmouseover="this.style.backgroundColor='red';" onmouseout="this.style.backgroundColor='';">
        <TD><%=objRs("Num")%></TD>
        <TD><a href="./boardview.asp?Num=<%=objRs("Num")%>"><%=objRs("Title")%></a></TD>
        <TD><%=objRs("Name")%></TD>
        <TD><%=objRs("Email")%></TD>
        <TD><%=objRs("ReadCount")%></TD>
    </TR>
<%
        objRs.MoveNext()
    WEnd
%>
    <table>
<%
End Sub
%>
<a href="./boardlist.asp">검색종료</a>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 21. 파일 업로드 연습 - 관리자 2002-03-21 6331
  20. 기본형 게시판 작성 프로젝트 - 관리자 2001-07-08 6573
  1. 기본형 게시판 테이블 설계(Basic.sql) (1) Basic.sql(2 KB) 레드플러스 2004-04-20 4670
  2. 입력 페이지 설계 - 레드플러스 2004-04-22 4478
  (1)입력 폼(BoardWrite.asp) boardwrite.asp(861 Byte(s)) 레드플러스 2004-04-22 5299
  (2)입력 처리(BoardWriteProcess.asp) boardwriteprocess.asp(1 KB) 레드플러스 2004-04-22 4446
  입력 처리(BoardWriteProcess.asp) 기능 추가 : 태그/작은따옴표 등... boardwriteprocess(1).asp(2 KB) 레드플러스 2004-04-22 6267
  3. 출력 페이지 설계 - 레드플러스 2004-04-22 4329
  (3)출력 리스트(BoardList.asp) boardlist.asp(1 KB) 레드플러스 2004-04-22 4663
  페이징 연습 페이징.asp(966 Byte(s)) 레드플러스 2004-04-22 4337
  (3)출력 리스트(BoardList.asp) 기능 추가 : 페이징 처리(기본/고급) boardlist(1).asp(2 KB) 레드플러스 2004-04-27 6478
  (3)출력 리스트(BoardList.asp)에 사용되는 고급 페이징 함수 boardfunction.asp(1 KB) 레드플러스 2004-04-27 4697
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-22 4475
  (4)세부 출력 페이지(BoardView.asp) boardview.asp(1 KB) 레드플러스 2004-04-22 4742
  세부 출력 페이지(BoardView.asp) 기능 추가 : 조회수 증가 boardview(1).asp(1 KB) 레드플러스 2004-04-27 7157
  5. 수정 페이지 설계 - 레드플러스 2004-04-22 4192
  (5)수정 폼 페이지(BoardModify.asp) boardmodify.asp(1 KB) 레드플러스 2004-04-22 4498
  (6)수정 처리 페이지(BoardModifyProcess.asp) boardmodifyprocess.asp(1 KB) 레드플러스 2004-04-22 4557
  6. 삭제 페이지 설계 - 레드플러스 2004-04-22 4118
  (7)삭제 폼 페이지(BoardDelete.asp) boarddelete.asp(774 Byte(s)) 레드플러스 2004-04-22 4362
  (8)삭제 처리 페이지(BoardDeleteProcess.asp) boarddeleteprocess.asp(1 KB) 레드플러스 2004-04-22 4257
  7. 검색 페이지 설계 - 레드플러스 2004-04-22 4236
현재글 (9)검색 페이지(BoardSearchList.asp) boardsearchlist.asp(1 KB) 레드플러스 2004-04-22 4349
다음글 19. FSO(File System Object) : 파일(File) 처리 - 관리자 2001-03-03 8846
 
손님 사용자 Anonymous (손님)
로그인 Home