蓝森林首页 | 返回主页 | 本站地图 | 站内搜索 | 联系信箱 |
 您目前的位置:首页 > 自由软件 > 技术交流 > 应用编程


    

蓝森林 http://www.lslnet.com 2006年8月25日 8:28

[asp]上传文件的格式不能判断

为什么这个代码不能判断文件格式呢,请帮忙看一下
以下上代码:
<!--#include file="../upfile/upload.inc"-->
<%
'dim fileformat
'fileformat=mid(file.FileName,InStrRev(file.FileName, ".")+1)
'if fileformat<>"gif" or fileformat<>"jpg" or fileformat<>"png" or fileformat<>"jpeg" or fileformat<>"bmp" or fileformat<>"swf" then
'response.write "<script language=JavaScript>alert('您上传的文件是不符合格式的的文件!\n支持上传的文件格式有:*.gif、*.jpg、*.jpeg、*.png、*.bmp、*.swf');history.back()</Script>"
'response.end
'end if
dim upload,file,formName,formPath,iCount
set upload=new upload_F
        function MakedownName()
                dim fname
                  fname = now()
                fname = replace(fname,"-","")
                 fname = replace(fname," ","")
                fname = replace(fname,":","")
                  fname = replace(fname,"PM","")
                  fname = replace(fname,"AM","")
                fname = replace(fname,"上午","")
                  fname = replace(fname,"下午","")
                  fname = int(fname) + int((10-1+1)*Rnd + 1)
                MakedownName=fname
        end function
formPath="../file/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName)  ''生成一个文件对象
if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)

  file.SaveAs Server.mappath(formPath&newname)   ''保存文件
  iCount=iCount+1
else
  response.Redirect "../user/up_fill02.asp"
  response.end
end if
next
%>

'if fileformat<>"gif" or fileformat<>"jpg" or fileformat<>"png" or fileformat<>"jpeg" or fileformat<>"bmp" or fileformat<>"swf" then

要么把<>都换成=,并且括起来前边用个NOT

要么把or都换成and

你这样判断是永远为真的。

都不知你要的是什么格式

你都注释了,还怎么执行?




Copyright © 1999-2000 LSLNET.COM. All rights reserved. 蓝森林网站 版权所有。 E-mail : webmaster@lslnet.com