ASP를 사용하여 검색하는 것은 쉽지만 지능형 검색을 구현하는 것은 좀 더 피곤합니다. 사실 모든 프로그램은 주로 데이터베이스의 처리 능력에 따라 다릅니다. 일반적으로 소규모 웹사이트의 경우 ASP와 짝을 이루는 경우가 많습니다. ACCESS 데이터베이스에서는 대소문자를 구분하지 않고 키워드를 검색하고 강조 표시하려면 ASP의 일반 처리를 사용해야 합니다. 다음 코드를 참조하십시오.
다음과 같이 코드 코드를 복사합니다.
<%
함수 테이크아웃(patrn,string1,colors)
'검색어와 일치하는 텍스트를 추출합니다
Dim regEx, Match, Matches, tt '변수를 생성합니다.
Set regEx = New RegExp ' 정규식을 만듭니다.
regEx.Pattern = patrn ' 패턴을 설정합니다.
regEx.IgnoreCase = True ' 대소문자 구분 여부를 설정합니다.
regEx.Global = True ' 전역 가용성을 설정합니다.
Set Matches = regEx.Execute(string1) '검색을 실행합니다.
일치 항목의 각 일치 항목에 대해 ' 일치 항목 컬렉션을 탐색합니다.
RetStr = RetStr & Match.Value &
다음
RetStr = 트림(RetStr)
instr(RetStr, )>0이면
tt = 0에서 ubound(split(RetStr, ))로
string1 = 대체(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
다음
또 다른
string1 = 바꾸기(string1,RetStr,<font color=&colors&>&RetStr&</font>)
종료하면
테이크아웃 = string1
기능 종료
response.write 테이크아웃(jOeKOe, Joekoe Joeko 이중언어 버전, 빨간색)
Function Highlight(strContent,keyword) '강조된 키워드 표시
희미한 정규식
RegEx=new RegExp 설정
RegEx.IgnoreCase =True '대소문자를 구분하지 않음
RegEx.Global=참
희미한 배열키워드,i
ArrayKeyword = Split(keyword, )'공백으로 구분된 여러 키워드
i=0인 경우 Ubound(ArrayKeyword)로
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
다음
RegEx=아무것도 설정하지 않음
하이라이트=strContent
기능 종료
response.write 하이라이트(Joekoe 이중 언어 버전,jOeKOe)
%>