上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
aspupload上传文件重命名的两种方法
编辑:dnawo 日期:2007-06-08
方法一：
方法二：
复制内容到剪贴板
程序代码
程序代码Set Upload = Server.CreateObject("Persits.Upload")
' Prevent overwriting
Upload.OverwriteFiles = False
' We use memory uploads, so limit file size
Upload.SetMaxSize 1000000, true
' Save to memory
Upload.Save
' Use session ID as the new file name
NewName = Session.SessionID
For Each File in Upload.Files
File.SaveAs "c:\upload\" & NewName & File.ext
Response.Write "New name: " & File.FileName & "<BR>"
Next
' Prevent overwriting
Upload.OverwriteFiles = False
' We use memory uploads, so limit file size
Upload.SetMaxSize 1000000, true
' Save to memory
Upload.Save
' Use session ID as the new file name
NewName = Session.SessionID
For Each File in Upload.Files
File.SaveAs "c:\upload\" & NewName & File.ext
Response.Write "New name: " & File.FileName & "<BR>"
Next
方法二：
复制内容到剪贴板 程序代码
程序代码Set Upload = Server.CreateObject("Persits.Upload")
' Prevent overwriting
Upload.OverwriteFiles = False
' Save to disk
Upload.Save "c:\upload"
' Use session ID as the new file name
NewName = Session.SessionID
For Each File in Upload.Files
File.Copy "c:\upload\" & NewName & File.ext
File.Delete
Response.Write "New name: " & NewName & File.ext & "<BR>"
Next
' Prevent overwriting
Upload.OverwriteFiles = False
' Save to disk
Upload.Save "c:\upload"
' Use session ID as the new file name
NewName = Session.SessionID
For Each File in Upload.Files
File.Copy "c:\upload\" & NewName & File.ext
File.Delete
Response.Write "New name: " & NewName & File.ext & "<BR>"
Next
评论: 1 | 引用: 0 | 查看次数: 6849
发表评论
请登录后再发表评论！
