set upload=new upload_5xSoft ''建立上传对象
FixFileExt="asp|aspx|asa|asax|ascx|ashx|asmx|axd|cdx|cer|config|cs|csproj|licx|rem|resx|shtml|shtm|soap|stm|vb|vbproj|webinfo|cgi|pl|php|phtml|php3" '限制为只有这些文件可以上传(用"|"号格开)
iCount=0
for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 then
if file.FileSize<FileMaxSize then
FixFnN = Split(FixFileExt,"|")
intFix = Ubound(FixFnN)
for i = 0 to intFix
if GetExtendName(file.FileName) = lcase(trim(FixFnN(i))) then
Response.write "不支持您所上传的文件类型:"
Response.write GetExtendName(file.FileName)
Response.write "<br>"
i=1
exit for
end if
next