我做的asp上传,帮我改下了

来源:百度知道 编辑:UC知道 时间:2024/05/24 16:08:16
我用了几句话的上传
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>0 then
file.saveAs Server.mappath("temp\"&file.FileName&"")
response.write "<br>上传文件:"&file.FileName&" => temp OK!"
response.write "<br>文件大小:"&file.FileSize
end if
我想只能上传jpg,jif.bmp格式的应该怎么改呢,帮帮忙了

set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>0 then
dim filename,filetype
filename=file.FileName
filetype=right(filename,4)
if filetype<>".jpg" and filetype<>".gif" and filetype<>".bmp" then
response.write "文件格式必须是.jpg, .gif, .bmp"
response.end
end if
file.saveAs Server.mappath("temp\"&file.FileName&"")
response.write "<br>上传文件:"&file.FileName&" => temp OK!"
response.write "<br>文件大小:"&file.FileSize
end if