inc_aspupload.htm

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

<%
Set objUpload = Server.CreateObject("Persits.Upload.1")
'response.write objUpload.expires
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.Save strThisDir

	For each file In objUpload.Files
		strFileName=strFileName&","&file.ExtractFileName
	next
end Sub

Function EncriptRequest(InputName)
	InputName=trim(InputName)
	IF InputName="" then
	exit Function
	end if
	EncriptRequest=replace(trim(objUpload.Form(InputName).Value),"'","''")
End Function
%>