인 스 턴 스 분석 은 ASP 프로 그래 밍 으로 네트워크 콘 텐 츠 를 빠르게 찾 을 수 있 는 코드 입 니 다.

어느 날 나 는 내 가 한 사이트 에 갈 때마다 그곳 에서 내 가 봐 야 할 정 보 를 바로 찾 을 수 있다 면 정말 아름 답지 않 을 까 하 는 생각 이 들 었 다.이어서 나 는 이 문 제 를 더욱 깊이 생각 하고 의자 에 앉 아 연필 한 자루 를 들 고 싶 었 지만 내 가 무엇 을 쓰 는 지 몰 랐 다.이렇게 되면 나 는 코드 그것들 에 대처 해 야 한다.  나의 친 구 는 원래 내 가 설계 한 작은 역 을 열 었 다.이것 은 나의 생각 을 검증 하 는 좋 은 플랫폼 이다.그래서 나 는 코드 를 써 서 파일 을 올 렸 다.정말 사람 을 흥분 시 키 고 절차 가 원만 하 게 진행 되 는 동시에 나의 생각 이 정말 좋다 는 것 을 증명 한다.예전 에 일부 인터넷 사용자 들 의 경향 보 고 를 본 적 이 있 는데 그 중 하 나 는 나 에 게 깊 은 인상 을 주 었 다.대부분의 사용자 들 이 세 번 의 클릭 으로 자신 이 필요 로 하 는 내용 을 찾 지 못 하면 바로 이 사 이 트 를 떠난다 고 한다.내 코드 는 이 문 제 를 겨냥 할 수 있다.보험 사용 자 는 마 우 스 를 한 번 만 누 르 면 목 표를 찾 을 수 있다.제 예 에서 어떤 사용자 가 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