会员注册 | 价格总览 | 帮助中心 | 会员中心 | 购物车 | 控制面板 | 表格下载 
  主页 | 产品服务 | 公司信息 | 客户服务 | 代理专区
帮助中心
虚拟主机
主机托管
VPS主机
域名问题
邮箱问题
数据库问题
网站备案问题
会员相关
综合问题集锦
代理平台问题
如何使用AspUpload组件上传文件 打印 E-mail
使用AspUpload组件上传文件,使用范例代码如下:

AspUpload组件上传测试
<form method="POST" enctype="multipart/form-data" action="?act=upload">
 <input type="file" size="40" name="file1"><br>
 <!--<input type="file" size="40" name="file2"><br>
 <input type="file" size="40" name="file3"><br>-->
 <br>其他表单项<input type="text" name="uploadText" value=""><br>
 <br><input type="submit" value="上传文件">
</form>
<%
if request("act") = "upload" then

 AllowExt = "jpg,png,gif,zip,rar,sql,txt,bak"
 On Error Resume Next

 ' 新建AspUpload对象
 Set Upload = Server.CreateObject("Persits.Upload")

 ' 限制文件大小
 Upload.SetMaxSize 4194304, True

 ' 上传路径--当前目录下的test目录
 uploadDir = Server.MapPath("test")

 ' 尝试创建路径文件夹,true表示忽略目录已存在错误
 Upload.CreateDirectory uploadDir, true

 ' 先上传文件至服务器内存
 Count = Upload.Save()

 ' 检测上传错误
 If Err.Number = 8 Then
  Response.Write chinese2unicode("错误: 文件过大!")
  Response.end
 Else
  If Err <> 0 Then
   response.write chinese2unicode("发生错误:")
   response.write chinese2unicode(Err.Description)
   response.end
  End If
 End If

 'Response.Write chinese2unicode("共 " & Count & " 个文件") & "<br><br>"

 ' 指定一个上传的表单文件
 Set File = Upload.Files("file1")
 If Not File Is Nothing Then
  ' 获取原本文件名
  Filename = File.Filename
  ' 获取文件扩展名
  Fileext = File.Ext

  ' 检测文件格式是否合格
  ChkStr = ","&Lcase(AllowExt)&","
  If Instr(ChkStr,","&right(Fileext,3)&",") <= 0 Then
   Response.Write chinese2unicode("错误: 文件类型不正确!")
   response.write "<br>"
   response.write chinese2unicode("只允许:"&AllowExt)
   ' 删除内存中的临时文件,以释放内存或硬盘空间(还可用Copy、Move两个指令)
   File.Delete
  ' 检测是否存在文件
  elseif Upload.FileExists(uploadDir & "\" & Filename) Then
   File.SaveAs uploadDir & "\" & Filename
   Response.Write chinese2unicode("已覆盖存在相同文件名的文件: ") & File.Path
  ' 保存文件
  else
   File.SaveAs uploadDir & "\" & Filename
   Response.Write chinese2unicode("文件已保存到: ") & File.Path
  end If
 Else
  Response.Write chinese2unicode("错误: 您并没有选择文件!")
 End If

 Response.Write "<br><br>"

 '' 批量上传文件,去掉注释即可用。
 For Each File in Upload.Files
   'File.SaveAs uploadDir & "\" & File.FileName
   'Response.Write chinese2unicode("文件已保存到: ") & File.Path & "<br>"
 Next


'Response.Write "<br><br>Files:<br>"
For Each File in Upload.Files
 'Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<br>"
Next

'' 列出其他表单内容(必须执行Upload.Save()后才有效)
For Each Item in Upload.Form
 Response.Write Item.Name & " = " & Item.Value & "<br>"
Next

'列出指定的表单内容
Response.Write "<br>"&chinese2unicode("列出指定内容uploadText:"&Upload.Form("uploadText").value)

 

end if

 

' gb2312转unicode,解决中文乱码问题
function chinese2unicode(Str)
 dim i
 dim Str_one
 dim Str_unicode
 for i=1 to len(Str)
  Str_one=Mid(Str,i,1)
  Str_unicode=Str_unicode&chr(38)
  Str_unicode=Str_unicode&chr(35)
  Str_unicode=Str_unicode&chr(120)
  Str_unicode=Str_unicode& Hex(ascw(Str_one))
  Str_unicode=Str_unicode&chr(59)
 next
 Response.Write Str_unicode
end function    
%>

< 上一篇   下一篇 >
关于我们  |  参观机房  |  合作伙伴  |  付款方式  |  联系方式 
Copyright © 2000-2006 广东金万邦科技投资有限公司(新一代数据中心)
公司地址:广州市东风西路191号国际银行中心17楼
客服热线: / 虚机24小时值班热线:020-81350692/81351026
传真:020-81351643 邮箱: 邮编:510180
下载alexa插件,提升您的网站排名