---
title: "minska för stora bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/138662-minska-för-stora-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-12-02T17:02:43.000Z"
updated: "2005-12-04T21:15:40.000Z"
replies: 12
views: 483
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/138662-minska-för-stora-bilder"
---

# minska för stora bilder

## #1 — WebbisNet, 2005-12-02T17:02Z

Någon här som vet hur man modifierar denna kod för att förminska bilder som täcker mer än skärmen och som inte rör bilder som är tillräckligt stora/små

```
<!-- #include virtual="/include/dbconn.asp" -->
<%ID = Request.Querystring("ID")
Set Pic=objConn.Execute("Select * From tblUsers WHERE userID="&request("ID") &"")%>

<html>
<head>
<title><%=trim(Pic("username"))%> (<%=trim(Pic("picture"))%>)</title>
<script language="javascript" type="text/javascript"> 
<!-- 
 function init() 
 { 
      img = new Image(); 
      img.src = document.body.background; 
      window.resizeBy(img.width-document.body.clientWidth, 
           img.height-document.body.clientHeight); 
   } 
//-->  
</script>
</head>

<body onload="init();" background="/images/users/<%=trim(Pic("picture"))%>" style="background-repeat:no-repeat;">  
</body>
</html>
```

Permalänk: https://www.webforum.nu/p/138662

## #2 — Boorg, 2005-12-02T23:22Z

AspJpeg är ett bra verktyg.
Finns massor av detta på forumet.

AspJpeg, Aspsmartimage

Permalänk: https://www.webforum.nu/p/1721229

## #3 — WebbisNet, 2005-12-02T23:40Z

kollade på aspJpeg.com men hittade inget bra kodexempel

Permalänk: https://www.webforum.nu/p/1721235

## #4 — Boorg, 2005-12-02T23:47Z

Här har du
<http://www.aspjpeg.com/manual_02.html> ;)

Permalänk: https://www.webforum.nu/p/1721238

## #5 — WebbisNet, 2005-12-03T00:02Z

Skriver man så här då

```
<!-- #include virtual="/include/dbconn.asp" -->
<%ID = Request.Querystring("ID")
Set Pic=objConn.Execute("Select * From tblUsers WHERE userID="&request("ID") &"")%>

<html>
<head>
<title><%=trim(Pic("username"))%> (<%=trim(Pic("picture"))%>)</title>

</head>
<%' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "/images/users/"& Pic("picture") &""

' New width
L = 500

' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

' create thumbnail and save it to disk
Jpeg.Save "/images/users/"& Pic("picture") &""
%>
<body background="/images/users/<%=trim(Pic("picture"))%>" style="background-repeat:no-repeat;">  
</body>
</html>
```

Permalänk: https://www.webforum.nu/p/1721246

## #6 — Boorg, 2005-12-03T00:07Z

```
<!-- #include virtual="/include/dbconn.asp" -->
<%ID = Request.Querystring("ID")
Set Pic=objConn.Execute("Select * From tblUsers WHERE userID="&request("ID") &"")%>

<html>
<head>
<title><%=trim(Pic("username"))%> (<%=trim(Pic("picture"))%>)</title>

</head>
<%
path = Server.MapPath("/images/users/" & Pic("picture"))

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open = path

L = 500
If Jpeg.Originalwidth < L Then

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

Jpeg.Save path
%>
<body background="/images/users/<%=trim(Pic("picture"))%>" style="background-repeat:no-repeat;">  
</body>
</html>
```

Så nu borde det fungera.   :)

Permalänk: https://www.webforum.nu/p/1721249

## #7 — WebbisNet, 2005-12-03T00:29Z

> **Boorg skrev:**
>
> ```
> <!-- #include virtual="/include/dbconn.asp" -->
> <%ID = Request.Querystring("ID")
> Set Pic=objConn.Execute("Select * From tblUsers WHERE userID="&request("ID") &"")%>
> 
> <html>
> <head>
> <title><%=trim(Pic("username"))%> (<%=trim(Pic("picture"))%>)</title>
> 
> </head>
> <%
> path = Server.MapPath("/images/users/" & Pic("picture"))
> 
> Set Jpeg = Server.CreateObject("Persits.Jpeg")
> Jpeg.Open = path
> 
> L = 500
> If Jpeg.Originalwidth < L Then
> 
> Jpeg.Width = L
> Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
> 
> Jpeg.Save path
> %>
> <body background="/images/users/<%=trim(Pic("picture"))%>" style="background-repeat:no-repeat;">  
> </body>
> </html>
> ```
>
> 
> 
> Så nu borde det fungera.   :)

på raden Jpeg.Open path får jag
Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'Open'

/viewPic.asp, line 14

Permalänk: https://www.webforum.nu/p/1721259

## #8 — emission, 2005-12-03T01:43Z

Ta bort likamedtecknet efter open.

Permalänk: https://www.webforum.nu/p/1721283

## #9 — WebbisNet, 2005-12-03T01:49Z

en bild som är 1280x960 blir inte mindre,så koden verkar inte hjälpa

Permalänk: https://www.webforum.nu/p/1721285

## #10 — WebbisNet, 2005-12-03T17:21Z

Nån som har förslag??

Permalänk: https://www.webforum.nu/p/1721488

## #11 — emission, 2005-12-04T17:16Z

Ändra i koden så att den kontrollerar om bilden är för stor. Nu kontrollerar den ju bara om den är för liten.

Permalänk: https://www.webforum.nu/p/1721834

## #12 — Boorg, 2005-12-04T21:01Z

jo ursäkta   :r

Permalänk: https://www.webforum.nu/p/1721926

## #13 — WebbisNet, 2005-12-04T21:15Z

Gör man inte så här för att kolla höjden med?

```
L = 700
H = 500
If Jpeg.OriginalHeight > H or Jpeg.Originalwidth > L Then

Jpeg.Width = L
Jpeg.Height = H
```

Permalänk: https://www.webforum.nu/p/1721929

---

Tråden på webben: https://www.webforum.nu/amne/asp/138662-minska-för-stora-bilder