显示MicrosoftVBScript����ʱ����ʏ'CallcreateAlumeXml(ASCore.BlogName&"的相册","","",true)'SubScanFtpPhoto(Folder,AlbumID)IfTrim(Folder)=EmptyThenExitSubIFASCore.IsFolder

Question

显示Microsoft VBScript ����ʱ���� ʏ
'Call createAlumeXml(ASCore.BlogName&"的相册","","",true)
'
Sub ScanFtpPhoto(Folder,AlbumID)
If Trim(Folder) = Empty Then Exit Sub
IF ASCore.IsFolderExists(server.mappath(Folder)) Then
Dim arr_f,f_num,f_name,f_path,i,sql
arr_f = ASCore.EachFiles(server.mappath(Folder))
arr_f = split(arr_f,"|")
f_num = ubound(arr_f)
Dim Photo_Title,Photo_AlbumID,Photo_Author,Photo_Url,Photo_IsOpen,Photo_Note,Photo_Thumb
Dim ThumbPath,f_type
'建立保存thumb的文件夹
Call ASCore.CreateFolder(Server.MapPath(Folder),"Thumbs")
for i = 0 to f_num-1
Response.write ("正在处理第"&i+1&"张
"&vbcrlf)
f_name = arr_f(i)
Photo_Title = split(f_name,".")(0)
Photo_AlbumID = AlbumID
Photo_Author = ASCore.ManagerName
Photo_Url = Folder & f_name
Photo_Note = split(f_name,".")(0)
Photo_Thumb = Folder & f_name
显示错误行代码：
arr_f = ASCore.EachFiles(server.mappath(Folder))

Answer 1

请帖错误提示,你这个乱码.帖的.
估计～
ASCore是什么是组件,组件没装.
Folder路径错误～!