File Name:
File size:
File type:
Div>
body>
html>
Sub UploadFile (Sender As Object, E AS Eventargs)
'If the length of upload is 0, it means that no upload is successful.
If fileup.postedfile.contentLength = 0 THEN
Fileinfo.visible = false
EXIT SUB
Else
Fileinfo.visible = True
END IF
'Display information about the upload file
Fsize.text = cstr (fileup.postedfile.contentLength)
Ftype.text = fileup.postedfile.contenttype
FName.Text = fileup.postedfile.filename
'Store uploaded files
DIM filesplit () as string = split (fileup.postedfile.filename, "/")
DIM filename as string = filesplit (filesplit.length-1)
Fileup.postedFile.saveas (Server.MAppath (".") & "/" & Filename)
End Sub
script>