Changeset 891 for FCKeditor/trunk/fckeditor.asp
- Timestamp:
- 2007-09-27 01:35:08 (14 months ago)
- Files:
-
- 1 modified
-
FCKeditor/trunk/fckeditor.asp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
FCKeditor/trunk/fckeditor.asp
r605 r891 190 190 Function FCKeditor_IsCompatibleBrowser() 191 191 192 192 193 Dim sAgent 193 194 sAgent = Request.ServerVariables("HTTP_USER_AGENT") 194 195 195 196 Dim iVersion 197 Dim re, Matches 196 198 197 199 If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0 AND InStr(sAgent, "Opera") <= 0 Then … … 201 203 iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) ) 202 204 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 ) 203 215 Else 204 216 FCKeditor_IsCompatibleBrowser = False