[HTML, ASP] File Input value probleem - Softwareontwikkeling

maandag 29 november 2004 13:07

Acties:

Topicstarter

Ik hoop dat het deze keer in het goede forum staat...

Ik heb een pagina gemaakt, waarmee je een database kunt onderhouden. Op zich niks spannends, gewoon toevoegen, wijzigen, verwijderen en zo. Nu gaat alles heel leuk en aardig, maar in de database moeten ook foto's komen te staan.
Dat was een slecht idee, dus had ik het anders gedacht. Alleen de naam van de foto's in de DB zetten. Wat opzich heel goed werkt.

Nu is het probleem dat ik de foto's via een form upload. Ik selecteer de foto's dmv een <input type="file">. Dit uploaden werkt perfect, maar ik krijg de bestandsnaam niet in de database. Dit omdat een file input de value property niet ondersteunt.
Is er een andere optie hiervoor? bijvoorbeeld eerst de files uploaden, en dan via een select scherm of zo de goede aanwijzen (ik roep maar wat...)?

Elke hulp is welkom...

Mocht dit alles onduidelijk zijn (waarschijnlijk), vraag gerust verder. Ik kan natuurlijk de code erbij zetten, maar dat heeft verder geen nut, aangezien het een normaal form is met een normaal submit knop. Alleen de code achter het uploaden is ingewikkeld.

Het enige dat ik dus moet hebben zijn de bestandsnamen...

Alvast bedankt,

Grtz

G

Als blikken konden doden, waarom doen ze er dan erwten in?

maandag 29 november 2004 13:11

Acties:

André

Analytics dude

Je kunt nadat het formulier gepost is gewoon de bestandsnaam uitlezen? Je slaat het bestand toch ook op op de server met een bepaalde naam.

maandag 29 november 2004 13:11

Acties:

P_de_B

Je upload code zal een methode moeten hebben voor het uitlezen van de naam. Gebruik je pure VBscript om te uploaden of een component?

Oops! Google Chrome could not find www.rijks%20museum.nl

maandag 29 november 2004 13:12

Acties:

Verwijderd

Dat upload object zeg : Upfile , kan ook namen en atributen extracten.

Je moet maar even zoeken in google.

maar het wordt dan zo iets :

naan van veld is upload.

Databaseveld = Upfile.FileName("upload")

zo iets moet het zijn / kan het zijn.
Ik zit op mijn werk dus kan niet even kijken hoe ik dat gedaan heb, want ik werk op de zelfde manier.
foto uploaden en enkel naam in database.
Weet ook dat ik daar een nacht wakker van gelegen heb :-)

maandag 29 november 2004 13:15

Acties:

Garoth

Topicstarter

ik zal even zoeken naar hoe dat uploaden het doet. Het is een script of zoiets dat ik hier op tweakers had gevonden.
Volgens mij heette het Pure-Upload, maar ik kan me vergissen. Momentje ik zoek even...

Als blikken konden doden, waarom doen ze er dan erwten in?

maandag 29 november 2004 13:16

Acties:

Verwijderd

Pure upload
oh dat is uploaden zonder object.
maar werkt wel het zelfde , je maakt zelf dan een class die hij defineerd als object.

maandag 29 november 2004 13:17

Acties:

P_de_B

http://www.asp101.com/articles/jacob/scriptupload.asp

en dan halverwege de pagina

Oops! Google Chrome could not find www.rijks%20museum.nl

maandag 29 november 2004 13:17

Acties:

André

Analytics dude

Verwijderd schreef op maandag 29 november 2004 @ 13:16:
Pure upload
oh dat is uploaden zonder object.
maar werkt wel het zelfde , je maakt zelf dan een class die hij defineerd als object.

En daaruit zal je de bestandsnaam moeten kunnen lezen

File.FileName

[ Voor 7% gewijzigd door André op 29-11-2004 13:18 ]

maandag 29 november 2004 13:19

Acties:

Verwijderd

^^^^
zo als ik reeds schreef

[ Voor 12% gewijzigd door Verwijderd op 29-11-2004 13:20 ]

maandag 29 november 2004 13:23

Acties:

Garoth

Topicstarter

http://www.motobit.com/help/scptutl/pa38.htm

Dat is het spul dat ik gebruik.
Maar hoe kom ik dan aan die Filename? Want ik upload 4 foto's tegelijk, dus File.Filename zal misschien moeilijk worden...

code:

<%
Option Explicit
'Stores only files with size less than MaxFileSize

Dim ID

ID= request.querystring("ID")

Dim DestinationPath
DestinationPath = Server.mapPath("foto")

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><% 


Server.ScriptTimeout = 2000
Form.SizeLimit = &H100000

If Form.State = 0 Then 'Completted
  Form.Files.Save DestinationPath 
  response.redirect("insert.asp")
ElseIf Form.State > 10 then
  Const fsSizeLimit = &HD
  Select case Form.State
    case fsSizeLimit: response.write  "<br><Font Color=red>Source form size _
(" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font>_
<br>"
    case else response.write "<br><Font Color=red>Some form error.</Font><br>"
  end Select
End If'Form.State = 0 then


%>  
<HTML>
<HEAD>
  <TITLE></TITLE>
</HEAD>
<BODY>

<h1> Voeg Foto's Toe</h1>

<hr width="85%">

<form method="POST" ENCTYPE="multipart/form-data">
<table width="80%" align="center">
<tr>
   <td width="20%" align="left"><strong>Foto 1 :</strong></td> 
   <td align="left"><input type="file" name="Foto1"></td>
</tr>
<tr>
   <td width="20%" align="left"><strong>Foto 2 :</strong></td> 
   <td align="left"><input type="file" name="Foto2"></td>
</tr>
<tr>
   <td width="20%" align="left"><strong>Foto 3 :</strong></td> 
   <td align="left"><input type="file" name="Foto3"></td>
</tr>
<tr>
  <td width="20%" align="left"><strong>Foto 4 :</strong></td> 
  <td align="left"><input type="file" name="Foto4"></td>
</tr>
</table>

<hr width="85%">

<table width="80%" align="center">
<tr>
  <td width="100%" align="center"><input Name=SubmitButton Value="Upload_
 foto's &gt;&gt;" Type="submit"></td>
</tr>
</table>
</Form>

</BODY>
</HTML>

Kan ik dat hierin kwijt, of moet ik dat in de code doen die het uploaden zelf doet?

*edit - ff layout aangepast*

[ Voor 27% gewijzigd door Garoth op 29-11-2004 13:25 ]

Als blikken konden doden, waarom doen ze er dan erwten in?

maandag 29 november 2004 13:25

Acties:

Verwijderd

In die upload file kun je dus waarden halen van deze pagina

bestand1
bestand2
bestand3 etc .

Stel hij defineerd : ThisToUpload

Dan worden jouw waarden :

Databasefile1 = ThisToUpload.FileName("bestand1")
etc.

*** onder Bij andre staat de code hier voor

*****

[ Voor 56% gewijzigd door Verwijderd op 29-11-2004 13:28 ]

maandag 29 november 2004 13:26

Acties:

André

Analytics dude

code:

1
2
3

Dim Field: For Each Field In Form
  Response.Write "<br> " & Field.FileName
Next

maandag 29 november 2004 13:30

Acties:

Garoth

Topicstarter

Helaas krijg ik dan dit:

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method

Ik heb het bovenaan tussen de ASP code neergezet. Bij :

code:

Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><% 
Dim Field
  

Server.ScriptTimeout = 2000
Form.SizeLimit = &H100000

If Form.State = 0 Then 'Completted
  Form.Files.Save DestinationPath
  For Each Field In Form
    Response.Write "<br> " & Field.FileName
  Next 
  response.redirect("insert.asp")
ElseIf Form.State > 10 then

Ik zou niet weten waar ik het moet zetten in _upload.asp...

Hebben jullie ervaring met deze "component"?

Als blikken konden doden, waarom doen ze er dan erwten in?

maandag 29 november 2004 13:35

Acties:

Verwijderd

Wat andre schreef en ik ook , zijn virtuele waren en namen
je moet eerst op onderzoek uit gaan welke naam hij voor het upload component gekozen heeft

vermoedelijk zal het iets zijn van oUpload zijn of zo iets.

daar mee moet je aan de gang gaan.

bij mij werkt het als volgt:

code:

Set oUpload = New FileUpload
strFile = oUpload.FileName("BESTAND")

' insert value in base : 

database veld A = strFile

[ Voor 33% gewijzigd door Verwijderd op 29-11-2004 13:41 ]

maandag 29 november 2004 13:42

Acties:

Pelle

🚴‍♂️

Op naar de buren, want daar hebben ze hier meer verstand van

maandag 29 november 2004 13:56

Acties:

Garoth

Topicstarter

Zover ik weet is het object dan ASPForm getuige :

code:

1	Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><%

alleen snap ik niet hoe het kan dat hij geen enkele van de properties kan benaderen die in _upload.asp staan gedefinieerd. Die staan allen gedefinieerd als Class, maar ik kan ze niet aanspreken...

Als blikken konden doden, waarom doen ze er dan erwten in?

maandag 29 november 2004 14:16

Acties:

Garoth

Topicstarter

En Hops!

Na wat spitten:

code:

1
2
3

If Form.State = 0 Then 'Completted
  Form.Files.Save(DestinationPath)
  response.write(Form("foto1").FileName)

Dit werkt. Het moest dus net andersom als ik al de hele tijd aan het proberen was...

Maar goed, heel erg bedankt voor jullie hulp!!!

Als blikken konden doden, waarom doen ze er dan erwten in?

Pagina: 1

Reageer