jaja.file.asp

Qvod完美点播专家 01.网站地图系统 02.广告管理系统 03.AJAX留言本系统 04.智能影片报错系统 05.模板管理系统 06.友情链接系统 07.网页生成系统

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