<%
Dim UploadFilePath,UploadLimitSize,NotAllowfileext,BrowerFilePath


BrowerFilePath =  "../Upfiles/video/"

UploadFilePath =  BrowerFilePath&year(now)&month(now)&day(now)&"/"
'文件上传路径
UploadLimitSize = 1024*100	'100M
'最大上传文件大小，单位为K

NotAllowfileext = "asp|cer|cdx|asa|htw|ida|idq|shtm|shtml|stm|printer|cgi|php|php4|cfm|aspx"
'不可以上传的文件类型

function CanUpload(Fileurl)
	Fileurl = lcase("|"& Mid(Fileurl, InstrRev(Fileurl, ".") + 1)& "|")
	NotAllowfileextstr = "|"&NotAllowfileext&"|"
	if instr(NotAllowfileextstr,Fileurl)>0 then
		CanUpload = false
	else
		CanUpload = true
	end if
end function

Function CreateFolder(Filepath)
	Dim fso, f
	on error resume next
	Set fso = CreateObject("Scripting.FileSystemObject")
	if not fso.FolderExists(Filepath) then
		Set f = fso.CreateFolder(Filepath)
		set f = Nothing
	end if
	set fso = Nothing
End Function
%>