webForumDet fria alternativet

Skala ner bild!

ASP

1 svar · 302 visningar · startad av freddssite

Medlem sedan maj 2001123 inlägg
Frågan#1
<HTML> 
<BODY BGCOLOR="#FFFFFF">

<h3>Ladda upp foto</h3>

<FORM ENCTYPE="multipart/form-data" METHOD="POST" ACTION="laddaupp.asp?spara=foto">
<TABLE CELLPADDING="3" CELLSPACING="0" BORDER="0" BGCOLOR="#EEEEEE">
<TR><TD>Image:</TD><TD><INPUT TYPE=FILE NAME="file1" size="20"></TD></TR>
</TD></TR>

<TR><TD COLSPAN="2"><INPUT TYPE="SUBMIT" VALUE="Upload"></TD></TR>
</TABLE>
</FORM>
</BODY> 
</HTML>

<% If Request.Querystring("spara") = "foto" Then %>

<%
'/////LADDA UPP BILD/////
Set Upload = Server.CreateObject("Persits.Upload")

Path = Server.MapPath("/uploadbilder/")

Count = Upload.Save(Path)

strFileName= Upload.Files("/uploadbilder/").ExtractFileName // [B]Detta är rad 27![/B]

'/////SKALA NER BILD/////

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("../uploadbilder/" & strFilename ))
Image.FileName = (Server.MapPath("../uploadbilder/" & strFilename ))

Image.ImageFormat = 1
Image.JPEGQuality = 10
Image.Resize 100,75
Image.TextOut "bla bla bla", 10, 10, false

Image.SaveImage
Set Image = Nothing
%>
<% End if %>

Jag får denna felkoden!
Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/laddaupp.asp, line 27

Va gör jag för fel....har provat det mesta nu känns de som!

Medlem sedan dec. 19996 721 inlägg
#2

Ett höftskott:

strFileName= Upload.Files("file1").ExtractFileName // Detta är fortfarande rad 27!
249 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)
115 ms — ändringar (db)