---
title: "Ändra bild storlek ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/160267-ändra-bild-storlek"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "_2ejon"
published: "2007-05-14T15:14:03.000Z"
updated: "2007-05-16T07:42:51.000Z"
replies: 7
views: 555
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/160267-ändra-bild-storlek"
---
# Ändra bild storlek ?
## #1 — _2ejon, 2007-05-14T15:14Z
Hej jag tänkte göra ett bild arkiv där man ska kunna se små minniatyrer av varje bild och när man trycker på en av bilderna ska man komma till det id;t.
Nu till frågan, går det att skala om bilderna så dom blir mindre? Eller hämta dom och ändra "width" till 40px tex.. Dom ligger sparade i min access databas som html tagar så här:
\
Går det eller måste jag spara alla bilder 2ggr och i två olika storleksformat ?
Permalänk: https://www.webforum.nu/p/160267
## #2 — voigtann1, 2007-05-14T15:24Z
Inte med vanlig ASP. Men det finns komponenter som gör detta. Beror lite på ditt webbhotell (de flesta har något stöd med detta idag). Kolla upp det med din leverantör :)
Permalänk: https://www.webforum.nu/p/1977604
## #3 — _2ejon, 2007-05-14T15:26Z
så de går inte ta replace width på något sätt ?
Permalänk: https://www.webforum.nu/p/1977605
## #4 — voigtann1, 2007-05-14T15:58Z
replace width?
Du kan formatera om utskriften ja. men bilden är fortfarande lika stor(i storlek på disk).
men replace så att den bara bli mindre visst det går:
```
Function NewLink(textFromDb,width,height)
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = "(\![]()
)"
NewLink = myRegExp.Replace(textFromDb, "$1" & width & "$2" & height & "$3")
End Function
```
Permalänk: https://www.webforum.nu/p/1977620
## #5 — _2ejon, 2007-05-14T16:53Z
Okey men jag förstår inte redigt hur jag ska sätta in koden /nybörjare på asp
Ska man bara lägga in den så eller ?
```
<%
Dim rs Weblog
%>
<%
While NOT rsArchive.EOF
set rsWeblog = ObjConn.execute("SELECT * FROM weblog ORDER BY date DESC")
v_weblog = rsWeblog("weblog")
%>
Function NewLink(textFromDb,width,height)
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = "(\![]()
)"
NewLink = myRegExp.Replace(textFromDb, "$1" & width & "$2" & height & "$3")
End Function
<%=v_weblog%>
<%
rsArchive.MoveNext
Wend
rsArchive.Close
Set rsArchive = Nothing
%>
<%
Call CloseDatabase
%>
```
\
hämtar jag med weblog, ifrån access databasen
Permalänk: https://www.webforum.nu/p/1977636
## #6 — Snakes, 2007-05-14T19:03Z
Det kommer ta lång tid att ladda sidan om du har flera bilder som laddas ned i full storlek. (om du ändrar på width så betyder det inte att bilden kommer bli mindre i hårddisken)
Jag tipsar på att du inte gör detta. Läs lite om thumbs, sök i detta forum, få en idé om det hela, fastnar du på något, skicka den kod du fastna på här och så hjälper vi dig.
Permalänk: https://www.webforum.nu/p/1977674
## #7 — _2ejon, 2007-05-14T19:48Z
okey ska göra det istället :)
Permalänk: https://www.webforum.nu/p/1977697
## #8 — voigtann1, 2007-05-16T07:42Z
```
<%
Dim rs,v_weblog
%>
<%
' En funktion vi kan inte ha en funktion inne i en loop då kommer det bli fel
' ASP kan bara ha 1 funktion per sida (med samma namn dvs)
' Så flytta ut den ur loopen
Function NewLink(textFromDb,width,height)
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = "(\![]()
)"
NewLink = myRegExp.Replace(textFromDb, "$1" & width & "$2" & height & "$3")
End Function
While NOT rsArchive.EOF
set rsWeblog = ObjConn.execute("SELECT * FROM weblog ORDER BY date DESC")
v_weblog = rsWeblog("weblog")
'Här kallar vi på funktionen, med höjd 20 och with 20 - Fortfarande bilden
'är lika stor på disk fortfarande och kommer ta lika lång tid att ladda ner
Response.Wirte NewLink(v_weblog,20,20)
rsArchive.MoveNext
Wend
rsArchive.Close
Set rsArchive = Nothing
%>
```
Lite info om hur man använder en funktion...
Permalänk: https://www.webforum.nu/p/1978113
---
Tråden på webben: https://www.webforum.nu/amne/asp/160267-ändra-bild-storlek