| ASP讲座之五：ASP组件（二）__教程 |
|
| 日期：2007-5-20 0:33:33 人气：48 [大 中 小] |
|
|
|
|
|
wuf32.htm – 上传文件的前端Web页面（表单）
<HTML>
<style type="text/css">
<!--
input { font-family: "宋体", "Times New Roman"; font-size: 9pt; line-height: 16pt}
-->
</style>
<BODY BGCOLOR="white">
上传文件的Web页面（可上传文件的个数自己定义，但文件名中不能含中文）
<HR>
<FORM METHOD="POST" ACTION="wuf34.asp" ENCTYPE="multipart/form-data">
<!-- TEXT -->
用户名：<input TYPE="TEXT" name="myText" value=""><br>
<!-- PASSWORD -->
口 令：<input TYPE="PASSWORD" name="myPASSWORD" value=""><br>
<!-- HIDDEN -->
<input TYPE="hidden" name="myHidden" value="hidden"><br>
<!-- 文件 -->
文件1：<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
文件2：<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
文件3：<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
文件4：<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
</BODY></HTML>
按“Upload”按钮，后台由文件wuf34.asp来处理（你也可下载更简单的wuf33.asp）：
<HTML><BODY BGCOLOR="white">
文件上传结果 :
<HR>
<%
Dim mySmartUpload, item, value, file
' 先如下创建组件
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
' 用 For Each 循环获取 From表单中每一项的值
For each item In mySmartUpload.Form
For each value In mySmartUpload.Form(item)
Response.Write(item & " = " & value & "<BR>")
Next
Next
Response.Write "<Hr>"
' 上传文件数据
' Response.Write("文件数目 =" & mySmartUpload.Files.Count &"<BR>")
Response.Write("总字节 = " & mySmartUpload.Files.TotalBytes &" bytes<Br><Br>")
Response.Write("文件清单: " & "<Br>")
' 对每一个文件 - 还有更简单的方法, 见wuf33.asp
For each file In mySmartUpload.Files
If not file.IsMissing Then
'以原来的文件名存于 C:\temp 下
file.SaveAs("c:\temp\" & file.FileName)
Response.Write(file.FileName & " (" & file.Size & "bytes)<BR>")
End If
Next
Set mySmartUpload = Nothing
%>
</BODY>
</HTML>
关于该组件更多、更详细的用法、功能（如限制上传文件的类型、尺寸，上传至数据库，下载文件或数据库字段等等），你可自己去看样例或研究洋文帮助。如果觉得看E文太累，也可下载一个全国产的File Upload组件，里面有中文的帮助和样例，还是不错的，下载地址：http://www.chinaasp.com/program/fileup.zip。 |
|
|
| 出处：本站原创 作者：佚名 |
|
|
