木子屋 Dnawo's BLOG

ASPUpload上传文件简明教程

👤 dnawo 📅 2007-05-30 👁 7665 👍 0 💬 0 🔄 来源：本站原创
一、ASPUpload常用属性和方法(本次使用为v3.0.0.5 特别版)

HTML
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASPUpload</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style></head>

<body>
<strong>上传文件组件的属性：</strong><br />
<br />
<table width="305" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="134" height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 名称</td>
    <td width="168" height="20" align="center" valign="middle" bgcolor="#FFFFFF">说明</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">OverwriteFiles</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">是否覆盖文件</td>
  </tr>
</table>
<p><br />
  <strong>上传组件的方法：</strong></p>
<table width="460" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="80" height="20" align="center" valign="middle" bgcolor="#FFFFFF">名称</td>
    <td width="144" height="20" align="center" valign="middle" bgcolor="#FFFFFF">说明</td>
    <td width="232" height="20" align="center" valign="middle" bgcolor="#FFFFFF">备注</td>
  </tr>
  <tr>
    <td height="45" align="center" valign="middle" bgcolor="#FFFFFF">Save</td>
    <td height="45" align="center" valign="middle" bgcolor="#FFFFFF">保存文件</td>
    <td height="45" align="left" valign="middle" bgcolor="#FFFFFF">既是子过程又是函数过程。子过程有参数则传至服务器，无参数传至服务器内容中；函数过程返回的是上传文件数量。</td>
  </tr>
  <tr>
    <td height="42" align="center" valign="middle" bgcolor="#FFFFFF">SetMaxsize</td>
    <td height="42" align="center" valign="middle" bgcolor="#FFFFFF">设置上传文件最大字节数</td>
    <td height="42" align="left" valign="middle" bgcolor="#FFFFFF"> 使用方法：SetMaxsize 1024,True<br />
    说明：最大字节1024，显示错误信息，若为 False则截断文件大小，不显示错误信息。 </td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Form</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">获取上传表单元素对象</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">-</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Files</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">获取上传文件对象</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">-</td>
  </tr>
</table>
<p><strong>上传文件的属性：</strong></p>
<table width="305" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="134" height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 名称</td>
    <td width="168" height="20" align="center" valign="middle" bgcolor="#FFFFFF">说明</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Name</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">表单名称</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">FileName</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">文件名</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Path</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">在服务器端路径</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Size</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">文件大小，单位：字节</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Ext</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">扩展名</td>
  </tr>
</table>
<p><strong>上传文件的方法：</strong>   <br />
  </p>
<table width="305" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="134" height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 名称</td>
    <td width="168" height="20" align="center" valign="middle" bgcolor="#FFFFFF">说明</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">SaveAs</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 文件另存为</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">ToDatabase</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 将文件保存至数据库</td>
  </tr>
</table>
<p><br />
  <strong>上传表单元素的属性：</strong><br />
</p>
<table width="305" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="134" height="20" align="center" valign="middle" bgcolor="#FFFFFF"> 名称</td>
    <td width="168" height="20" align="center" valign="middle" bgcolor="#FFFFFF">说明</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Name</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">表单名称</td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">Value</td>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">表单的值</td>
  </tr>
</table>
</body>
</html>

二、应用举例

将文件上传至服务器分成两种情况：按原有文件名保存和重命名保存，两种保存方法不太一样，下面举两例分别说明，上传表单统一为：

<form action="save.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
  text1:
    <input name="text1" type="text" id="text1" />
  <br />
  file1:
  <input name="file1" type="file" id="file1" />
  <br />
  text2:
  <input name="text2" type="text" id="text2" />
  <br />
  file2:
  <input type="file" name="file2" />
  <input type="submit" name="Submit" value="提交" />
  <br />
</form>


1.原文件名保存

<%
On error resume Next
Dim Upload
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxsize 10*1024*1024,True
Upload.save Server.mappath(".") '保存文件，改为count=Upload.save(path)可返回上传文件数量
If err.number=8 Then
	Response.write "文件大小超过限制!"
	Response.End()
End if

'显示信息方法一:根据表单名称
Response.Write("<br/>--------------------------------------方法一------------------------------------<br/>")
Response.Write("获取表单值：<br/>")
Response.Write("text1:<br/>" & Upload.Form("text1").name & "=" & Upload.Form("text1").value & "<br/>")
Response.Write("text2:<br/>" & Upload.Form("text2").name & "=" & Upload.Form("text2").value & "<br/>")
Response.Write("<br/>")
Response.Write("获取文件信息：<br/>")
Response.Write("file1:<br/>" & "  表单名字:" & Upload.Files("file1").name & "<br/>")
Response.Write("  上传路径:" & Upload.Files("file1").path & "<br/>")
Response.Write("  文件名字:" & Upload.Files("file1").filename & "<br/>")
Response.Write("  文件大小:" & Upload.Files("file1").size & "字节<br/>")
Response.Write("  扩展名:" & Upload.Files("file1").Ext & "<br/>")
Response.Write("file2:<br/>" & "  表单名字:" & Upload.Files("file2").name & "<br/>")
Response.Write("  上传路径:" & Upload.Files("file2").path & "<br/>")
Response.Write("  文件名字:" & Upload.Files("file2").filename & "<br/>")
Response.Write("  文件大小:" & Upload.Files("file2").size & "字节<br/>")
Response.Write("  扩展名:" & Upload.Files("file2").Ext & "<br/>")


'显示信息方法二:使用For each ... in
Response.Write("<br/>--------------------------------------方法二------------------------------------<br/>")
Response.Write("获取表单值：<br/>")
For each MyForm in Upload.Form
	Response.Write("表单:<br/>" & MyForm.name & "=" & MyForm.value & "<br/>")
Next
Response.Write("<br/>")
Response.Write("获取文件信息：<br/>")
For each MyFiles in Upload.Files
	Response.Write("文件:<br/>" & "  表单名字:" & MyFiles.name & "<br/>")
	Response.Write("  上传路径:" & MyFiles.path & "<br/>")
	Response.Write("  文件名字:" & MyFiles.filename & "<br/>")
	Response.Write("  文件大小:" & MyFiles.size & "字节<br/>")
	Response.Write("  扩展名:" & MyFiles.Ext & "<br/>")
Next

Set Upload = nothing
%>


2.重命名保存

<%
On error resume Next
Dim Upload
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxsize 10*1024*1024,True
Upload.save() '先将文件保存到内存，改为count=Upload.save()可返回上传文件数量
If err.number=8 Then
	Response.write "文件大小超过限制!"
	Response.End()
End if

Dim newname

'保存方法一：根据表单名称
'Set file1 = Upload.Files("file1")
'newname = year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & second(now())
'file1.SaveAs Server.MapPath(".") & "\" & newname & file1.Ext
'Set file1 = nothing

'保存方法二：使用For each ... in
For each MyFiles in Upload.Files
	newname = year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & second(now())
	MyFiles.SaveAs Server.MapPath(".") & "\" & newname & MyFiles.Ext
Next

Set Upload = nothing
%>


3.将文件保存至数据库中

<%
On error resume Next
Dim Upload,Upfile
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxsize 10*1024*1024,True
Upload.save() '先将文件保存到内存，改为count=Upload.save()可返回上传文件数量
Set Upfile = Upload.Files("file1")
If err.number=8 Then
    Response.write "文件大小超过限制!"
    Response.End()
End if

Dim strConn,strSql
strConn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("db1.mdb")
strSql = "Insert into t7(f_name,f_size,f_file) values('" & Upfile.filename & "','" & Upfile.size & "',?)" 'OLE字段值用?代替

Upfile.ToDatabase strConn,strSql

Set Upfile = nothing
Set Upload = nothing
%>

评论（0）

暂无评论。

验证码
评论需审核通过后显示
← 上一篇 您试图从目录中执行 CGI、ISAPI 或其他可执行程序，但该目… 下一篇 → 弹出保存窗口下载服务器上的任何文件[已知大小]