inc_aspupload.asp

办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单

<%
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
%>