<% dim objUpload Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") Sub FileUpload(Personalpath) Personalpath=trim(Personalpath) strThisDir=Server.mappath(Personalpath) set FileObject = server.createobject("Scripting.FileSystemObject") if not FileObject.FolderExists(strThisDir) then FileObject.CreateFolder strThisDir end if set FileObject = nothing objUpload.Upload strFile="" strWird="" For each file In objUpload.Files If not file.IsMissing Then file.SaveAs(Personalpath &"/" & file.FileName) strFile = file.FileName 'if strFile<>"" then ' strWord = strWord & "..." & strFile &" 上传成功！
" 'end if If Err.number > 0 Then strWord = strWord & "Wrong selection : " & Err.description Else strWord = strWord & "..." & strFile &" 上传成功！
" End If End If Next end Sub Function EncriptRequest(InputName) InputName=trim(InputName) IF InputName="" then exit Function end if EncriptRequest=replace(trim(objUpload.Form(InputName)),"'","''") End Function %>