怎么让文件上传后不改变它的文件名
发布时间:2010-06-14 17:18:19 文章来源:www.iduyao.cn 采编人员:星星草
如何让文件上传后不改变它的文件名
ASP无组件上传部分代码:下面代码上传文件后。文件名是按日期生成的。我希望文件名是原来的文件名谢谢,如何改
<!--#include file="upfile_class.asp"-->
<%
const upload_type=0 '上传方法:0=无惧无组件上传类,1=FSO上传 2=lyfupload,3=aspupload,4=chinaaspupload
dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize
dim EnableUpload
dim arrUpFileType
dim ranNum
dim msg,FoundErr
dim PhotoUrlID
msg=""
FoundErr=false
EnableUpload=false
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY {
BACKGROUND-COLOR: #E1F4EE;
font-size:9pt
}
.tx1 {
height: 20px;
font-size: 9pt;
border: 1px solid;
border-color: #000000;
color: #0000FF
}
-->
</style>
</head>
<body leftmargin="2" topmargin="5" marginwidth="0" marginheight="0" >
<%
if EnableUploadFile="No" then
response.write "系统未开放文件上传功能"
else
select case upload_type
case 0
call upload_0() '使用化境无组件上传类
case else
'response.write "本系统未开放插件功能"
'response.end
end select
end if
%>
</body>
</html>
<%
sub upload_0() '使用化境无组件上传类
set upload=new upfile_class ''建立上传对象
upload.GetData(104857600) '取得上传数据,限制最大上传100M
if upload.err > 0 then '如果出错
select case upload.err
case 1
response.write "请先选择你要上传的文件!"
case 2
response.write "你上传的文件总大小超出了最大限制(200k)"
end select
response.end
end if
PhotoUrlID=Clng(trim(upload.form("PhotoUrlID")))
if PhotoUrlID>0 then
SavePath = "UploadFiles" '存放上传文件的目录
else
SavePath = "UploadFiles" '存放上传文件的目录
end if
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)
for each formName in upload.file '列出所有上传了的文件
set ofile=upload.file(formName) '生成一个文件对象
oFileSize=ofile.filesize
if oFileSize<100 then
msg="请先选择你要上传的文件!"
FoundErr=True
else
select case PhotoUrlID
case 0
if oFileSize>(MaxFileSize*1024) then
msg="文件大小超过了限制,最大只能上传" & CStr(MaxFileSize) & "K的文件!"
FoundErr=true
end if
case 1
if oFileSize>(100000*1024) then
msg="文件大小超过了限制,最大只能上传100M的文件!"
FoundErr=true
end if
end select
end if
fileExt=lcase(ofile.FileExt)
arrUpFileType=split("gif|jpg|bmp|png|swf|doc|rar|xls|exe","|")'如需添加其它类型的文档请在这里添加文档后缀名
for i=0 to ubound(arrUpFileType)
if fileEXT=trim(arrUpFileType(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
EnableUpload=false
end if
if EnableUpload=false then
msg="这种文件类型不允许上传!\n\n只允许上传这几种文件类型:" & "gif|jpg|bmp|png|swf|doc|rar|xls|exe"
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
IIS无法启动的问题
我的系统是XP SP3,目前刚装了IIS。IIS装好后发现有个World Wide Web Publishing服务无法启动,错误信息是127:找不...
-
iis 网址后跟端口号问题
服务器提供商给我分配的是1231端口,可网站打开需要的是80端口,现在我打开网站就需要输入网址:1231才能够打...
-
请教iis 5.1 配置asp.net问题
我的系统是XP SP3,安装的是IIS5.1。
使用asp文件都正常。我想做一个可以在搜索框输入字符或汉字后...
-
IIS安装后测试http://localhost需要输入用户名和密码,但是没有密码啊
看了好多帖子了,勾选匿名访问,更改权限,好多方法都试过了,都不成...
-
vista下的iis7.0 设置的问题
HTTP 错误 404.8 - Not Found
请求筛选模块被配置为拒绝包含 hiddenSegment 节的 URL 中的路径。 详...
-
iis怎么能打开.aspx文件
我刚开始学.net,安装了vs2010,就是不会在iis中浏览.aspx网页(iis浏览.asp网页可以),求教高手帮忙指导。谢谢!(wi...
-
判断题:系统只安装了http协议,然后可以访问ftp吗
貌似在我的系统不安装ftp协议都可以访问学校ftp?难道是系统默认给我装了ftp协议?
...
-
Windows2003 IIS,为什么存在的文件会提示404错误?
Windows2003 IIS,把一个文件1.flv 拷贝到IIS根目录下,为什么输入:
http://localhost...
-
是不是iis有问题,蹊跷
问题描述:网站主题分成两部分,一部分应用vs2005(vb.net客户端回调技术),一部分应用vs2008(c#.net +scriptmanager+...
-
如何将程序都放在网站根目录下?急
现在是将程序放在网站的一个引用程序内,比如aaa,现在访问是http://www.xxx.com/aa
怎么将网址htt...