<%
' 20170616 문자팀 권영문 팀장
' 메모 : https로 리디렉션하여 들어오는 모든 사이트를 https://www.tongkni.co.kr로 변경
%>
<%
'HTTP 요청을 한 클라이언트의 아이피(IP)
ip=Request.ServerVariables("REMOTE_ADDR")
'HTTP 요청을 한 클라이언트 호스트 명 - 정보가 없으면 REMOTE_ADDR과 같음
remote_host=Request.ServerVariables("REMOTE_HOST")
'HTTP 요청을 받은 서버 호스트 명( 도메인 명 )
http_host=Request.ServerVariables("HTTP_HOST")
'이전페이지
referer=Request.ServerVariables("HTTP_REFERER")
'현재페이지의 uri - url이 아님
url=Request.ServerVariables("URL")
%>
<%
' If request.ServerVariables("https") = "on" Then
' If request.ServerVariables("server_name") <> "www.tongkni.co.kr" Then
' response.redirect "https://www.tongkni.co.kr" & request.ServerVariables("path_info")
' End If
' Else
%>
<%
' End If
%>
<%
' redirect_url = request.Form("redirect_url")
'
'Set dbConn = Server.CreateObject("ADODB.connection")
'
'Set rs = server.createobject("ADODB.Recordset")
' 외부에서 링크 클릭해서 들어올때만 작업.
'If referer <> "" Then
' refererSplitArr = Split(referer,"/")
' refererDomain = refererSplitArr(0)&"//"&refererSplitArr(1)&refererSplitArr(2)
'
'' 현재 시간 수집
' nowDate = Year(now)&"-"&Month(now)&"-"&Day(now)
'' 참조사이트
' refSite = Split(refererDomain,"//")(1)
'' 방문URL
' visitUrl = http_host&url
'
'' 226서버 test_project db 연결
' dbConn.open projectConn226
'
'
'' 통큰사이트에서 이동시는 방문정보 기록하지 않음
' If refererDomain <> "https://www.tongkni.co.kr" And refererDomain <> "http://www.tongkni.co.kr" And refererDomain <> "http://tongkni.co.kr" And refererDomain<>"" Then
'
'' 수집된 방문기록 정보 insert Sql
' insertSql = "insert into 방문기록_list_test1018(참조사이트,참조URL,방문URL,접속IP,접속일시) "
' insertSql = insertSql&"values ('"&refSite&"','"&referer&"','"&visitUrl&"','"&ip&"','"&nowDate&"')"
' dbConn.execute(insertSql)
'
' If redirect_url = "" Then
' redirect_url = "https://www.tongkni.co.kr/index.asp"
' End If
'
' End If
'End If
'
' If redirect_url = "" Then
' redirect_url = "https://www.tongkni.co.kr/index.asp"
' End If
%>
<%
' '80 포트 접근일시 https 로 리다이렉트
' If Request.ServerVariables("SERVER_PORT")=80 Then
' Dim strSecureURL
' strSecureURL = "https://"
' strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
' Response.Redirect strSecureURL
' End If
'
' redirect_url = request.Form("redirect_url")
'
' If redirect_url = "" Then
redirect_url = "https://www.tongkni.co.kr/index.asp"
' End If
%>
통큰아이 | 인터넷사업의 필수요건
<![CDATA[
<body>
<p>이 페이지에서 프레임을 사용하지만 브라우저에서는 지원하지 않습니다.</p>
</body>
]]>