无惧上传类v2.2的上传问题

erdong988 用友网络 工程师  2008-11-24 05:54:40
实现上传自定义头像功能,相关代码如下:
运行没有错误提示,点击上传后 显示上传成功字样,及保存路径:
“路径:E:\www\baspub\userheadpic\2008112417364516.gif 上传成功!”
路径也没问题,但是对应文件夹内并未增加文件...
到底是什么原因?


<!--#include file="upfile_class.asp"-->
<%
const SaveUpFilesPath="userheadpic" '上传保存路径(当前文件夹下的文件夹名)
set upfile=new upfile_class ''建立上传对象
upfile.NoAllowExt="asp;asa;exe;htm;html;aspx;cs;vb;js;cer;cdx;" '设置上传类型的黑名单
upfile.GetData (10240000) '取得上传数据,限制最大上传10M
if upfile.iserr > 0 then '如果出错
select case upfile.iserr
case 1
response.write "请先选择你要上传的文件!"
case 2
response.write "你上传的文件总大小超出了最大限制(10M)"
end select
response.end
end if

SavePath = Server.mappath(".") & "\" & SaveUpFilesPath
if right(SavePath,1)<>"\" then SavePath=SavePath&"\" '在目录后加(\)

for each formName in upfile.file '列出所有上传了的文件

set ofile=upfile.file(formName) '生成一个文件对象
fileExt=lcase(ofile.FileExt)
strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
upfile.SaveToFile formname,SavePath & filename '保存文件
response.write "路径:" & SavePath & filename
response.write " 上传成功!"
strJS=strJS & "parent.document.uploadpic.UserPhoto.value='"& SaveUpFilesPath & "\" & fileName & "';" & vbcrlf
else
strJS=strJS & "alert('" & msg & "');" & vbcrlf
strJS=strJS & "history.go(-1);" & vbcrlf
end if
strJS=strJS & "</script>" & vbcrlf
response.write strJS
set ofile=nothing
next
set upfile=nothing
...全文
111 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
erdong988 2008-11-24
问题已解决,确实是那个"."的问题
之前文件夹名为“www.xxx.com”时,发现根目录下多出个 www.jpg 文件。。。
这也该算该上传类的一个小bug吧
回复
erdong988 2008-11-24
更正:
“路径:E:\www.xxx.com\baspub\userheadpic\2008112417364516.gif 上传成功!”
在根目录下发现文件,估计是这个“.”的问题。。。
回复
sy_binbin 2008-11-24


upfile.SaveToFile Server.MapPath(SavePath & filename) '保存文件
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-11-24 05:54
社区公告
暂无公告