Script

2002-01-11

Nytt fönster

Javascript

Öppnar ett nytt fönster mitt på skärmen

<SCRIPT LANGUAGE="JavaScript">
<!--
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 
'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//-->
</SCRIPT>

länken:
<A HREF="fonster.html" 
ONCLICK="NewWindow(this.href,'name','500','420','yes');return 
false;">Öppna fönstret!</A>

2001-11-15

Nytt fönster

Javascript

Öppna ett nytt fönster med en länk

<a href="#" onClick="window.open('nysida.htm', 'ny', 'toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,width=400,height=400');return false">Öppna fönster</a>

2001-10-04

Reload i annat fönster

Javascript

Om du har öppnat ett nytt fönster och vill refresha innehållet i det gamla fönstret

onClick="window.opener.location.href='sida.htm';"

2001-09-06

Sortering

VBScript

Sortering av typen bubblesort

<html>
<head>
<title>Bubblesort</title>
</head>
<body>
<%
' Kollar så att varje nummer i slumpnummerlistan är unikt:
function kolla(siffra)
    kolla = false
    for i = 0 to ubound(lista)
        if lista(i) = siffra then
            kolla = true
            exit for
        end if
    next
end function

'Högsta resp. lägsta värdet slumpnumret kan ha:
ovregrans = 35
undregrans = 1

'antal slumpnummer i listan ( + 1 ):
dim lista(6)

pos = 0
randomize
'fyll upp listan med slumpnummer
do while pos < ubound(lista) + 1
    slumpnum = int(((ovregrans + 1) - undregrans) * rnd() + undregrans)
    if kolla(slumpnum) = false then
        lista(pos) = slumpnum
        pos = pos +1
    end if
loop

'*** Bubblesort*************************
antal = ubound(lista)

for i = 0 to antal - 1
    for j = i + 1 to antal            
        if lista(i) > lista(j) then
            tmp = lista(i)
            lista(i) = lista(j)
            lista(j) = tmp
        end if        
    next
next
'*************************************** 

'Visa den sorterade listan:
for i = 0 to ubound(lista)
    response.write(lista(i) & "<br>")
next
%>
</body>
</html>

2001-08-31

Säkerhet i Access

Asp

Kom åt dina lösenordsskyddade Accessdatabaser

<%
' ********************************************************************
dbq = server.mappath("databas.mdb")
set conn = server.createObject("ADODB.Connection")
conn.open ("provider=Microsoft.Jet.OLEDB.4.0;" _
    & "data source=" & dbq & ";" _
    & "Jet OLEDB:Database Password=dbpass;")
' ******************************************************************** 
%>