inc_upload.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 41 行

<%
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 &" 上传成功！<BR>"
		'end if

		If Err.number > 0 Then
			strWord = strWord & "<b>Wrong selection : </b>" & Err.description
		Else
			strWord = strWord & "..." & strFile &" 上传成功！<BR>"
	    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
%>