<% 'No Component Upload File Call' Form's ENCTYPE must be "multipart / form-data", Method must be PostDim ICOUNT, FORMPATH, UPLOAD, EXTENDNAMESET UPLOAD = New UPLOAD_5XSOFT FORMPATH = "UPLOAD /" ICOUNT = 0EXTENDNAME = "JPG, BMP, GIF"
For Each formName in Upload.file iCount = iCount 1 Set file = Upload.file (formName) If file.FileSize> 0 then NewName = SetName () & "." & GetExtendName (file.FileName) OpenMode = GetExtendName (file.FileName ) '' '' '' '' '' '' Acquisition of files 'limit picture Upload type getExtendMatch extendName, OpenMode' New folder setFolder (FormPath) Save Image File.SAVEAS Server.MAppath (FormPath & setFolder (FormPath) & "/" & NewName) Select Case iCount case 1 File1 = FormPath & SetFolder (FormPath) & "/" & NewName case 2 File2 = FormPath & SetFolder (FormPath) & "/" & NewName case 3 File3 = FormPath & SetFolder (FormPath) & "/" & New select else if file.filename <> "" "" "") response.end end = nothingxt '※※※※※※※※※※※※※※※※※※ Allow uploaded file 'parameter extendname, extension set, extension "," separated, and use lowercase;' parameter OpenMode, verification extension '※※※※※※※※※※※※※※※※ ※※ SUB getExtendMatch (ExtendName, OpenMode) DIM JUDGE, OPENMODE1 JUDGE = false openmode1 = lcase (OpenMode) Extendarry = SP LIT (ExtendName, ") for Each OpenMode1 in Extendarry Judge = true next if Judge = false the response.write ("
