求代码修改，实现图片原文件名上传及保存

qiudaoyuzi 2012-09-25 11:48:20

这是我当前的代码，按上传时间来命名的，想请高手们修改一下实现原文件名上传及保存



<%
'========最大上传的文件大小
Const MaxFileSize = 2048000
Const UP_FileTypes = "GIF|JPG|PNG|BMP|JPEG"
'==============================
'限制上传文件类型
'==============================

Function IsvalidFile(File_Type)
IsvalidFile = False
Dim GName, UP_FileType
UP_FileType = Split(UP_FileTypes, "|")
For Each GName in UP_FileType
If UCase(File_Type) = UCase(GName) Then
IsvalidFile = True
Exit For
End If
Next
End Function
%>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<script type="text/javascript">
window.isIE = (navigator.appName == "Microsoft Internet Explorer");

//插入上传附件
function addUploadItem(type,path){
var editType="<%=editType%>";
var html;
var oEditor = parent.FCKeditorAPI.GetInstance('content');
html = '<br /><img src="'+path+'"><br />';
oEditor.InsertHtml(html);
}
</script>
<style type="text/css">

</style>
</head>
<body>
<%
Server.ScriptTimeOut = 999
If Request.Querystring("action") = "upload" Then
Dim upl, FSOIsOK
FSOIsOK = 1
If Err<>0 Then
Err.Clear
FSOIsOK = 0
End If

Dim savePath, saveName, FullPath
savePath = SiteRoot&"FlashHotel/thumb/"
Dim upload
Set upload = New Cls_Upfile
upload.GetData(MaxFileSize)
Dim ofile, F_Type, formName
For Each formName in upload.File '列出所有上传了的文件
Set ofile = upload.File(formName) '生成一个文件对象

Dim oFileSize
oFileSize = ofile.filesize
randomize
ranNum=int(900*rnd)+100
saveName = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) & ranNum & "." & LCase(ofile.fileExt)
FullPath = savePath & saveName
F_Type = ofile.fileExt
If oFileSize >(MaxFileSize) Then
Response.Write("<div style=""padding:6px""><a href=""attachment_Hx.asp"">文件大小" & oFileSize & "超出，请返回重新上传</a></div>")

...全文

45 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Banianer 2012-09-25

打赏
举报

回复

saveName = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) & ranNum & "." & LCase(ofile.fileExt)

改成 saveName= ofile.FileName

本上传类为自己写的类，最主要的目的是尽可能用最简单易懂的代码实现ASP的上传，主要的功能包括提取表单数据、上传到不同文件夹、保存到数据库(上传和保存表单可同时进行)、限制上传扩展名、限制上传大小、选择文件保存类型(原文件名和时间随机命名)等！艾恩ASP无组件上传类AienAspUpload v13.11.25 bulid2013.11.22 更新日志：修改恶意构造上传可能会造成死循环的BUG

刚学完Struts2的图片上传-显示，一点个人总结。最后附上（上传，显示，修改，删除）的代码下载. 效果图：思路： 1. 确定保存图片的位置； 2.获取文件名，并修改文件名（因为存在文件名重复而出现的报错或文件覆盖的可能，所以在将文件名保存到数据库前，先修改） 3. 上传文件到服务器（指定位置） 4. 将文件名存...

1要求上传时把文件重命名，下载时还原其上传时的文件名两种实现方法：1.把原文件名存入数据库中2.把原文件名保存到，原本的名字中（新建.doc - > as1asd21sd34新建.doc）windows的文件名默认能保存170多个文字节，想来Linux也不会太少实现代码：package com.demo.utils; import java.util.UUID; public cla...

主要讲解了如何使用api函数wx.chooseImage和wx.uploadFile实现单图片和多图片的上传。单站图片可以相册选择或者拍照上传，多图片只能相册选择。首页我们讲解了如何实现单张图片的选择或者上传。然后重点讲解多图片如何实现循环上传单张图片。

# Python Selenium 图片自动搜索保存项目实践## 课程介绍同学们是否在找一个完整且有趣的 Selenium 项目？来试试本课程吧。本课程主要内容有：1. 介绍项目；2. 搭建项目环境；3. 设计项目代码组织方式；4. 实现访问首页；5. 实现图片自动搜索；6. 遍历所有图片列表页面；7. 获取所有图片详情页链接；8. 增加下载数量限制；9. 获取所有图片下载链接；10. 下载所有图片。## 备注1. 课程代码、课程笔记等内容，在课程课件里面；2. 购买课程后，播放页左上角才会出现下载按钮。

61,658

社区成员

669,130

社区内容

发帖

与我相关

我的任务

javascript云原生企业社区

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章