<%
'***************************************************************************
'IP 주소를 얻으십시오
'***************************************************************************
functionuserip ()
dimgetclientip
'클라이언트가 프록시 서버를 사용하는 경우 ServerVariables ( "http_x_forwarded_for") 메소드를 사용해야합니다.
getClientip = request.servariables ( "http_x_forwarded_for")
ifgetClientip = ""Orisnull (getClientip) orisempty (getClientip)
'클라이언트가 프록시를 사용하지 않으면 request.servervariables ( "remote_addr") 메소드를 사용해야합니다.
getClientip = request.servervariables ( "remote_addr")
endif
userip = getClientIP입니다
최종 기능 장애
'***************************************************************************
'IP 주소를 변환합니다
'***************************************************************************
functioncip (sip)
팁 = CSTR (SIP)
sip1 = 왼쪽 (팁, 고린 (instr (팁, ".))))
팁 = 중간
sip2 = 왼쪽 (팁, 고린 (instr (팁, ".)))))
팁 = 중간
sip3 = 왼쪽 (팁, int (instr (팁, ".")-1))
SIP4 = 중간
CIP = CINT (SIP1)*256*256*256+CINT (SIP2)*256*256+CINT (SIP3)*256+CINT (SIP4)
최종 기능 장애
'***************************************************************************
'대화 상자가 나타납니다
'***************************************************************************
서브 밸런트 (메시지)
message = replace (message, " '", "/'")
response.write ( "<cript> alert ( '"& message & "') </script>")
Endsub
'***************************************************************************
'이전 페이지로 돌아 가기, 일반적으로 정보가 완전히 제출되는지 판단 한 후 사용
'***************************************************************************
subgoback ()
response.write ( "<cript> history.go (-1) </script>")
Endsub
'***************************************************************************
'다른 연결을 리디렉션합니다
'***************************************************************************
Subgo (URL)