Jacob Jensen | Jacob Jensens blog om webdesign

Viser opslag med etiketten solution. Vis alle opslag

søndag den 27. januar 2013

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 
%>

fredag den 26. oktober 2012

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)

torsdag den 8. september 2011

Faldt lige over dette script. Eneste problem er at man ikke kan anvende billeder i pop-up'en, da den ligger inden i #displaybox. Har prøvet mig lidt frem, men kan ikke få vist billeder som baggrund i pop-up'en.

<head>
<style>
#displaybox {
   z-index: 10000;
   filter: alpha(opacity=50); /*older IE*/
   filter:progid:DXImageTransform.Microsoft.Alpha(opacity=50); /* IE */
   -moz-opacity: .50; /*older Mozilla*/
   -khtml-opacity: 0.5; /*older Safari*/
   opacity: 0.5; /*supported by current Mozilla, Safari, and Opera*/
   background-color:#000000;
   position:fixed; top:0px; left:0px; width:100%; height:100%; color:#FFFFFF; text-align:center; vertical-align:middle;
}

<script>
function clicker(){
   var thediv=document.getElementById('displaybox');
   if(thediv.style.display == "none"){
      thediv.style.display = "";
      thediv.innerHTML = "TEXTEN<a href='#' onclick='return clicker();'>LUK</a>";
   }else{
      thediv.style.display = "none";
      thediv.innerHTML = '';
   }
return false;
}
</script>

<body>
<div id="displaybox" style="display: none;"></div>
<a href='#' onclick='return clicker();'>ÅBEN VINDUE</a>
</body>

søndag den 31. juli 2011

Brug egne skrifter på dine Websites

Et forsøg på at ændre skrifttyper på en hjemmeside. Det virker fint i Firefox og Chrome, men ikke i Explorer.

<style type="text/css">
  @font-face {
  font-family: "My Custom Font";
  src: url(http://www.example.org/mycustomfont.ttf) format("truetype");
}
p.customfont { 
  font-family: "My Custom Font", Verdana, Tahoma;
}
</style>

<p class="customfont">Hello world!</p>

For understøttelse i IE, skal fonten konverteres til EOT-formatet. Jeg har fundet et glimrende online værktøj til at generere stylesheet'et og font'ne. Med @font-face Generator kan du uploade dine fonte og automatisk få genereret stylesheet og web-formater af fonten.

Bemærk: At fonten SKAL ligge i samme mappen som den side den skal vises på, ellers virker det ikke

Et hurtigt eksempel kan ses her!

onsdag den 6. juli 2011

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)
%>

tirsdag den 5. juli 2011

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)
%>

onsdag den 11. maj 2011

SQL problem Visual Studio 2010

Jeg kunne ikke få VS2010 til at generere INSERT, UPDATE og DELETE når jeg lavede en connection til min SQL-DB. Jeg fandt ud af det var fordi jeg ikke, da jeg oprettede databasen gennem VS2010 havde defineret et unikt felt.

Altså skal der sættes en primary key, men den skal også vælges specifikt når SqlDataSource konfigureres.

Da dette var gjort kunne jeg få koden autogeneret.

Jacob Jensen | Jacob Jensens blog om webdesign | jjweb.dk