'----------------------------上传文件过滤--------------------
Dim MyArray ,up
MyArray = Array("jpg","gif","doc","pdf","ppt","txt","xls","rar","swf","fla","zip","")
up=1
For I = Lbound(MyArray) to Ubound(MyArray)
if trim(Lcase(right(objUpload.FileType(objUpload.FieldName(ii)),3)))=MyArray(I) then
up=0
exit for
else
up=1
end if
Next
if up=1 then
%>
<script language="vbscript">
msgbox "文件格式错误！",vbInformation,"消息"
history.back(0)
</script>
posted @ 2006-03-22 17:22
Winner.Net(2007) 阅读(265)
评论(0) 编辑 收藏 网摘 所属分类:
asp/.net