In the article I posted last time, I mentioned several comparisons of upload components.
Now we have our own hands and clothing to build our own upload component
This upload component should have the following features:
1. Should be able to accept the values passed through the form elements of various HTML, without
Passed through the text or select.
2. Should be able to give an upload path
3. should be able to limit the size of uploaded files
4. should be able to support multiple files upload simultaneously
5. should be able to handle exception errors
6. Should be able to work stably
7. Should be able to do it without favoritism (that is, being able to work simultaneously in IE and Netscape)
8. Ability to save files in a database
9. Should be able to restrict user permissions
The code and file are shown below (the old rules, I don't explain them in detail)
1. Upload.htm
<HTML>
<HEAD><TITLE>Upload</TITLE></HEAD>
<BODY>
<form name= "Frmupload" method= "Post" enctype= "Multipart/form-data" action= "upload.asp" > <TABLE>
<TR><TD> author </td><td><input type= "text" name= "Txtauthor" ></TD></TR>
<TR><TD> file </td><td><input type= "file" Name= "Txtfilename" ></TD></TR>
<TR><TD colspan= "2" align= "right" ><input type= "Submit" value= "Upload" ></TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>
* * Note: use enctype= "Multipart/form-data" to allow form to submit a file
2. Upload.asp
<%@ Language=vbscript%>
<%
Option Explicit
Response.Buffer = True
On Error Resume Next
If Request.ServerVariables ("request_method") = "POST" Then
Dim Objupload
Dim lngmaxfilebytes
Dim Struploadpath
Dim Varresult
Lngmaxfilebytes = 10000
Struploadpath = "C:inetpubwwwrootupload"
Set objupload = Server.CreateObject ("Pjuploadfile.clsupload")
