用化境无组件上传的源码

'upfiles.inc

'addimages.asp

添加图片

添加图片

" method="post" enctype="multipart/form-data" name="form1"

图片标题：

图片说明：

选择图片：

'addimages_save.asp

0 and upfile.filename"" then

if instr("jpg,bmp,gif",getextendname(upfile.filename))0 then

if upfile.filesize"

end if

else

response.write ""

end if

end if

%