新手提问，用split分解数组，验证的问题。
我在做一个上传的程序，设置了允许上传的文件类型，用split分解，但在循环的时候出点小问题就是，如果上传类型与设置的不符合时，就会出现多个设定的错误信息，也就是说如果你设置了四个允许上传的文件类型，而上传的类型不符合时，就会出现四次错误信息提示，而我只想要一次就行了。。
代码为：
fileExt=lcase(right(file.filename,3)) '得到上传文件的后缀名，
filetype = split(pictype,",") '分解允许上传文件类型
For i=0 To Ubound(filetype) '循环
If LCase(fileExt)<> filetype(i) Then
Response.Write"文件类型非法 <a href='upload.asp'>返回重新上传</a>"
else
end if
请大家指点一下。。应该怎么循环呢。。
问题点数：20、回复次数：5Top
1 楼goodstuday（路漫漫）回复于 2005-03-17 10:54:27 得分 10
fileExt=lcase(right(file.filename,3)) '得到上传文件的后缀名，
filetype = split(pictype,",") '分解允许上传文件类型
For i=0 To Ubound(filetype) '循环
If LCase(fileExt)<> filetype(i) Then
errFlag=true
end if
next
if errFlag=true then
Response.Write"文件类型非法 <a href='upload.asp'>返回重新上传</a>"
end if
Top
2 楼baiyunfei（虚度残生）回复于 2005-03-17 10:54:50 得分 10
For i=0 To Ubound(filetype) '循环
If LCase(fileExt)<> filetype(i) Then
Response.Write"文件类型非法 <a href='upload.asp'>返回重新上传</a>"
response.end()
else
end ifTop
3 楼goodstuday（路漫漫）回复于 2005-03-17 10:55:34 得分 0
或是
fileExt=lcase(right(file.filename,3)) '得到上传文件的后缀名，
filetype = split(pictype,",") '分解允许上传文件类型
For i=0 To Ubound(filetype) '循环
If LCase(fileExt)<> filetype(i) Then
Response.Write"文件类型非法 <a href='upload.asp'>返回重新上传</a>"
exit for
else
end if
nextTop
4 楼goodstuday（路漫漫）回复于 2005-03-17 10:57:22 得分 0
或是 在判断类型不一致，输出错误信息时,再写一句 Response.endTop
5 楼kovin（）回复于 2005-03-17 11:01:25 得分 0
晕死。。原来就这么简单。。
加上Response.END()
就可以了。。。Top
