Automatisk upload af indhold via form
Hej,Jeg skal uploade en masse billeder til en webserver, og der er ikke mulighed for at bruge ftp.
Det er kun muligt at bruge en Form med følgende felter:
<form action="uload.asp?
action=upload&type=product&item=pic1&element=&id=3170&w=1000&h=1000&maxw=200&maxh=5000"
method="post" name="upload" enctype="multipart/form-data">
<input type="hidden" name="type" value="product">
<input type="hidden" name="item" value="pic1">
<input type="hidden" name="element" value="">
<input type="hidden" name="id" value="3170">
<input type="hidden" name="w" value="1000">
<input type="hidden" name="h" value="1000">
<input type="file" name="picture" size="28">
<input type="submit" value=" upload "">
</form>
Jeg har kigget forskellige steder, og fundet noget VB kode, som løser opgaven, hvis formen ser således ud:
<Form Action=uload.asp
Method=Post ENCTYPE="multipart/form-data">
<Input Type=File Name=FileField>
<Input Type=Submit>
</Form>
Kode:
'Upload file using input type=file
Sub UploadFile(DestURL As String, FileName As String, _
Optional ByVal FieldName As String = "File")
Dim sFormData As String, d As String
'Boundary of fields.
'Be sure this string is Not In the source file
Const Boundary As String = "---------------------------0123456789012"
'Get source file As a string.
sFormData = GetFile(FileName)
'Build source form with file contents
d = "--" + Boundary + vbCrLf
d = d + "Content-Disposition: form-data; name=""" + FieldName + """;"
d = d + " filename=""" + FileName + """" + vbCrLf
d = d + "Content-Type: application/upload" + vbCrLf + vbCrLf
d = d + sFormData
d = d + vbCrLf + "--" + Boundary + "--" + vbCrLf
'Post the data To the destination URL
IEPostStringRequest DestURL, d, Boundary
End Sub
Mit problem er at jeg skal have overført de ekstra felter i min form i den post der bliver bygget op, og jeg har ingen ide om hvordan man skal skrue sourceformen sammen jvf. ovenstående.
Jeg ved ikke om det her er det rigtige forum – hvis ikke så giv mig en melding og jeg poster et andet sted.
/hco