<%
'-- 自定义函数:创建任意文件夹 ------------------------------------------------------------------------
Function CreateDIR(LocalPath) '建立目录的程序,如果有多级目录,则一级一级的创建
Dim FileObject, pathArr, path_Level, i, pathtmp, cpath
On Error Resume Next
LocalPath = Replace(LocalPath,"\","/")
Set FileObject = Server.Createobject("Scripting.FileSystemObject")
pathArr = Split(LocalPath,"/")
path_Level = UBound(pathArr)
For i = 0 To path_Level
If i = 0 Then
pathtmp = pathArr(0) & "/"
Else
pathtmp = pathtmp & pathArr(i) & "/"
End If
cpath = Left(pathtmp, Len(pathtmp) - 1)
If Not FileObject.FolderExists(cpath) Then
FileObject.CreateFolder cpath
End If
Next
Set FileObject = Nothing
If Err.Number<>0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function
'---------------------------------------------------------------------------------------------------------
%>
Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword
foldername=year(date)
foldername1=month(date)
if len(foldername1)=1 then foldername1='0' & foldername1
foldername=foldername&foldername1
foldername1=day(date)
if len(foldername1)=1 then foldername1='0' & foldername1
foldername=foldername&foldername1&hour(time)&minute(time)&second(time)
folders=foldername
'建立目录
set fso=Server.CreateObject("Scripting.FileSystemObject")
fp=fso.buildpath(server.mappath("/school/manage/fj/"),""&folders&"")
set fod=fso.createfolder(fp)