jaja.file.asp

来自「Qvod完美点播专家 01.网站地图系统 02.广告管理系统 03.A」· ASP 代码 · 共 25 行

<%
Function JaJaFile()
Dim SavePathName
DtNow=Now()
SavePathName=year(DtNow) & right("0" & month(DtNow),2) & "/"
SavePath=  "../Picfile/"& SavePathName 
'response.write "链接路径：" & savepath & "<br>"
'首选判断要建立的文件夹是否已经存在
JaJaFile=SavePath
Dim objFSO
strTestFolder = Server.Mappath(SavePath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件夹是否存在
If not objFSO.FolderExists(strTestFolder) Then '如果不存在
strTestFolder = Server.Mappath(SavePath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End  Function 
'Response.Write JaJaCoolFile(SavePath)
%>