Tornado Upload

Upload File 1
Upload File 2
Upload File 3

 

Allow Extensions: jpg.jpe.jpeg.gif.png.txt.doc.xls.ppt.pdf
Allow Size: 25,000 Bytes
Allow Overwrite: true


Upload Files
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
   Dim GD As New Tornado.GetData
   Dim up As New Tornado.z
   up.dbUnit = 1
   up.dbSkin = "Tornado"
   up.dbTextHolder = "Title=Tornado Upload"
   up.dbUpload = "SavePath=/tornado/scratch/| AllowSize=25000"
   up.ASPdbUpload()
'...Retrieve Uploaded file names
   Dim uf As String() = GD.Get_UploadFiles
'...Display as HREF as an example
   If Not IsNothing(uf) Then
      Dim i As Integer
      Response.Write("<hr><div align=left>Your uploaded files - <P>")
      For i = 0 To UBound(uf)
         Response.Write("<A target='_blank' HREF='/tornado/scratch/" & uf(i) & "'>" & uf(i) & "</a><BR>")
      Next
      Response.Write("</div>")
   End If
End Sub
</script>
Files upload is an essential activity in content management. With Tornado's file upload, you can control The SavePath, Overwrite, File Extensions, File size and Notes. Upon a successful upload (Files uploaded > 0), you have the option to send a notification email to an Email Address. In this example - upon a successful upload, it'll present an <A HREF...> for you to view your own file.

Send comments on this topic.
Copyright (c) 1998-2006 ASP-db