<%
'云网采集独立系统设置文件
Dim down_image,image_dir
'1.是否自动下载图片,注意自动下载图片有一定的安全风险
Rem 开放/关闭 图片自动下载
down_image=True   'True 下载图片
				  'False 不下载图片

'2.图片下载目录
'Rem 下载图片时保存的目录,请确认网站根目录下有该子目录
'image_dir="imagecollect" '默认为根目录下imagecollect子目录,需要创建该目录
'这里已经不在使用，新程序使用QvodCms自动生成目录保存图片
%>
<%
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)
%>

