The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Is it possible to edit this code for calling up the background image of the forum so that it does not display it if a user is viewing the forum with a mobile browser?
The code:
Thanks
The code:
Code:
if strPageBGImageURL = "" then
strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """" & " bgproperties=""fixed"""
else
strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """" & " bgproperties=""fixed"""
end if
Thanks
نوشته شده در
Try this:
Code:
if strPageBGImageURL = "" then
strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """" & " bgproperties=""fixed"""
else
strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """" & " bgproperties=""fixed"""
end if
Dim Match
Set Regex = New RegExp
With Regex
.Pattern = "(Android|Avantgo|Bada|BlackBerry|Blazer|Compal|Dolfin|Dolphin|Elaine|en-ph|Fennec|Hiptop|(hpw|web)OS|iP(hone|od|ad)|Iris|Kindle|LGE|Maemo|midp|Minimo|mmp|Mobile|NetFront|Opera M(obi|ini)|Palm|pda|Plucker|Pocket|PSP|Samsung|Silk-Accelerated|Skyfire|smartphone|symbian|Treo|up.browser|up.link|Vodafone|wap|windows ce|XDA|Xiino|Zune)"
.IgnoreCase = True
.Global = True
End With
If Regex.Test(Request.ServerVariables("HTTP_USER_AGENT")) Then
strTmpPageBGImageURL = ""
End If
نوشته شده در
Works well on Blackberry. I'll see if any users report any problems
Many thanks
Many thanks
نوشته شده در
You're welcome. If they experience issues, we'll need to get a look at their user agent string.