티스토리 뷰

WEB TIP/ASP

유입경로 함수

제프 2008. 11. 13. 22:17

출처 : Proalamor

URL 파싱 함수이며, 유입경로중에 도메인만 걸러내는 함수이다.

function URL_Parser(strURL)

   dim ObjRegExp
  on error resume next

   set ObjRegExp = New RegExp
  With ObjRegExp
      .Global = true
      .IgnoreCase = true
      .Pattern = "http://(([a-zA-Z][-a-zA-Z0-9]*([.][a-zA-Z][-a-zA-Z0-9]*){0,3})||([0-9]{1,3}([.][0-9]{1,3}){3}))"
      workURL = .Replace(strURL, "")
  end With
 
  set ObjRegExp = nothing

   URL_Parser = Replace(strURL, "http://", "", 1, -1, 1)

end function


HTTP_REFERER 를 이용해서 이전 URL 정보를 받는다.
얻어진 정보가 없다는것은 브라우저에서 직접 입력했거나 빈페이지에서 즐겨찾기등이라는것을 의미한다.
set_URL 값을 이용 통계 테이블에 해당 도메인이 존재하면 카운터 증가 / 없으면 추가 등으로 작업한다.

get_URL = Request.ServerVariables("HTTP_REFERER")

if get_URL = "" or isnull(get_URL) then
  set_URL = "Direct Connect"
else
  set_URL = URL_Parser(get_URL)
end If

'WEB TIP > ASP' 카테고리의 다른 글

SVN  (0) 2008.11.18
HTML 제거 함수  (0) 2008.11.13
SQL Injection  (0) 2008.11.13
SQL Server에서 사용할 수 있는 서버측 페이징기법  (0) 2008.10.27
ASP 해킹 방지 보안 방법(injection, cross site scription)  (0) 2008.10.27
댓글
공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/03   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
글 보관함