Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 browser check		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Sonic
New Member

Germany
82 Posts
Posted - 29 October 2005 :  06:10:38  Show Profile  Visit Sonic's Homepage  Reply with Quote
maybe a mod for the forum / whole page
i use it on my whole site

features:
check the client browser
check the client version
check the client os
check if the browser can pass the site

first of all big thanks to marcelg for the spider and mobile code (included here)


--> demo screen




make a file called --> <font color="red">browser_check.asp</font id="red">

<%
userAgent = request.serverVariables("HTTP_USER_AGENT")

browser_Name     = "Unbekannt"
browser_Ncheck   = "false"
browser_Version   = 0
browser_Vcheck    = "false"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0

'############### Mozilla
If inStr(userAgent,"Mozilla") > 0 then
browser_Name     = "Mozilla"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"rv")+3,3)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Mozilla Firebird
If inStr(userAgent,"Firebird") > 0 then
browser_Name     = "Mozilla Firebird"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Firebird")+9,4)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Mozilla Firefox
If inStr(userAgent,"Firefox") > 0 then
browser_Name     = "Mozilla Firefox"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Firefox")+8,3)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 1
end If 

'############### Mozilla K-Meleon
If inStr(userAgent,"K-Meleon") > 0 then
browser_Name     = "Mozilla K-Meleon"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"K-Meleon")+9,5)
 If mid(browser_Version,4,1) = "" then
 browser_Version  = mid(userAgent,inStr(userAgent,"K-Meleon")+9,3)
 end If 
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Mozilla Phoenix
If inStr(userAgent,"Phoenix") > 0 then
browser_Name     = "Mozilla Phoenix"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Phoenix")+8,3)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Internet Explorer
If inStr(userAgent,"MSIE") > 0 then
browser_Name     = "Internet Explorer"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"MSIE")+5,4)
 If mid(browser_Version,4,1) = ";" then
 browser_Version  = mid(userAgent,inStr(userAgent,"MSIE")+5,3)
 end If 
 If browser_Version >= 4 then
 browser_Vcheck    = "ok"
 browser_pass    = 1
 else
 browser_Vcheck    = "false" 
 browser_pass    = 0
 end if
browser_Spider   = 0
browser_Mobile   = 0
end If 

'############### Crazy Browser
If inStr(userAgent,"Crazy") > 0 then
browser_Name     = "Crazy Browser"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Crazy Browser")+14,5)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Galeon
If inStr(userAgent,"Galeon") > 0 then
browser_Name     = "Galeon"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Galeon")+7,6)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Konqueror
If inStr(userAgent,"Konqueror") > 0 then
browser_Name     = "Konqueror"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Konqueror")+10,5)
 If ( mid(browser_Version,2,1) = ";" or mid(browser_Version,2,1) = ")" )then
 browser_Version  = mid(userAgent,inStr(userAgent,"Konqueror")+10,1)
 end If 
 If ( mid(browser_Version,4,1) = ";" or mid(browser_Version,4,1) = ")" )then
 browser_Version  = mid(userAgent,inStr(userAgent,"Konqueror")+10,3)
 end If 
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Opera
If inStr(userAgent,"Opera") > 0 then
browser_Name     = "Opera"
browser_Ncheck    = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Opera")+6,4)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Safari
If inStr(userAgent,"Safari") > 0 then
browser_Name     = "Safari"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Safari")+7,5)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Lotus-Notes
If inStr(userAgent,"Lotus-Notes") > 0 then
browser_Name     = "Lotus Notes"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Lotus-Notes")+12,3)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Lynx
If inStr(userAgent,"Lynx") > 0 then      'Lynx
browser_Name     = "Lynx"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Lynx")+5,5)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Netscape
If inStr(userAgent,"Netscape") > 0 or inStr(userAgent,"Nav") > 0 then
browser_Name     = "Netscape"
browser_Ncheck   = "ok"
browser_Version   = mid(userAgent,inStr(userAgent,"Netscape")+5,5)
browser_Vcheck    = "ok"
browser_Spider   = 0
browser_Mobile   = 0
browser_pass    = 0
end If 

'############### Spider
If inStr(userAgent,"bot") > 0 or _      
  inStr(userAgent,"perl") > 0 or _
  inStr(userAgent,"java") > 0 or _
  inStr(userAgent,"libw") > 0 or _
  inStr(userAgent,"crawl") > 0 or _
  inStr(userAgent,"DA 7") > 0 or _
  inStr(userAgent,"DA 6") > 0 or _
  inStr(userAgent,"DA 5") > 0 or _
  inStr(userAgent,"DA 4") > 0 or _
  inStr(userAgent,"DA 3") > 0 or _
  inStr(userAgent,"DA 2") > 0 or _
  inStr(userAgent,"DA 1") > 0 or _
  inStr(userAgent,"download") > 0 then
browser_Name     = "Spider"
browser_Ncheck   = "false"
browser_Version   = 0
browser_Vcheck    = "false"
browser_Spider   = 1
browser_Mobile   = 0
browser_pass    = 0
end if

'############### Mobile
If inStr(userAgent,"pda") > 0 or _ 
  inStr(userAgent,"wap") > 0 then
browser_Name     = "Mobile"
browser_Ncheck   = "false"
browser_Version   = 0
browser_Vcheck    = "false"
browser_Spider   = 0
browser_Mobile   = 1
browser_pass    = 0
end if



'############### OS

If inStr(userAgent,"Win") > 0 then
browser_OS = "Windows"
browser_OScheck = "ok"

elseIf inStr(userAgent,"Mac") > 0 then
browser_OS = "Macintosh"
browser_OScheck = "warn"

elseIf inStr(userAgent,"Linux") > 0 then
browser_OS = "Linux"
browser_OScheck = "warn"

elseIf inStr(userAgent,"Unix") > 0 then
browser_OS = "Unix"
browser_OScheck = "warn"

elseIf inStr(userAgent,"SunOS") > 0 then
browser_OS = "Sun Solaris"
browser_OScheck = "warn"

elseIf inStr(userAgent,"FreeBSD") > 0 then
browser_OS = "FreeBSD"
browser_OScheck = "warn"

else
browser_OS = "Unbekannt"
browser_OScheck = "warn"
end If
%>



to pass a browser set:
browser_pass = 0
to
<font color="red">browser_pass = 1</font id="red">

you can make version number checks too
(see above for internet explorer)

the variable -->
<font color="navy">browser_OScheck =
browser_Ncheck =
browser_Vcheck = </font id="navy">
can set to -->
"ok" "false" "warn"
(used to display icons on the error page,
if you don't want you can delete it)

########################################################
########################################################

the browser check
should be checked on the first page of your site
normaly --> default.asp or index.asp




<!--#INCLUDE FILE="browser_check.asp" -->
<%
<font color="red">if browser_pass = 1 or Request.QueryString("site") = "view" then</font id="red">
<font color="green">' ### content of the page to see it</font id="green">

<font color="red">elseif browser_Spider = 0 and browser_Mobile = 0 then</font id="red">
<font color="navy">Response.Redirect "browser_check_result.asp?site=error"</font id="navy">
<font color="green">' ### call error page if browser don't pass the test</font id="green">

<font color="red">elseif browser_Spider = 0 and browser_Mobile = 1 then</font id="red">
<font color="navy">Response.Redirect "browser_check_result.asp?site=mobile"</font id="navy">
<font color="green">' ### call mobile page if browser is a mobile</font id="green">

else
<font color="navy">Response.Redirect "browser_check_result.asp?site=spider"</font id="navy">
<font color="green">' ### call spider page if browser is a spider or someone want to pass it manualy</font id="green">
end if

<font color="red">if Request.QueryString("site") = "error" then</font id="red">
<font color="navy">Response.Redirect "browser_check_result.asp?site=error"</font id="navy">
<font color="green">' ### call error page to test it --> enter default.asp?site=error to see it</font id="green">
end if
%>



########################################################
########################################################

the browser check result page
display errors
spiders
mobile


<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="browser_check.asp" -->
<%
select case Request.QueryString("site")

<font color="red">'############### browser check result beginn</font id="red">

case "error"
%>
<br>

page can not be displayed

to see the page anyway (without warenty) <a href="default.asp?site=view">click here</a>

<TABLE cellSpacing=3 cellPadding=3 border=0>
<TBODY>
<tr><td width="200">Browser Details:</td><td><% = request.serverVariables("HTTP_USER_AGENT")%></td></tr>
<tr><td>Browser Name:</FONT></td><td><img src="icon_<% = browser_Ncheck %>.gif" width="15" height="15" border="0" align="absmiddle"> <% = browser_Name %></td></tr>
<tr><td>Browser Version:</FONT></td><td><img src="icon_<% = browser_Vcheck %>.gif" width="15" height="15" border="0" align="absmiddle"> <% = browser_Version %></td></tr>
<tr><td>Betriebssystem:</FONT></td><td><img src="icon_<% = browser_OScheck %>.gif" width="15" height="15" border="0" align="absmiddle"> <% = browser_OS %></td></tr>
</TBODY>
</TABLE>
<br>
<br>
<%
<font color="red">'############### browser check result end


'############### browser check mobile beginn</font id="red">

case "mobile"

%>
page can not been displayed for mobile browser!
<%

<font color="red">'############### browser check mobile end


'############### browser check spider beginn</font id="red">

case "spider"
'show nothing

<font color="red">'############### browser check spider end</font id="red">

case else
'show nothing

end select
%>


you can modyfy it like me

--> users who can not pass the check can send me a mail with their client browser version and i can test it and set variable to "pass"
and many more things
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag
Edited by - Sonic on 29 October 2005 06:21:27

dayve
Forum Moderator

USA
5820 Posts
Posted - 29 October 2005 :  11:02:24  Show Profile  Visit dayve's Homepage  Reply with Quote
Check the active users mod. It includes a browser/os identification routine that I feel is a bit more streamlined.<
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.14 seconds. Powered By: Snitz Forums 2000 Version 3.4.07