Show
Ignore:
Timestamp:
2007-09-27 01:35:08 (14 months ago)
Author:
wwalc
Message:

Enabling Safari and Opera compatibility in ASP integration file.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • FCKeditor/trunk/fckeditor.asp

    r605 r891  
    190190Function FCKeditor_IsCompatibleBrowser() 
    191191 
     192 
    192193        Dim sAgent 
    193194        sAgent = Request.ServerVariables("HTTP_USER_AGENT") 
    194195 
    195196        Dim iVersion 
     197        Dim re, Matches 
    196198 
    197199        If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0  AND InStr(sAgent, "Opera") <= 0 Then 
     
    201203                iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) ) 
    202204                FCKeditor_IsCompatibleBrowser = ( iVersion >= 20030210 ) 
     205        ElseIf InStr(sAgent, "Opera/") > 0 Then 
     206                iVersion = CSng( FCKeditor_ToNumericFormat( Mid( sAgent, InStr( sAgent, "Opera/" ) + 6, 4 ) ) ) 
     207                FCKeditor_IsCompatibleBrowser = ( iVersion >= 9.5 ) 
     208        ElseIf InStr(sAgent, "AppleWebKit/") > 0 Then 
     209                Set re = new RegExp 
     210                re.IgnoreCase = true 
     211                re.global = false 
     212                re.Pattern = "AppleWebKit/(\d+)" 
     213                Set Matches = re.Execute(sAgent) 
     214                FCKeditor_IsCompatibleBrowser = ( re.Replace(Matches.Item(0).Value, "$1") >= 522 ) 
    203215        Else 
    204216                FCKeditor_IsCompatibleBrowser = False