유저정보 구하기

response.write request.servervariables("HTTP_REFERER") & "<br>"
response.write Request.ServerVariables("REMOTE_ADDR") & "<br>"
'response.write Request.ServerVariables("Http_user_agent")
response.write gOs(Request.ServerVariables("Http_user_agent")) & "<br>"
response.write gBrowser(Request.ServerVariables("Http_user_agent"))


' 사용하는 OS종류를 가져옴
Function gOS(str)

    Dim gTemp
    gTemp = split(Replace(str,")",""),";")
   
    If Str = "" Then gOS = "UnKnown" : Exit Function 
    If UBound(gTemp) < 2 Then gOS = "Unknown" : Exit Function

    gOS = gTemp(2)
End Function


' 브라우져 종류 가져옴
Function gBrowser(str)

    Dim gTemp
    gTemp = split(Replace(str,")",""),";")
       
    If Str = "" Then gBrowser = "UnKnown" : Exit Function
    If UBound(gTemp) < 2 Then  gBrowser = "Unknown" : Exit Function

    gBrowser = gTemp(1)

End Function