- <% dim fso_list, folder_list, file_list, col_list, news_path_list dim db_hangye, hi, hfile_name, hfile_base, hfile_found, hfile_link set fso_list = Server.CreateObject("Scripting.FileSystemObject") news_path_list = Server.MapPath(webroot & "html/hangyexinwen/") if fso_list.FolderExists(news_path_list) then db_hangye = sdcms.db.dbload(99999,"url","sd_content n left join sd_category c on n.classid=c.cateid","catedir='hangyexinwen' and islock=1 and isurl=0","id desc") set folder_list = fso_list.GetFolder(news_path_list) set col_list = folder_list.Files for each file_list in col_list if lcase(right(file_list.Name,5)) = ".html" then hfile_name = file_list.Name hfile_base = left(hfile_name, len(hfile_name)-5) hfile_found = false if isarray(db_hangye) and ubound(db_hangye) >= 0 then for hi = 0 to ubound(db_hangye,2) if db_hangye(0,hi) = hfile_base then hfile_found = true exit for end if next end if if not hfile_found then hfile_link = webroot & "html/hangyexinwen/" & hfile_name response.write "
- "
response.write "" response.write "
" response.write "
" response.write "" response.write "" & hfile_base & "手动上传" & hfile_base & "" response.write "
更新时间:" & sdcms.getdate(file_list.DateLastModified,"-",1) & " "
end if
end if
next
set col_list = nothing
set folder_list = nothing
end if
set fso_list = nothing
%>


您所在的位置:


























