minska för stora bilder

12 svar · 478 visningar · startad av WebbisNet 2 dec. 2005

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan2 dec. 2005 17:02#1

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>

BoorgMedlem sedan okt. 2004409 inlägg

2 dec. 2005 23:22#2

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

AspJpeg, Aspsmartimage

WebbisNetMedlem sedan feb. 20032 027 inlägg

2 dec. 2005 23:40#3

kollade på aspJpeg.com men hittade inget bra kodexempel

BoorgMedlem sedan okt. 2004409 inlägg

2 dec. 2005 23:47#4

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

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 dec. 2005 00:02#5

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>

BoorgMedlem sedan okt. 2004409 inlägg

3 dec. 2005 00:07#6

<!-- #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. :)

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 dec. 2005 00:29#7

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

emissionMedlem sedan dec. 19996 721 inlägg

3 dec. 2005 01:43#8

Ta bort likamedtecknet efter open.

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 dec. 2005 01:49#9

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

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 dec. 2005 17:21#10

Nån som har förslag??

emissionMedlem sedan dec. 19996 721 inlägg

4 dec. 2005 17:16#11

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

BoorgMedlem sedan okt. 2004409 inlägg

4 dec. 2005 21:01#12

jo ursäkta :r

WebbisNetMedlem sedan feb. 20032 027 inlägg

4 dec. 2005 21:15#13

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