<%
Server.ScriptTimeout=900
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft
formPath="../pictures/dvknowledge_picture/"
change_name="no_pic.jpg"
for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 and file.FileSize<2048000 then
change_name=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&right(File.FileName,4)
file.SaveAs Server.mappath(formPath&change_name)
end if
next
set file=nothing