ASPÎÞ×é¼þÉÏ´«ÎļþµÄÎÊÌ⣡~¼±£¡~

<%
dim upload,file,formName,formPath,filename,fileExt
dim ranNum
call UpFile()
'===========ÎÞ×é¼þÉÏ´«(upload_0)====================
sub UpFile()
set upload=new UpFile_Class '½¨Á¢ÉÏ´«¶ÔÏó
upload.GetData (1024*1024*5) 'È¡µÃÉÏ´«Êý¾Ý,´Ë´¦¼´Îª5M

if upload.err > 0 then
select case upload.err
case 1
Response.Write "ÇëÏÈÑ¡ÔñÄúÒªÉÏ´«µÄÎļþ¡¡[ <a href=# onclick=history.go(-1)>ÇëÖØÐÂÉÏ´« </a> ]"
case 2
Response.Write "Îļþ´óС³¬¹ýÁËÏÞÖÆ5M¡¡[ <a href=# onclick=history.go(-1)>ÇëÖØÐÂÉÏ´« </a> ]"
end select
exit sub
else
formPath=upload.form("filepath") 'Îļþ±£´æĿ¼,´ËĿ¼±ØÐëΪ³ÌÐò¿É¶Áд
if formPath="" then
formPath="../UploadFile/"
end if
'ÔÚĿ¼ºó¼Ó(/)
if right(formPath,1) <>"/" then
formPath=formPath&"/"
end if
for each formName in upload.file 'ÁгöËùÓÐÉÏ´«Á˵ÄÎļþ
set file=upload.file(formName) 'Éú³ÉÒ»¸öÎļþ¶ÔÏó
if file.filesize <100 then
response.write "ÇëÏÈÑ¡ÔñÄúÒªÉÏ´«µÄÎļþ!¡¡[ <a href=# onclick=history.go(-1)>ÇëÖØÐÂÉÏ´« </a> ]"
response.end
end if

fileExt=lcase(file.FileExt)
if CheckFileExt(fileEXT)=false then
response.write "Îļþ¸ñʽ²»ÕýÈ·£¬[ <a href=# onclick=hi