ASP mobil-detect og redirect

Detect mobile and redirect - et klassisk ASP script til Redirect("mobile"), hvis du vil tjekke browser-type og sende brugeren et specifekt sted hen. (Detect mobile and redirect - Classic ASP)

Virker til alle smartphones and alle browsere (Jan. '13)
Chrome har dog vanskeligheder ved at vise jQuery (Jan. '13)

<%

dim u,b,v

set u=Request.ServerVariables("HTTP_USER_AGENT")

set b=new RegExp

set v=new RegExp

b.Pattern="(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows (ce|phone)|xda|xiino"

v.Pattern="1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-"

b.IgnoreCase=true

v.IgnoreCase=true

b.Global=true

v.Global=true

if b.test(u) or v.test(Left(u,4)) then response.redirect("http://www.DINURL.dk/m.asp") end if

%>

Udskift www.DINURL.dk/m.asp med den adresse du ønsker skal vise, hvis din side ses på en smartphone!

Dansk worldweatheronline.com feed

Her er de (næsten fuldendte) danske oversættelser til http://www.worldweatheronline.com/feed/wwoConditionCodes.xml
Jeg arbejder på et icon-sæt som kan forløbigt kan downloades her!

<% ' ALLE OVERSÆTTELSER © JACOB JENSEN
  if wCode = 113 then wTxt = "Skyfrit"
  if wCode = 116 then wTxt = "Letskyet"  
  if wCode = 119 then wTxt = "Skyet"  
  if wCode = 122 then wTxt = "Overskyet"
  if wCode = 143 then wTxt = "Diset"
  if wCode = 176 then wTxt = "Spredte regnbyger"
  if wCode = 179 then wTxt = "Spredte snebyger"
  if wCode = 182 then wTxt = "Spredte sludbyger"
  if wCode = 185 then wTxt = "Mulighed for isslag"
  if wCode = 200 then wTxt = "Lokale tordenbyger"
  if wCode = 227 then wTxt = "Snefygning. ADVARSEL!"
  if wCode = 230 then wTxt = "Snestorm"
  if wCode = 248 then wTxt = "Tåget"
  if wCode = 260 then wTxt = "Rimtåge"
  if wCode = 263 then wTxt = "Spredt støvregn"
  if wCode = 266 then wTxt = "Støvregn"
  if wCode = 284 then wTxt = "Fare for Isslag. ADVARSEL!"
  if wCode = 293 then wTxt = "Spredte regnbyger"
  if wCode = 296 then wTxt = "Let regn"
  if wCode = 299 then wTxt = "Spredte kraftige regnbyger"
  if wCode = 302 then wTxt = "Kraftige regnbyger"
  if wCode = 305 then wTxt = "Til tider kraftige regnbyger"
  if wCode = 308 then wTxt = "Kraftige regnbyger"
  if wCode = 311 then wTxt = "Sludbyger"
  if wCode = 314 then wTxt = "Moderate sludbyger"        

  if wCode = 323 then wTxt = "Spredte snebyger"         
  if wCode = 326 then wTxt = "Lette snebyger"
 
  if wCode = 335 then wTxt = "Kraftige snebyger"

%>

Wind Chill-Faktor formular til ASP

Skal man regne windchill-faktoren ud kan man brugen nedenstående formel. De fleste udenlandske web-vejr-tjenester tilbyder både C og F, men i dette exempel er brugt MPH og F

<%
'wind-chill faktor
windChill = (((((((35.74)+(((0.6215)*(temp_F)))))-(((35.75)*(windMPH^0.16)))))+(((((0.4275)*(temp_F)))*(windMPH^0.16)))))
' fra F til C
windChill = formatNumber((5/9)*(windChill-32),0)
' fra mph til ms
windMS = windMPH*0.44704 
%>

Vejret på Frederiksberg

Skal nok ses på mit website for fuldt 'vision'
Kan nemt tilpasset et responsive design!

Fjern a href fra string i ASP

Her er en lille stump kode til at fjerne <a href> fra en string i klassisk ASP

Set regEx = New RegExp


'Fjern <a href="*"></a> TAG *********************************
oncmds = "<a\s+href=""http://(.*?)"">\s*((\n|.)+?)\s*</a>"
regEx.Pattern = oncmds
regEx.IgnoreCase = True
regEx.Global = True
noLinkTxt = regEx.Replace(noLinkTxt, "")

'Fjern <img> TAG ********************************************
noLinkTxt = Replace(noLinkTxt, "<img.*?)""/>\s*((\n|.)+?)\s*", "")

response.write(noLinkTxt)

Flash vejr widget

Så lykkedes det endelig at få min flash-vejr-widget lavet. Der har været problemer undervejs, specielt pga. flash security-policy som gør det besværligt at hente variabler fra andre servere.
Jeg lavede et ASP-Script til at generere XML-siden server-side og dermed tror Flash at den får variablerne fra den lokale server og ikke en remote server.

Jeg henter data fra http://www.weather.com/, hvor jeg har oprettet en konto gratis.

Cross Domain Endelig version

Skal du have XML ind i Flash fra et andet domæne? Så kan du benytte følgende ASP-script:

<% 
url = "DIN-XML-FIL.XML"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", url, false 
xmlhttp.send "" 

sText = xmlhttp.responseText

Function HTMLDecode(sText)
  Dim I
    sText = Replace(sText, """, Chr(34))
    sText = Replace(sText, "<" , Chr(60))
    sText = Replace(sText, ">" , Chr(62))
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, " ", Chr(32))
    For I = 1 to 255
    sText = Replace(sText, "&#" & I & ";", Chr(I))
  Next

  HTMLDecode = sText
End Function

response.Write (sText)
'Response.write server.HTMLEncode(xmlhttp.responseText)
%>

Flash cross domain

Jeg har fundet løsningen på cross domain-problemet. Jeg lavede et ASP-script der henter XML-filen og derefter inddeler jeg den i et array.

<%
Response.Buffer = True
Dim objXMLHTTP, xml

Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
url="http://www.DIN-URL.dk/din-xml-fil.xml"

objXML.Open "GET", url , False
objXML.Send

'Response.Write objXML.responseText

myArray = Split(objXML.responseText," ") 

Dim counter 
for counter = 0 to UBound(myArray)
  Response.Write(counter & ": " & myArray(counter) & "<br />")
next

Set objXML = Nothing
%>

Eller hvis der skal hentes XML direkte ind kan det gøres sådan her:

<%
url = "http://www.server.com/DIN-URL.XML"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", url, false 
xmlhttp.send "" 

Response.write server.HTMLEncode(xmlhttp.responseText)
%>

Flash crossdomain problem

Her er en work-around til problemet med at få adgang til XML-data i Flash fra et andet domæne. Jeg har ikke testet endnu.

Klik her!

Bruger man crossdomain.xml skal den ligge på den server man HENTER data fra

SQL manager

Jeg er nu definitivt gået over til MySQL og har i den forbindelse ledt efter en god SQL Manager.

Ud over MS SQL Server Management Studio Express fandt jeg HeidiSQL som virker solid.

Adgang til gamle Access Database i Windows 7/IIS 7

Jeg har haft problemer med at få gamle access-databaser til at virke på Windows / IIS 7. Men nu har jeg fundet løsningen. For at registrere de gamle ADODB-driver i Windows 7 skal man først have installeret driveren. Dette gøres ved at åbne command prompt og skrive:

regsvr32 "%CommonProgramFiles%\System\ado\msado15.dll"

Hvis driveren registreres korrekt skulle det være muligt at komme i kontakt med database på localhost

Hvis siden stadig fejler skal man ind in IIS Manageren > Application Pool > Set Applications Pool Defaults og slå 32-Bits Applications til:

 Nu skulle det være muligt at få kontakt til den gamle access-database via IIS 7

Cross Domain

Har søgt en del på nettet omkring Cross Domain i Flash. Måske - jeg har ikke forsøgt endnu - kan problemet med at hente XML fra et andet sitet løses gennem et script der ligger lokalt på egen server. Måske en ASP-fil der konverterer XML'en - så tror jeg Flash vil tro at variablen kommer lokalt og ikke fra en anden server... Jeg har nu testet en del omkring crossdomain - og det kan godt lade sig gøre at generere et script i ASP/PHP/ASP.NET til at hente variabler ind i flash fra et andet domæne.

ASP.NET

Hen over sommeren er jeg begyndt at lege med .NET i Visual Studio 2010 (VS). Man skal lige vende sig til det, men det ser godt nok smart ud og jeg kan ikke forstå jeg ikke er gået i gang  noget før. Der er dog én ting som ikke er så fedt - og det er når man laver CSS. VS har ingen colorpicker! Men der er heldigvis hjælp at hente på MSDN, som også har mange andre spændende (og gratis) udvidelser til VS.

ASP-script til generering af links

Jeg skulle under udarbejdelsen af Aviisi.gl bruge en funktion til at smide en <a href> på alle links i en given string. Det er kommet til at se sådan ud:

<% 
Function LinkURLs(strInput) Dim iCurrentLocation  

Dim iLinkStart        
Dim iLinkEnd          
Dim strLinkText       
Dim strOutput         

iCurrentLocation = 1

Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0
iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1)
iLinkEnd = InStr(iLinkStart, strInput, " ", 1)

If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1

    Select Case Mid(strInput, iLinkEnd - 1, 1)
            Case ".", "!", "?"
            iLinkEnd = iLinkEnd - 1
    End Select

strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)

strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)

strOutput = strOutput & "" & strLinkText & ""

iCurrentLocation = iLinkEnd

Loop

strOutput = strOutput & Mid(strInput, iCurrentLocation)
LinkURLs = strOutput

End Function
%>

Sådan...

Efter mange år med Internettet som indtægtskilde, har jeg endelig besluttet at oprettet min egen blog. Bloggen er tænkt som inspiration, men også som en huskeliste til mig selv (og forhåbentligt andre).

Man støder tit på en lille god kode-stump, men et år efter kan man ikke finde den igen. Derfor vil jeg prøve at skrive om de ting jeg støder på - problemer og løsninger - gennem min færten på nettet.

Jacob Jensen, 26. juli 2008