어느 날 문득, 웹사이트에 접속할 때마다 필요한 정보를 바로 불러올 수 있다면 참 좋겠다는 생각이 들었습니다. 다음으로 나는 내가 무엇을 쓰고 있는지도 모르고 연필을 들고 의자에 앉아 이 문제에 대해 좀 더 깊이 생각해 보고 싶었다. 이 경우에는 여전히 코딩을 처리해야 합니다.
??내 친구가 원래 내가 디자인한 작은 사이트를 열었습니다. 이것은 내 아이디어를 테스트할 수 있는 좋은 플랫폼입니다. 그래서 코드를 작성해서 파일을 올렸습니다. 정말 흥미롭고 프로그램이 완벽하게 작동하며 내 아이디어가 정말 좋다는 것도 증명되었습니다.
??이전에 인터넷 사용자 경향 보고서를 읽은 적이 있는데, 그중에 나에게 깊은 인상을 준 패턴이 있었습니다. 대부분의 사용자는 세 번의 클릭 이내에 필요한 것을 찾지 못하면 즉시 사이트를 떠난다고 합니다. 내 코드는 이 문제를 해결하고 사용자가 단 한 번의 마우스 클릭만으로 대상을 찾을 수 있도록 보장합니다. 내 예에서는 사용자가 Yahoo에 로그인하여 벽난로 액세서리(비행 장비 액세서리)를 검색한다고 가정합니다. 주어진 결과에서 그가 내 친구의 사이트를 방문하면 "당신은 벽난로 액세서리를 검색하고 있습니다"와 같은 단어가 포함된 화면을 보게 될 것입니다. 그런 다음 웹사이트의 지시에 따라 가고 싶은 페이지로 직접 이동합니다.
??당신이 해야 할 첫 번째 단계는 global.asa 파일에 초기 변수를 생성하고 이를 Sub Session_onStart() 프로그램에 배치하는 것입니다.
??하위 세션_onStart()
?? 참조자 = Trim(Request.ServerVariables("HTTP_REFERER"))
??참조자 = ""인 경우 그러면
??추천인 = "없음"
?? 끝이라면
??Session("Referer") = 추천자
??End Sub
??그럼 프로그램의 주요 기능을 완성하는 방법을 살펴보겠습니다.
??URL이 인코딩되었기 때문에 먼저 방문자 호스트의 포인팅 데이터를 유용한 것으로 복원해야 합니다. ASP 페이지를 만들고 프로그램의 백본인 decode.asp라고 부릅니다. 첫 번째 기능은 인코딩된 포인팅 헤더를 디코딩하는 것입니다. 절차는 약간 길고 매우 간단하며 번거롭다면 www.popunet.com 의 "인터넷 웜 교육 과정"으로 가서 이 기사를 찾아 사용하는 것이 좋습니다. "복사/붙여넣기" 방법.
??소스 코드에서 두 번째로 해야 할 일은
URL 헤더 정보에서 쿼리 부분을 분리하는 것입니다. 이것이 우리에게 필요한 것입니다.
'검색어 필드를 포인팅 URL과 분리하세요.
?함수 isProduct(pStr)
?? pStr <> "" 그리고 lCase(pStr) <> "none"이면
?? '검색 필드를 거꾸로
??temp = inStrRev(pStr, "/")
?? '디렉터리 분리 위치를 알아낸다
?? tempStr = 오른쪽(pStr, 온도)
??'관련 데이터 길이를 얻으세요
?? 온도2 = Len(pStr)
?? '쿼리 데이터 행 가져오기
??pStr = Mid(pStr, 온도, 온도2)
?? '반환 함수의 값을 설정합니다.
?? isProduct = pStr
??또 다른
??isProduct = ""
??끝나는 경우
?End 기능
??다음 단계는 검색에 대한 명확한 기준을 설정하는 것입니다.
이 목적을 달성하려면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 & "찾고 계시나요" _
??& "" _
??& prodList(i, 0) & "
??"
??끝나는 경우
??'두 번째 루프
??다음
??'반환 결과
??Finder = tHolderEnd 함수
??inclue를 통해 우리가 준비한 decode.asp를 이 기능이 필요한 페이지에 넣으면 끝입니다.
자세한 내용은 다음과 같습니다.
'포인팅 헤더가 비어 있지 않으면 이 함수를 호출합니다. If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then' 포인팅 데이터를 구문 분석합니다. Response.Write vbCrLf & "
??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
??" & vbCrLf
??끝나는 경우