Script

2003-01-12

ASP-gästbok

Asp

Enkel komplett gästbok med paging (visar flera sidor med poster)

<html>
<head><title>Gästbok</title>
<style type="text/css"><!--
body, td { font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 11px }
a:link { font-size: 11px; color: 333333; text-decoration: none; font-weight:bold }
a:visited { font-size: 11px; color: 666666; text-decoration: none; font-weight:bold }
a:hover { font-size: 11px; color: 0066ff; text-decoration: none; font-weight:bold }
--></style>
<meta name="author" content="Rolf Fredriksson, rosiro">
</head>
<body>
<% set conn = server.createobject("ADODB.connection")
dbq = server.mappath("gastbok.mdb")
conn.open ("driver={Microsoft Access Driver (*.mdb)};dbq=" & dbq)

namn = replace(trim(request.form("namn")), "'", "''") 'byt även ut lodstreck...
inlagg = replace(trim(request.form("inlagg")), "'", "''") 'byt även ut lodstreck...
if namn <> "" and inlagg <> "" and session("skickat") <> "j" then
    sql = "insert into gastbok (namn, inlagg)"
    sql = sql & " values('" & namn & "', '" & inlagg & "')"
    session("skickat") = "j"
    conn.execute(sql)
end if

sql = "select *, format$(datum,'yyyy-mm-dd kl hh:mm') as datumtid"
sql = sql & " from gastbok order by datum desc"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, conn, 3, 3    'adOpenStatic, adLockOptimistic
antal = rs.recordcount

page = cint(request.querystring("page"))
const pagesize = 5
rs.move page * pagesize %>

<table border="0" cellspacing="0" cellpadding="2" width="400" align="center">
<form action="gastbok.asp" method="post">
<tr><td colspan="2">
Namn...<br>
<input name="namn" type="text"><br>
Skriv i gästboken...<br>
<textarea cols="45" rows="4" name="inlagg" wrap="virtual"></textarea><br>
<input type="submit" value="Skicka">
</td></tr>
</form>

<tr><td>
<% if page > 0 then %>
    <a href="gastbok.asp?page=<%= page - 1 %>">&laquo; Föreg</a>
<% end if %>
&nbsp;</td><td align="right">&nbsp;
<% if antal mod pagesize <> 0 then add = 1
if (antal\pagesize) + add > page + 1 then %>
    <a href="gastbok.asp?page=<%= page + 1 %>">Nästa &raquo;</a>
<% end if %>
</td></tr>
<% for i = 0 to pagesize - 1
    if rs.eof then
        exit for
    end if
    if i mod 2 = 0 then
        color = "eeeeee"
    else
        color = "dddddd"
    end if %>
    <tr bgcolor="<%= color %>"><td><b><%= server.HTMLencode(rs("namn")) %></b></td>
    <td align="right"><%= rs("datumtid") %></td></tr>
    <tr bgcolor="<%= color %>"><td colspan="2"><%= server.HTMLencode(rs("inlagg")) %></td></tr>
    <% rs.movenext
next
rs.close
conn.close %>
</table>

</body>
</html>

2003-01-09

Byt bild med DHTML

DHTML

Swapping an image inside a link on mouseOver

<script language="JavaScript">
function imgover(obj, txt) {
    obj.innerHTML='<img src=img2.gif border=0> ' + txt;
}
function imgout(obj, txt) {
    obj.innerHTML='<img src=img1.gif border=0> ' + txt;
}
</script>

<a href="otherpage.htm"
onMouseover="imgover(this, 'Other page');"
onMouseout="imgout(this, 'Other page');">
<img src=img1.gif border=0>Other page</a>

2003-01-07

Länk utan länk

Javascript

Kör en funktion genom att klicka på en länk

<a href="javascript:function();">Funktion och länk</a>

<a href="" onClick="function();return false;">Endast funktionen</a>

2003-01-07

Styr fönsterstorleken

Javascript

Det här scriptet kan användas för att maximera webläsarens fönster

function maximera() {
    if (window.screen) {
        var resWidth = screen.availWidth;
        var resHeight = screen.availHeight;
        if (resWidth >= 800 && resWidth >= 600){
            window.moveTo((resWidth - 800)/2, (resHeight - 600)/2);
            window.resizeTo(800, 600);
        } else {
            window.moveTo(0, 0);
            window.resizeTo(resWidth, resHeight);
        }
    } 
}

<body onLoad="maximera();">

2002-11-08

Cookierutiner

Javascript

Generella cookiefunktioner

function setCookie (cookieNamn, cookieVarde, antalGiltigaMinuter) {
    var cookieStr = cookieNamn + '=' + escape(cookieVarde);
    if (antalGiltigaMinuter > 0) {
        var exp = new Date();
        var giltigTill = exp.getTime() + (antalGiltigaMinuter * 60 * 1000);
        exp.setTime(giltigTill);
        cookieStr += '; expires=' + exp.toGMTString();
    } else if (antalGiltigaMinuter < 0) {
        var exp = new Date();
        var giltigTill = exp.getTime() - (1 * 60 * 60 * 1000);
        exp.setTime(giltigTill);
        cookieStr += '; expires=' + exp.toGMTString();
    }
    //cookieStr += '; path=/mappnamn';
    //cookieStr += '; domain=/domännamn';
    document.cookie = cookieStr;
} 

function getCookie(cookieNamn) {
    var crumbs = document.cookie.split('; ');
    for (var i in crumbs) {
        crumbName = crumbs[i].split('=')[0];
        crumbValue = unescape(crumbs[i].split('=')[1]);
        if (crumbName == cookieNamn) {
            return crumbValue;
        }
    }
    return '';
}