mdekker
31/10/04, 13:26
Hoi Allemaal,
Ik zit met een klein probleem die ik zelf niet kan oplossen.
Ik heb een uploadscript en het gedeelte hieronder is het wat de file's upload(3 files upload ie):
<!--#include file="requestobjects.asp"-->
<%
Option Explicit
Response.Buffer = False
Server.ScriptTimeOut = 300
Dim oPseudoRequest, element, i, bTest
Set oPseudoRequest = new PseudoRequestDictionary
oPseudoRequest.ReadRequest()
oPseudoRequest.ReadQuerystring(Request.Querystring )
%>
<html>
<head>
<title>Demo and Instruction PseudoRequestDictionary Script Class</title>
</head>
<body bgcolor="#F6FFFF" link="green" vlink="green" alink="green">
<center><table width="80%"><tr><td>
<a href="default.asp"><b>back to index</b></a> | <a href="fileupload.asp"><b>back to form</b></a><br>
<center>
<h2>Demo and Instruction PseudoRequestDictionary Script Class</h2>
<h3>FileUpload Options</h3>
</center>
<p>
<table width="100%" border="1">
<tr>
<td colspan="2" nowrap bgcolor="yellow">
<%<br>
Dim oPseudoRequest, element<br>
Set oPseudoRequest = new PseudoRequestDictionary<br>
oPseudoRequest.ReadRequest()<br>
oPseudoRequest.ReadQuerystring(Request.Querystring )<br>
%><br>
</td>
</tr>
<tr>
<td>oPseudoRequest</td>
<td><%=oPseudoRequest%></td>
</tr>
<tr>
<td>oPseudoRequest.Boundary</td>
<td><%=oPseudoRequest.Boundary%></td>
</tr>
<tr>
<td>oPseudoRequest.BinaryReadDone</td>
<td><%=oPseudoRequest.BinaryReadDone%></td>
</tr>
<tr>
<td>oPseudoRequest.TotalFormBytes</td>
<td><%=oPseudoRequest.TotalFormBytes%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Count</td>
<td><%=oPseudoRequest.Count%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.ContainsFile</td>
<td><%=oPseudoRequest.ContainsFile%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Files.Count</td>
<td><%=oPseudoRequest.Files.Count%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").ContainsFile</td>
<td><%=oPseudoRequest.Form("file_1").ContainsFile%></td>
</tr>
<tr>
<td valign="top">looping through elements</td>
<td>
<%
For each element in oPseudoRequest.Keys
Response.write element & " = " & oPseudoRequest.Form(element) & "<br>"
Next
%>
</td>
</tr>
<%If oPseudoRequest.Form("file_1").Count <=1 Then %>
<tr>
<td valign="top">all properties from "file_1"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_1") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_1").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_1").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_1").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").SaveAs("c:\temp\" & oPseudoRequest.Form("file_1").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_1").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_1", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%Else%>
<tr>
<td valign="top">all properties from "file_1"</td>
<td>
<%
For i = 1 To oPseudoRequest.Form("file_1").Count
If oPseudoRequest.Form("file_1").IsFile(i) Then
Response.write "oPseudoRequest.Form(""file_1"")(" & i & ") is a fileupload-field:<br>"
Response.write "complete path: " & oPseudoRequest.Form("file_1").ValueNumber(i) & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_1").FileNameNumber(i) & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_1").FileSizeNumber(i) & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_1").ContentTypeNumber(i) & "<br>"
Else
Response.write "oPseudoRequest.Form(""file_1"")(" & i & ") is a normal formfield:<br>"
Response.write "value: " & oPseudoRequest.Form("file_1").ValueNumber(i) & "<br>"
End If
Response.write "<br>"
Next
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").SaveAsNumber("c:\temp\" & oPseudoRequest.Form("file_1").FileNameNumber(i),i)</td>
<td>
<%
For i = 1 To oPseudoRequest.Form("file_1").Count
Response.write "processing oPseudoRequest(""file_1"")(" & i & ")<br>"
If oPseudoRequest.Form("file_1").ContainsFileNumber(i) Then
bTest = SaveFileAsWithNumber(oPseudoRequest, "file_1", "c:\temp\",i)
If bTest Then
Response.write "saving of file succeeded<br>"
Else
Response.write "an error occurred during saving of the file<br>"
End If
Else
Response.write "field did not contain a file<br>"
End If
Response.write "<br>"
Next
%>
</td>
</tr>
<%End If%>
<%If oPseudoRequest.Exists("file_2") Then %>
<tr>
<td valign="top">all properties from "file_2"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_2") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_2").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_2").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_2").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_2").SaveAs("c:\temp\" & oPseudoRequest.Form("file_2").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_2").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_2", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%End If%>
<%If oPseudoRequest.Exists("file_3") Then %>
<tr>
<td valign="top">all properties from "file_3"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_3") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_3").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_3").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_3").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_3").SaveAs("c:\temp\" & oPseudoRequest.Form("file_3").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_3").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_3", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%End If%>
</td></tr></table></center>
</body>
</html>
<%
Function SaveFileAs(oPseudoRequest, sItem, sSaveDirectory)
SaveFileAs = False
'On Error Resume Next
oPseudoRequest.Form(sItem).SaveAs(sSaveDirectory & oPseudoRequest.Form(sItem).FileName)
If Not Err Then SaveFileAs = True
End Function
Function SaveFileAsWithNumber(oPseudoRequest, sItem, sSaveDirectory, i)
SaveFileAsWithNumber = False
'On Error Resume Next
oPseudoRequest.Form(sItem).SaveAsNumber sSaveDirectory & oPseudoRequest.Form(sItem).FileNameNumber(i), i
If Not Err Then SaveFileAsWithNumber = True
End Function
Set oPseudoRequest = Nothing
%>
BEKIJK SCREENSHOT:
http://members.lycos.nl/fadeawaysite/upload/screenshot.jpg
Dit is een stukje screenshot van de pagina als ik geupload heb, dit staat op de zelfde pagina als de pagina die upload.
Nu heb ik stukjes gemarkeerd met rood. Die 3 namen moetten dan op worden geslagen in een access database.
Maar nu de vraag hoe? als je dit weet zou je me dit dan zo spoedig mogelijk willen laten weten?
Alvast bedankt,
Groeten, Melis Dekker
Ik zit met een klein probleem die ik zelf niet kan oplossen.
Ik heb een uploadscript en het gedeelte hieronder is het wat de file's upload(3 files upload ie):
<!--#include file="requestobjects.asp"-->
<%
Option Explicit
Response.Buffer = False
Server.ScriptTimeOut = 300
Dim oPseudoRequest, element, i, bTest
Set oPseudoRequest = new PseudoRequestDictionary
oPseudoRequest.ReadRequest()
oPseudoRequest.ReadQuerystring(Request.Querystring )
%>
<html>
<head>
<title>Demo and Instruction PseudoRequestDictionary Script Class</title>
</head>
<body bgcolor="#F6FFFF" link="green" vlink="green" alink="green">
<center><table width="80%"><tr><td>
<a href="default.asp"><b>back to index</b></a> | <a href="fileupload.asp"><b>back to form</b></a><br>
<center>
<h2>Demo and Instruction PseudoRequestDictionary Script Class</h2>
<h3>FileUpload Options</h3>
</center>
<p>
<table width="100%" border="1">
<tr>
<td colspan="2" nowrap bgcolor="yellow">
<%<br>
Dim oPseudoRequest, element<br>
Set oPseudoRequest = new PseudoRequestDictionary<br>
oPseudoRequest.ReadRequest()<br>
oPseudoRequest.ReadQuerystring(Request.Querystring )<br>
%><br>
</td>
</tr>
<tr>
<td>oPseudoRequest</td>
<td><%=oPseudoRequest%></td>
</tr>
<tr>
<td>oPseudoRequest.Boundary</td>
<td><%=oPseudoRequest.Boundary%></td>
</tr>
<tr>
<td>oPseudoRequest.BinaryReadDone</td>
<td><%=oPseudoRequest.BinaryReadDone%></td>
</tr>
<tr>
<td>oPseudoRequest.TotalFormBytes</td>
<td><%=oPseudoRequest.TotalFormBytes%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Count</td>
<td><%=oPseudoRequest.Count%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.ContainsFile</td>
<td><%=oPseudoRequest.ContainsFile%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Files.Count</td>
<td><%=oPseudoRequest.Files.Count%></td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").ContainsFile</td>
<td><%=oPseudoRequest.Form("file_1").ContainsFile%></td>
</tr>
<tr>
<td valign="top">looping through elements</td>
<td>
<%
For each element in oPseudoRequest.Keys
Response.write element & " = " & oPseudoRequest.Form(element) & "<br>"
Next
%>
</td>
</tr>
<%If oPseudoRequest.Form("file_1").Count <=1 Then %>
<tr>
<td valign="top">all properties from "file_1"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_1") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_1").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_1").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_1").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").SaveAs("c:\temp\" & oPseudoRequest.Form("file_1").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_1").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_1", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%Else%>
<tr>
<td valign="top">all properties from "file_1"</td>
<td>
<%
For i = 1 To oPseudoRequest.Form("file_1").Count
If oPseudoRequest.Form("file_1").IsFile(i) Then
Response.write "oPseudoRequest.Form(""file_1"")(" & i & ") is a fileupload-field:<br>"
Response.write "complete path: " & oPseudoRequest.Form("file_1").ValueNumber(i) & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_1").FileNameNumber(i) & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_1").FileSizeNumber(i) & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_1").ContentTypeNumber(i) & "<br>"
Else
Response.write "oPseudoRequest.Form(""file_1"")(" & i & ") is a normal formfield:<br>"
Response.write "value: " & oPseudoRequest.Form("file_1").ValueNumber(i) & "<br>"
End If
Response.write "<br>"
Next
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_1").SaveAsNumber("c:\temp\" & oPseudoRequest.Form("file_1").FileNameNumber(i),i)</td>
<td>
<%
For i = 1 To oPseudoRequest.Form("file_1").Count
Response.write "processing oPseudoRequest(""file_1"")(" & i & ")<br>"
If oPseudoRequest.Form("file_1").ContainsFileNumber(i) Then
bTest = SaveFileAsWithNumber(oPseudoRequest, "file_1", "c:\temp\",i)
If bTest Then
Response.write "saving of file succeeded<br>"
Else
Response.write "an error occurred during saving of the file<br>"
End If
Else
Response.write "field did not contain a file<br>"
End If
Response.write "<br>"
Next
%>
</td>
</tr>
<%End If%>
<%If oPseudoRequest.Exists("file_2") Then %>
<tr>
<td valign="top">all properties from "file_2"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_2") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_2").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_2").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_2").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_2").SaveAs("c:\temp\" & oPseudoRequest.Form("file_2").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_2").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_2", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%End If%>
<%If oPseudoRequest.Exists("file_3") Then %>
<tr>
<td valign="top">all properties from "file_3"</td>
<td>
<%
Response.write "complete path: " & oPseudoRequest.Form("file_3") & "<br>"
Response.write "filename: " & oPseudoRequest.Form("file_3").FileName & "<br>"
Response.write "filesize: " & oPseudoRequest.Form("file_3").FileSize & "<br>"
Response.write "contenttype: " & oPseudoRequest.Form("file_3").ContentType & "<br>"
%>
</td>
</tr>
<tr>
<td valign="top">oPseudoRequest.Form("file_3").SaveAs("c:\temp\" & oPseudoRequest.Form("file_3").FileName)</td>
<td>
<%
If oPseudoRequest.Form("file_3").ContainsFile Then
bTest = SaveFileAs(oPseudoRequest, "file_3", "c:\temp\")
If bTest Then
Response.write "saving of file succeeded"
Else
Response.write "an error occurred during saving of the file"
End If
Else
Response.write "field did not contain a file"
End If
%>
</td>
</tr>
<%End If%>
</td></tr></table></center>
</body>
</html>
<%
Function SaveFileAs(oPseudoRequest, sItem, sSaveDirectory)
SaveFileAs = False
'On Error Resume Next
oPseudoRequest.Form(sItem).SaveAs(sSaveDirectory & oPseudoRequest.Form(sItem).FileName)
If Not Err Then SaveFileAs = True
End Function
Function SaveFileAsWithNumber(oPseudoRequest, sItem, sSaveDirectory, i)
SaveFileAsWithNumber = False
'On Error Resume Next
oPseudoRequest.Form(sItem).SaveAsNumber sSaveDirectory & oPseudoRequest.Form(sItem).FileNameNumber(i), i
If Not Err Then SaveFileAsWithNumber = True
End Function
Set oPseudoRequest = Nothing
%>
BEKIJK SCREENSHOT:
http://members.lycos.nl/fadeawaysite/upload/screenshot.jpg
Dit is een stukje screenshot van de pagina als ik geupload heb, dit staat op de zelfde pagina als de pagina die upload.
Nu heb ik stukjes gemarkeerd met rood. Die 3 namen moetten dan op worden geslagen in een access database.
Maar nu de vraag hoe? als je dit weet zou je me dit dan zo spoedig mogelijk willen laten weten?
Alvast bedankt,
Groeten, Melis Dekker