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
'WEB > ASP' 카테고리의 다른 글
현재페이지 URL구하기 (0) | 2013.03.28 |
---|---|
아이피 구하기 (0) | 2013.03.28 |
바이너리 파일 읽기 쓰기 (0) | 2013.03.28 |
이미지 사이즈 구하기 (0) | 2013.03.28 |
URLDecode (0) | 2013.03.28 |