| 다음은 코드 조각입니다. <%@language = "vbscript"CodePage = "65001"%> <% response.charset = "utf-8" Server.ScriptTimeout = 50000 'siteemap_gen.asp 'GSP (Google Siteemap Protocol)에서 웹 서버의 자동 생산 사이트 맵에 대한 간단한 스크립 'Francesco Passantino에 의해 'www.iteam5.net/francesco/sitemap 'V0.2는 2005 년 6 월 5 일 출시되었습니다 세션 ( "Server") = "http://7thpark.com/" ' "도메인 이름 vdir = "/" 'siteemap 디렉토리, 상대 디렉토리 (루트 디렉토리와 관련하여) set objfso = createobject ( "scripting.filesystemobject") root = server.mappath (vdir) '응답 .ContentType = "Text/XML" 'response.write "<? xml version ='1.0 'encoding ='utf-8 '?>" 'response.write "<urlset xmlns ='http://www.google.com/schemas/sitemap/0.84 '>." str = "<? xml 버전 = '1.0'encoding = 'utf-8'?>"& vbcrlf ' str = str & "<urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'>"& vbcrlfff set objfolder = objfso.getfolder (루트) '응답. getfilelink (objfolder.path, objfolder.datelastmodify) 색상 설정 = objfolder.files colfiles의 각 objfile에 대해 '응답. str = str & getfilelink (objfile.path, objfile.datelastmodify) & vbcrlf 다음 showsubfolders (objfolder) 'response.write "</urlset>" " str = str & "</urlset>"& vbcrlf FSO = 아무것도 설정하지 않습니다 set objstream = server.createobject ( "adodb.stream") objstream과 함께 '.type = adtypetext '. 모드 = AdmodeReadWrite .opeen .charSet = "UTF-8" .Position = objstream.size .WriteText = str .Savetofile serv.mappath ( "/sitmap.xml"), 2 ' -생성 된 XML 파일 이름 .닫다 끝납니다 objstream = 아무것도 설정하지 않습니다 그렇지 않은 경우 response.write (<cript> alert ( '성공적인 생성 사이트 맵!'); history.back (); </script> ") 응답. 엔드 끝 If 하위 쇼 서브 폴더 (objfolder) colorders = objfolder.subfolders를 설정합니다 콜 폴더의 각 objsubfolder에 대해 폴더 퍼미션 (objsubfolder.path) 인 경우 '응답. getfilelink (objsubfolder.path, objsubfolder.datelastmodify) str = str & getfilelink (objsubfolder.path, objsubfolder.datelastmodify) & vbcrlf 색상 설정 = objsubfolder.files colfiles의 각 objfile에 대해 '응답. str = str & getfilelink (objfile.path, objfile.datelastmodify) & vbcrlf 다음 showsubfolders (objsubfolder) 끝 If 다음 종료 서브 함수 getFilelink (파일, DataFile) file = replace (file, root, "") file = replace (파일, "/", "/") filextensionisbad (파일) 인 경우 함수를 종료하십시오 Month (DataFile) <10D FileDatem = "0" IF DAY (DATAFILE) <10 thatn fileded = "0" Filedate = Year (DataFile) & "-"& FileDatem & Month (DataFile) & "-"& DAY (DataFile) (DataFile) getFilElink = "<Url> <loC>"& server.htmlencode (세션 ( "Server") & vdir & file) & "</loc> <osplemod>"& filedate & "</lastmod> <changefreq> daily </ </changefreq> <Priority> 1.0 </우선 순위> </url> "" 응답. 플러시 엔드 기능 함수 폴더 퍼미 (pathname) '필터링 해야하는 디렉토리 (Siteemap에 나열되지 않음) pateExclusion = aray ( "/temp", "/_ vti_cnf", "_ vti_pvt", "_ vti_log", "cgi-bin", "/admin", "/edu")))) FolderPermission = true PathExclusion에서 각 pathExexcluded에 대해 instr (ucase (pathname), ucase (pathexcluded))> 0 인 경우 FolderPermission = false 종료 끝 If 다음 엔드 기능 함수 fileExtensionIsbad (sfilename) 희미한 sfileextension, bfileextensionisvalid, sfileext '파일 확장자 수정 (http://www.googleguide.com/file_type.html) 확장 = 배열 ( "png", "gif", "jpg", "jpeg", "zip", "pdf", "ps", "ps", "html", "htm", "php", "wk1", "wk2" wk2 "", "wk3", "wk4", "wk5", "wki", "wks", "wku", "lwp", "mw", "xls", "ppt", "doc", "swf", "swf ","wks ","wps ","wdb ","wri ","rtf ","ans ","txt ") '목록의 파일 이름을 설정하고 확장자가 그 중 하나가 아닌 경우 Siteemap은 확장 이름의 파일이 포함되지 않습니다.
|