어느 날 나 는 내 가 한 사이트 에 갈 때마다 그곳 에서 내 가 봐 야 할 정 보 를 바로 찾 을 수 있다 면 정말 아름 답지 않 을 까 하 는 생각 이 들 었 다.이어서 나 는 이 문 제 를 더욱 깊이 생각 하고 의자 에 앉 아 연필 한 자루 를 들 고 싶 었 지만 내 가 무엇 을 쓰 는 지 몰 랐 다.이렇게 되면 나 는 코드 그것들 에 대처 해 야 한다. 나의 친 구 는 원래 내 가 설계 한 작은 역 을 열 었 다.이것 은 나의 생각 을 검증 하 는 좋 은 플랫폼 이다.그래서 나 는 코드 를 써 서 파일 을 올 렸 다.정말 사람 을 흥분 시 키 고 절차 가 원만 하 게 진행 되 는 동시에 나의 생각 이 정말 좋다 는 것 을 증명 한다.예전 에 일부 인터넷 사용자 들 의 경향 보 고 를 본 적 이 있 는데 그 중 하 나 는 나 에 게 깊 은 인상 을 주 었 다.대부분의 사용자 들 이 세 번 의 클릭 으로 자신 이 필요 로 하 는 내용 을 찾 지 못 하면 바로 이 사 이 트 를 떠난다 고 한다.내 코드 는 이 문 제 를 겨냥 할 수 있다.보험 사용 자 는 마 우 스 를 한 번 만 누 르 면 목 표를 찾 을 수 있다.제 예 에서 어떤 사용자 가 Yaoo 에 올 랐 다 고 가정 하면 검색 키 워드 는 Fireplace 입 니 다. 액세서리.제 시 된 결과,그 는 내 친구 의 사이트 에 와 서"당신 은 Fireplace 를 검색 하고 있 습 니 다." Accessories"등 글자 의 화면.이 어 그 는 홈 페이지 의 안내 에 따라 원 하 는 페이지 로 바로 간다. 첫 번 째 단 계 는 global.asa 파일 에 초기 변 수 를 만들어 Sub 에 두 는 것 입 니 다. Session_onStart()프로그램 에서.
Sub Session_onStart()
Referer = Trim(Request.ServerVariables("HTTP_REFERER"))
If Referer = "" Then
Referer = "None"
End If
Session("Referer") = Referer
End Sub
이어서 우 리 는 프로그램의 주요 기능 을 어떻게 완성 하 는 지 살 펴 보 자. url 은 인 코딩 을 거 쳤 기 때문에 먼저 방문 자 호스트 의 지향 데 이 터 를 우리 에 게 유용 한 것 으로 복원 해 야 합 니 다.decode.asp 라 는 ASP 페이지 를 만 드 는 것 이 우리 프로그램의 주간 입 니 다.첫 번 째 기능 은 인 코딩 된 지향 머리 를 디 코딩 하 는 것 이다.프로그램 이 좀 길 고 직접적 이 며 빙빙 돌려 서 할 말 이 없다.귀 찮 으 면 www.popunet.com 의'인터넷 벌레 연수 반'에서 본문 을 찾 아'복사/붙 여 넣 기'대 법 을 사용 하 자. 소스 코드 두 번 째 할 일 은 URL 헤더 정보 에서 검색 부분 을 분리 하 는 것 입 니 다.이것 이 야 말로 우리 가 필요 로 하 는 것 입 니 다.
' URL 。
Function isProduct(pStr)
If pStr <> "" And lCase(pStr) <> "none" Then
'
temp = inStrRev(pStr, "/")
'
tempStr = Right(pStr, temp)
'
temp2 = Len(pStr)
'
pStr = Mid(pStr, temp, temp2)
'
isProduct = pStr
Else
isProduct = ""
End If
End Function
이 어 검색 의 명확 한 기준 을 확립 해 야 한다.이 목적 을 달성 하기 위해 두 개의 정적 공간 을 만 드 는 것 은?지향 데이터 찾기
Function Finder(byRef prodList, byVal refList)
'
refList = lCase(refList)
'
For i = 0 To uBound(prodList) - 1
If inStr(refList, lCase(prodList(i, 0))) Then
'
tHolder = tHolder & "Are You looking For " _
& "" _
& prodList(i, 0) & "
"
End If
'
Next
'
Finder = tHolderEnd Function
inclue, decode.asp , 。
:
' , If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then' Response.Write vbCrLf & "
" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
" & vbCrLf
End If