<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <% dim objUpload, count, File, strName Set objUpload = Server.CreateObject("Persits.Upload") count = objUpload.savevirtual ("../_clientArea/01") For Each File in objUpload.Files strName = File.FileName Response.write(File.FileName) Next %>