\'\'列出所有上传了的文件
for each formname in upload.file
set file=upload.file(formname)
if file.filesize>0 then
if file.filesize>10000000 then
response.write \"<font size=2>图片大小超小了**[<a href=# onclick=history.go(-1)>重新上传</a>]</font>\"
response.end
end if
fileext=lcase(right(file.filename,4))
uploadsuc=false
forum_upload=\"gif,jpg,png\"
forumupload=split(forum_upload,\",\")
for i=0 to ubound(forumupload)
if fileext=\".\"&trim(forumupload(i)) then
uploadsuc=true
exit for
else
uploadsuc=false
end if
next
if uploadsuc=false then
response.write \"<font size=2>文件格式**[<a href=# onclick=history.go(-1)>请重新上传</a>]</font>\"
response.end
end if
end if