|
This page contains both the upload form and the form upload
processing routines. The first time the page is visited no file
will be saved because no data has been posted - hence the item
count is zero. When the submit button is pressed the page will post
the contents to itself and this time a file will be saved.
<% @Language="VBScript" %>
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm")
If theForm.Count > 0 Then
theForm.Overwrite = True
Set theField = theForm.Files("filefield")
If theField.FileExists Then
theField.Save "myupload.dat"
End If
End If
%>
<html>
<body>
<form method="post" action="selfref.asp"
enctype="multipart/form-data">
<input type="file" name="filefield"><br>
<input type="submit" name="submit" value="submit">
</form>
<body>
</html>
|