resize vindue til billed str..

Kan du bruge det i asp?

//Claus

Her er et eksempel hvor et lille billede vises som stort. Se eksempel på www.sonnerupgaard.dk

test.html:
**********
<a href="java script:void(0)" onclick="window.open('vis_billede.asp?billede=test.jpg','window','height=100,widht=100,scrollbars=no,menubar=no,toolbar=no,status=no,location=no')"><img border="0" src="test_small.jpg"  width="125" height="93"></a>



vis_billede.asp:
*****************
<%
' Funktionerne
Dim Size

Function AscAt(s, n)
    AscAt = Asc(Mid(s, n, 1))
End Function

Function HexAt(s, n)
    Dim lsH
    lsH = Hex(AscAt(s, n))
    If Len(lsH) <> 2 Then lsH = "0" & lsH
    HexAt = lsH
End Function

Function isJPG(filen)
    If inStr(uCase(filen), ".JPG") <> 0 Or inStr(uCase(filen), ".JPEG") <> 0 Then
        isJPG = true
    Else
        isJPG = false
    End If
End Function

Function isPNG(filen)
    If inStr(uCase(filen), ".PNG") <> 0 Then
        isPNG = true
    Else
        isPNG = false
    End If
End Function

Function isGIF(filen)
    If inStr(uCase(filen), ".GIF") <> 0 Then
        isGIF = true
    Else
        isGIF = false
    End If
End Function

Function isBMP(filen)
    If inStr(uCase(filen), ".BMP") <> 0 Then
        isBMP = true
    Else
        isBMP = false
    End If
End Function

Function isWMF(filen)
    If inStr(uCase(filen), ".WMF") <> 0 Then
        isWMF = true
    Else
        isWMF = false
    End If
End Function

Function isWebImg(f)
    If isGIF(f) Or isJPG(f) Or isPNG(f) Or isBMP(f) Or isWMF(f) Then
        isWebImg = true
    Else
        isWebImg = true
    End If
End Function

Function ReadImg(filen)
    If isGIF(filen) Then
        ReadImg = ReadGIF(filen)
    Else
        If isJPG(filen) Then
            ReadImg = ReadJPG(filen)
        Else
            If isPNG(filen) Then
                ReadImg = ReadPNG(filen)
            Else
                If isBMP(filen) Then
                    ReadImg = ReadPNG(filen)
                Else
                    If isWMF(filen) Then
                        ReadImg = ReadWMF(filen)
                    Else
                        ReadImg = Array(0,0)
                    End If
                End If
            End If
        End If
    End If
End Function

Sub Rep(s)
    Response.Write s & "<BR>"
End Sub

Function ReadJPG(filen)
    Dim fso, ts, s, HW, ns, n, ok
    HW = Array("","")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("/" & filen), 1)
    ts.Skip(2)
    ns = ts.Read(2)
    Do While Not (ns = "ÿÀ" Or ns = "ÿÂ")
        ns = ts.Read(2)
        n = HexToDec(HexAt(ns,1) & HexAt(ns,2))
        n = n - 2
        ts.Skip(n)
        ns = ts.Read(2)
    Loop
    ts.Skip(3)
    s = ts.Read(4)
    HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
    HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2))
    ts.Close
    Set ts = Nothing
    ReadJPG = HW
End Function

Function ReadPNG(filen)
    Dim fso, ts, s, HW, nbytes
    HW = Array("","")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("/" & filen), 1)
    s = Right(ts.Read(24), 8)
    HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
    HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8))
    ts.Close
    ReadPNG = HW
End Function

Function ReadGIF(filen)
    Dim fso, ts, s, HW, nbytes
    HW = Array("","")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("/" & filen), 1)
    ts.Skip(6)
    s = ts.Read(4)
    HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
    HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
    ts.Close
    ReadGIF = HW
End Function

Function ReadWMF(filen)
    Dim fso, ts, s, HW, nbytes
    HW = Array("","")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("/" & filen), 1)
    s = Right(ts.Read(14), 4)
    HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
    HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
    ts.Close
    ReadWMF = HW
End Function

Function ReadBMP(filen)
    Dim fso, ts, s, HW, nbytes
    HW = Array("","")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("/" & filen), 1)
    s = Right(ts.Read(24), 8)
    HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3))
    HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7))
    ts.Close
    ReadBMP = HW
End Function

Function isDigit(c)
    If inStr("0123456789", c) <> 0 Then
        isDigit = true
    Else
        isDigit = false
    End If
End Function

Function isHex(c)
    If inStr("0123456789ABCDEFabcdef", c) <> 0 Then
        isHex = true
    Else
        ishex = false
    End If
End Function

Function HexToDec(cadhex)
    Dim n, i, ch, decimal
    decimal = 0
    n = Len(cadhex)
    For i=1 To n
        ch = Mid(cadhex, i, 1)
        If isHex(ch) Then
            decimal = decimal * 16
            If isDigit(ch) Then
                decimal = decimal + ch
            Else
                decimal = decimal + Asc(uCase(ch)) - Asc("A") + 10
            End If
        Else
            HexToDec = -1
        End If
    Next
    HexToDec = decimal
End Function

' Find størrelsen på billedet
strGrafik = request.querystring("billede")
Size = ReadImg(strGrafik)

%>

<html>
<head>
<title>Billede</TITLE>
</head>
<body onload="resizeTo(<%=Size(0)%>+9,<%=Size(1)%>+29); self.focus();" topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%" bgcolor="#000000">
  <tr>
    <td valign="middle" align="center">
      <% Response.Write "<p><img src=/" & strGrafik & "></p>" %>
    </td>
  </tr>
</table>
</body>
</html>

På www.sonnerupgaard.dk skal du i menuen trykke på billeder, og derefter på et lille billede, så kan du se det.

//nordclc

nej ikke asp. Alt andet kører i php :D

OK, beklager så kan jeg desværre ikke hjælpe dig.

ok.. Troede faktisk det ku laves i ren javascript :S

Det kan det muligvis også, jeg ved bare ikke hvordan ;o)

<script language="Javascript">
function PicResize(){
    var mywidth = document.images.billede.width+10;
    var myheight = document.images.billede.height+30;
    self.resizeTo(mywidth,myheight);
}
</script>

Kan man ikek bruge det evt. køre den ved onstart eller noed ??

Har faktisk selv lavet dte nu, men hvordan får jeg det nye vindue til at fjerne sine toolbars og proceslinier osv. uden at det skal ske i linket til pop uppen ??

tag koden her fra :)

http://www.grunken.dk/exp/348799.html

Smart smart... Jeg vil lige prøve asp function'en ;-)

Her kan du se en, som virker lige som grunkens -- næsten, der er lige et par forbedringer, og gennemførelser af konsekvenser ...
http://www.eksperten.dk/spm/374601

Kan nu bedere lide ASP function - men det er nok fordi det er det jeg koder mest i ;-)

ok men jeg ville gerne ha at den fjernede værktøjslinie processlinie mm. og lavede den der resize NÅR man var kommet ind på siden,
Det er nemlig til en dating side og så feks. på forsiden skal man kunne se folks userpic så når man går ind på et link lidt lignende det:
view_picture.php?type=userpic&id=1
henter den billedet fra dben og resizer og fjerne liner og det..

Kan det laves??

nej!

Jo det kan det godt!
Ved at bla VirtualDating.dk gør det.

Man skal bare bruge et komponent! Men hvilket ik ved jeg ikke helt...
Tro du kan finde ud af det her http://serverobjects.com/

nej hvor gør i bare enkle ting besværlige ;D

Hvad er dit forslag gruken?

det kan da ikke passe det ikke kan laves uden komponent.. Det vil blive alt for resourcekrævende ved at hver gang den skal åbne et lille billed skal den alt det der igennem.. Der må være en anden løsning...

Se grunkens eller min -- jeg tror faktisk jeg har taget udgangspunkt i grunkens, men det er små nydelige scripts, som intet kræver (udover javascript-funktionerne ,-)

kan det ikke lade sig gøre at fjerne værktøjslinier og det i popuppen ?

Hvis du tager min fra 374601 er der kun titel-linjen tilbage ...

-- hvilket der selvfølgelig også kun er i grunkens ,-)

<-- Sættes ind mellem <head> og </head> -->

<Script Language="JavaScript">
// Script Source: CodeLifter.com
// Copyright 2003
// Do not remove this notice.

// SETUPS:
// ===============================

// Set the horizontal and vertical position for the popup

PositionX = 100;
PositionY = 100;

// Set these value approximately 20 pixels greater than the
// size of the largest image to be used (needed for Netscape)

defaultWidth  = 500;
defaultHeight = 500;

// Set autoclose true to have the window close automatically
// Set autoclose false to allow multiple popup windows

var AutoClose = true;

// Do not edit below this line...
// ================================
if (parseInt(navigator.appVersion.charAt(0))>=4){
var isNN=(navigator.appName=="Netscape")?1:0;
var isIE=(navigator.appName.indexOf("Microsoft")!=-1)?1:0;}
var optNN='scrollbars=no,width='+defaultWidth+',height='+defaultHeight+',left='+PositionX+',top='+PositionY;
var optIE='scrollbars=no,width=150,height=100,left='+PositionX+',top='+PositionY;
function popImage(imageURL,imageTitle){
if (isNN){imgWin=window.open('about:blank','',optNN);}
if (isIE){imgWin=window.open('about:blank','',optIE);}
with (imgWin.document){
writeln('<html><head><title>Loading...</title><style>body{margin:0px;}</style>');writeln('<sc'+'ript>');
writeln('var isNN,isIE;');writeln('if (parseInt(navigator.appVersion.charAt(0))>=4){');
writeln('isNN=(navigator.appName=="Netscape")?1:0;');writeln('isIE=(navigator.appName.indexOf("Microsoft")!=-1)?1:0;}');
writeln('function reSizeToImage(){');writeln('if (isIE){');writeln('window.resizeTo(100,100);');
writeln('width=100-(document.body.clientWidth-document.images[0].width);');
writeln('height=100-(document.body.clientHeight-document.images[0].height);');
writeln('window.resizeTo(width,height);}');writeln('if (isNN){');     
writeln('window.innerWidth=document.images["George"].width;');writeln('window.innerHeight=document.images["George"].height;}}');
writeln('function doTitle(){document.title="'+imageTitle+'";}');writeln('</sc'+'ript>');
if (!AutoClose) writeln('</head><body bgcolor=000000 scroll="no" onload="reSizeToImage();doTitle();self.focus()">')
else writeln('</head><body bgcolor=000000 scroll="no" onload="reSizeToImage();doTitle();self.focus()" onblur="self.close()">');
writeln('<img name="George" src='+imageURL+' style="display:block"></body></html>');
close();       
}}
</script>

<-- Sættes ind mellem <body> og </body> -->


<a href="java script:popImage('stortbillede.gif','Some Title')">
<img src="lillebillede.gif" alt="Se stort billlede">
</a>

Se eksempel: www.bokaj.dk/eksperten/gribben/
http://www.codelifter.com/main/javascript/autosizeimagepopup.html

Uden ramme:

<a href="java script:popImage('stortbillede.gif','Some Title')">
<img src="lillebillede.gif" border="0" alt="Se stort billlede">
</a>

Please læs det ordentlig.. Det hele skal ske i den popup der må ind kode være i linket andet end det almindelige link...

Det her får jeg intet ud af.. Lukker.. Kan ikek bruge jeres svar så må selv bixe noget fusk sammen ;)

roenving.users.whitehat.dk/WD1ResizeTilBillede.html

roenving din skurk *G*

du har brugt mit idol billede *G*

Jeps, hvor stammer det fra ?-)

-- du er også krediteret !-)

I mine yngre dag samlede jeg på den slags stykker ;D

jeg har nok stadig et par tusinde liggende af slagsen :)

à 150 kb ?-)

-- har du fået 'mal' ?

-- og hvad synes du om siden jeg har banket ned ?-)