无掉牙的无组件上传问题？？？客户端的上传文件的类型程序怎样判断，再加以限制？？

[coollele]

无掉牙的无组件上传问题？？？客户端的上传文件的类型程序怎样判断，再加以限制？？

我在网上找了个无组件上传程序能上传文件，但我想在里面加上对上传文件类型的限制,比如只能传gif,或jpg图等

代码如下：
看了半天也不知该怎样加这段程序进去？？




dim adoStream, s, formData,formSize,DataStart,CLStr,DivStr,name
set s = Server.CreateObject("ADODB.Stream")


s.Mode = 3
s.Open 'Open the stream
s.Type = 1


set adoStream = Server.CreateObject("ADODB.Stream")

adoStream.Mode = 3
adoStream.Open
adoStream.Type = 1

formSize=Request.TotalBytes


adoStream.Write Request.BinaryRead(formSize)
adoStream.Position = 0
formData = adoStream.read(formSize)

CLStr=ChrB(13)&ChrB(10)
DataStart=InStrB(formData,CLStr&CLStr)+4
DivStr=LeftB(formData,InStrB(formData,CLStr)-1)
DataSize=InStrB(DataStart+1,formData,DivStr)-2'-DataStart-2

if dataSize - DataStart < 20 then
adoStream.close
s.close
response.redirect "personupfile.asp?errorpic=true"
end if

adoStream.position = datasize-1
adoStream.SetEOS
adoStream.position = DataStart-1
adoStream.copyto s,-1

dim filename,lens
filename = server.mappath("person_images")+"\image_"+ curid + ".gif"
s.SaveToFile filename,2
adoStream.close
s.close
session("image")="image_"+curid+".gif"
response.redirect "personupfile.asp?errorpic=false"

还请指教？？帮我写下这段代码？？？

感激！！！！！

[blueo666]

fileExt=lcase(right(file.filename,4))

if fileEXT<>".gif" and fileEXT<>".jpg" and fileEXT<>".bmp" then
response.write "上传发生错误，文件格式不正确！[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
response.end
end if

[coollele]

大家帮我顶一下

[lamking]

这段代码太简单了.没有提供这样的方法.

[jspadmin]

参考：http://www.pifoo.com/netos/uploadfiles/showup3.rar