Uppladdning av bilder

9 svar · 521 visningar · startad av WebbisNet 16 sep. 2004

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan16 sep. 2004 21:00#1

Vilket är det allra bästa, pålitliga och säkraste sättet att ladda upp bilder. På web10 har de tagit bort stöd för fso men jag kan med vissa problem ändå använda uppladdning utan komponent. Problemen består i att visa personer bara kan ladda upp 2 bilder utan problem och sen få felmeddelande. Web10 använder 2003-servrar och har ASP-Upload installerat men jag har inte hittat nåt bra exempel på både uppladdning och sparande av infon i databas.

IvarMedlem sedan aug. 2002218 inlägg

16 sep. 2004 21:42#2

Så här med Persits Upload Funkar bra för mig.

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("mapp vart bilden ska sparas"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files

item = Upload.form("item")
description = Upload.form("description")
sal= Upload.form("sal")
mark= Upload.form("mark")
category = Upload.form("category")
ja = Upload.form("ja")
price = Upload.form("price")
phone = Upload.form("phone")
email = Upload.form("email")
stad = Upload.form("stad")
password = Upload.form("password")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

strFileName1= Upload.Files("blob1").ExtractFileName 

strFileName2 = Upload.Files("blob2").ExtractFileName 

strFileName3 = Upload.Files("blob3").ExtractFileName 

END IF
   

' Build ODBC connection string
set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("din databas ") & ";pwd=;"
Set RecSet=  Server.CreateObject("ADODB.Recordset") 

SQL= "INSERT INTO mak (item, description,typ,markerad, category, test,price,phone,email,stad, filename,filename1,filename2,filename3,password)"
SQL = SQL  & " VALUES( '" & item & "','"& description & "','" & sal &"','" & mark&"','" &  category &"','"&ja& "','"&price&"','"&phone&"','"& email &"',  '"&stad&"','"&strFileName& "','"&strFileName1& "','"&strFileName2& "','"&strFileName3& "','"& password & "')" 
Connect.execute(SQL)
connect.close
Set RecSet= Nothing

WebbisNetMedlem sedan feb. 20032 027 inlägg

16 sep. 2004 21:48#3

ska testa den, tack

WebbisNetMedlem sedan feb. 20032 027 inlägg

16 sep. 2004 23:03#4

Varför kan jag se alla värden när jag skriver ut sql-en utom filnamnet

<!-- #include virtual="/include/dbconn.asp" -->
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/images/gallery"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files

filnamn = Upload.form("txtFilnamn")
kommentar = Upload.form("txtKommentar")
upplagd= Upload.form("txtDatum")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

'strFileName1= Upload.Files("blob1").ExtractFileName 

'strFileName2 = Upload.Files("blob2").ExtractFileName 

'strFileName3 = Upload.Files("blob3").ExtractFileName 

END IF
   

Dim objConn
varTillhor=Session("userID")
upplagd = Now()
	SET objConn = connect()
	picture = "INSERT INTO tblUsers_Galleri"
	picture = picture & "(bild,tillhor,inlagd,kommentar) "
	picture = picture & "VALUES('" & filnamn & "','"& varTillhor &"',#"& upplagd&"#,'"& kommentar &"')"
	'objConn.Execute picture
	response.write picture
	%>

J.N.Medlem sedan apr. 20031 660 inlägg

17 sep. 2004 09:40#5

HEJ!

En snabb koll ger att du lägger ditt filnamn i en egen textruta, filnamn = Upload.form("txtFilnamn"), men i originalkoden hämtas filnamnet med strFileName= Upload.Files("blob").ExtractFileName.

WebbisNetMedlem sedan feb. 20032 027 inlägg

17 sep. 2004 13:40#6

<!-- #include virtual="/include/dbconn.asp" -->
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/images/gallery"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files

kommentar = Upload.form("txtKommentar")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   

Dim objConn
varTillhor=Session("userID")
upplagd = Now()
	SET objConn = connect()
	picture = "INSERT INTO tblUsers_Galleri"
	picture = picture & "(bild,tillhor,inlagd,kommentar) "
	picture = picture & "VALUES('" & strFileName & "','"& varTillhor &"',#"& upplagd&"#,'"& kommentar &"')"
	objConn.Execute picture
	'response.write picture
	%>

<%response.redirect "/pictureupload/gallery/default.asp?path=" & Server.mappath(strFileName) & "&filename=" & strFileName & "&pic=" & strFileName & ""%>

fungerar bra nu, hur kontrollerar man vilka filtyper som är giltiga?, 100000B är väl 100Kb?

J.N.Medlem sedan apr. 20031 660 inlägg

17 sep. 2004 13:53#7

HEJ!

Vad innehåller File.ImageType? För mig låter det som gif, xls etc, fast i den långa varianten.

Vanligtvis får man leta upp filändelse med strängfunktioner, du vet ju vad filen heter, men det kanske finns inbyggt, kolla dokumentationen.

Och/eller så använder du javascript, för att slippa hantera filer som ändå inte ska läggas upp.

WebbisNetMedlem sedan feb. 20032 027 inlägg

17 sep. 2004 13:56#8

Hur kollar man vad File.ImageType innehåller?

@ndersMedlem sedan juni 200032 967 inlägg

17 sep. 2004 13:57#9

Man kan ju prova att skriva ut det?

WebbisNetMedlem sedan feb. 20032 027 inlägg

17 sep. 2004 13:58#10

WebbisNet skrev:

Hur kollar man vad File.ImageType innehåller?

Så här var det visst

AspUpload is capable of determining the type and pixel size of uploaded images. The formats currently supported are GIF, JPEG, BMP and PNG. The type and size information is returned via the properties File.ImageType, File.ImageWidth, and File.ImageHeight.
The property File.ImageType returns the strings "GIF", "JPG", "BMP", "PNG" (for GIF JPEG BMP and PNG images, respectively), or "UNKNOWN" if the file is not an image or of an unknown image type.