웹마당넷 |ASP 검색 페이지에서 검색된 문자열의 색깔 바꾸기

ASP

제 목

ASP 검색 페이지에서 검색된 문자열의 색깔 바꾸기

작성자

웹마당넷

등록일

2008-10-03 18:31:50

조회수

208,405

[ASP 검색 페이지에서 검색된 문자열의 색깔 바꾸기]

목록(LIST) 페이지에서 검색을 할경우 어떤 문자열을 검색하였는지 검색된 문자열의 색깔을 바꾸어 눈에 확 띄게 해준다면 사용자에게는 아주 친철한 프로그램으로 기억될 것입니다. replace 함수를 이용한다면 구현 방법도 아주 쉽습니다.
잠깐 VBscript 에서 제공하는 Replace 함수의 원형을 알아보겠습니다.

Replace( 문자열, 찾을문자열, 바꿀문자열[, start] )

"문자열"에서 "찾을문자열"을 검색하여 "바꿀문자열"로 치완합니다. start 를 이용해서 "문자열"에서 검색을 시작할 위치를 지정할 수도 있습니다. start 부분이 생략되면 "문자열"의 처음부터 검색을 시작합니다.

바로 위의 Replace 함수를 이용해서 검색된 문자열을 "<font color='#FF0000'>" & 검색어 & "</font>로 치환하는 방법
이 사용됩니다. 아래는 검색어를 치환하는 간단한 예제입니다.

'//--- mode 가 검색일때
    If Request("mode")="search" Then
   searchText = Request("searchText") '//--- 전 페이지에서 넘어온 검색어
   searchItem = Request("searchItem")'//--- 전 페이지에서 넘어온 검색항목

   SQL = " SELECT "
   SQL = SQL & " Title, ReadNum, ....."
   '//..... 생략
   '//..... 생략
   mode = ""
   End If
   rs.PageSize = listCount
   rs.Open SQL,db,1,2,1

   If Not rs.EOF Then'// --- 레코드셋이 존재하면
   '//.... 생략
   Do until rs.EOF Or i >rs.PageSize '// --- 레코드셋과 페이지의 크기만큼 루프를 돈다
%>
<table width="620" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
   '//--- 전 페이지에서 넘어온 검색어인 searchText에 바꿀 문자열을 추가하여 searchTemp 에 대입합니다.
   searchTemp = "<font color='red' bgcolor='black'>" & searchText & "</font>"
   '//--- 레코드셋에서 가져온 내용(rs("Title") 중 검색어와 일치하는 문자열을 바꿀 문자열로 치완합니다.
   nTitle = replace( rs("Title"), searchText, searchTemp )
%>
<td width="375" height="25" class="grey-text"><%=nTitle%></td>
</tr>
</table>
<%
   rs.movenext
   Loop
   End If
%>

위의 부분 생략된 소스에서 눈여겨 보실 부분은 붉은색으로 주석 처리된 부분입니다. 따로 떼어서 옮겨적으면 아래의 세 부분으로 정리됩니다.

searchItem = Request("searchItem")'//--- 전 페이지에서 넘어온 검색항목

//--- 검색된 레코드셋인 rs("Title")을 목록(리스트) 출력 직전에 아래와 같이 치완합니다.
searchTemp = "<font color='red' bgcolor='black'>" & searchText & "</font>"
nTitle = replace( rs("Title"), searchText, searchTemp )

//--- 치완된 nTitle을 목로(리스트)에 출력합니다.
<td width="375" height="25" class="grey-text"><%=nTitle%></td>