ASP生成网站地图的代码 生成google sitemap的ASP代码<% Server.ScriptTimeout=50000 session("server")="http://www.todocn.com"  '你的域名 vDir = "/"                                            '制作SiteMap的目录,相对目录(相对于根目录而言) set objfso = CreateObject("Scripting.FileSystemObject") root = Server.MapPath(vDir) 'response.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 version='1.0' encoding='UTF-8'?>" & vbcrlf str = str & "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>" & vbcrlf Set objFolder = objFSO.GetFolder(root) 'response.write getfilelink(objFolder.Path,objFolder.dateLastModified) Set colFiles = objFolder.Files For Each objFile In colFiles        'response.write getfilelink(objFile.Path,objfile.dateLastModified)        str = str & getfilelink(objFile.Path,objfile.dateLastModified) & vbcrlf Next ShowSubFolders(objFolder) 'response.write "</urlset>" str = str & "</urlset>" & vbcrlf set fso = nothing Set objStream = Server.CreateObject("ADODB.Stream")    With objStream    '.Type = adTypeText    '.Mode = adModeReadWrite    .Open    .Charset = "utf-8"    .Position = objStream.Size    .WriteText=str    .SaveToFile server.mappath("/sitemap.xml"),2 '生成的XML文件名    .Close    End With  Set objStream = Nothing  If Not Err Then    Response.Write("成功生成站点地图!<a href=sitemap.xml>查看</a>")    Response.End  End If Sub ShowSubFolders(objFolder)        Set colFolders = objFolder.SubFolders        For Each objSubFolder In colFolders                if folderpermission(objSubFolder.Path) then                        'response.write getfilelink(objSubFolder.Path,objSubFolder.dateLastModified)                        str = str & getfilelink(objSubFolder.Path,objSubFolder.dateLastModified) & vbcrlf                        Set colFiles = objSubFolder.Files                        For Each objFile In colFiles                                'response.write getfilelink(objFile.Path,objFile.dateLastModified)                                str = str & getfilelink(objFile.Path,objFile.dateLastModified) & vbcrlf                        Next                        ShowSubFolders(objSubFolder)                end if        Next End Sub Function getfilelink(file,datafile)        file=replace(file,root,"")        file=replace(file,"\","/")        file=replace(file,"E:/wwwroot/ftzzz/wwwroot/","") '可能要过滤的服务器绝对地址,正常情况下不用设置,可删除这行        If FileExtensionIsBad(file) then Exit Function        if month(datafile)<10 then filedatem="0"        if day(datafile)<10 then filedated="0"        filedate=year(datafile)&"-"&filedatem&month(datafile)&"-"&filedated&day(datafile)        getfilelink = "<url><loc>"&server.htmlencode(session("server")&vDir&file)&"</loc><lastmod>"&filedate&"</lastmod><changefreq>daily</changefreq><priority>1.0</priority></url>"        Response.Flush End Function Function Folderpermission(pathName)        '需要过滤的目录(不列在SiteMap里面)        PathExclusion=Array("\temp","\_vti_cnf","_vti_pvt","_vti_log","cgi-bin","\admin","\edu")        Folderpermission =True        for each PathExcluded in PathExclusion                if instr(ucase(pathName),ucase(PathExcluded))>0 then                        Folderpermission = False                        exit for                end if        next End Function Function FileExtensionIsBad(sFileName)        Dim sFileExtension, bFileExtensionIsValid, sFileExt        'modify for your file extension (http://www.googleguide.com...        Extensions = Array("html","htm","asp")  '设置列表的文件名,扩展名不在其中的话SiteMap则不会收录该扩展名的文件        if len(trim(sFileName)) = 0 then                FileExtensionIsBad = true                Exit Function        end if        sFileExtension = right(sFileName, len(sFileName) - instrrev(sFileName, "."))        bFileExtensionIsValid = false        'assume extension is bad        for each sFileExt in extensions                if ucase(sFileExt) = ucase(sFileExtension) then                        bFileExtensionIsValid = True                        exit for                end if        next        FileExtensionIsBad = not bFileExtensionIsValid End Function %>ASP生成网站地图的代码 生成google sitemap的ASP代码示例：http://www.todocn.com/sitemap.xml使用方法：1.将这段代码保存为sitemap.asp文件，上传到网站根目录下。注意:需要修改下域名信息。在浏览器中输入http://你的网址/sitemap.asp，就会生成一个sitempa.xml文件。你打开这个文件看看，是不是把你网站的所有文件的链接都显示出来了。这个就是生成的google sitemap文件了。2.第2步就是要到google那里提交，让蜘蛛来抓取这个google sitemap文件了。提交网址：http://www.google.com/webmasters/sitemaps/?hl=zh-CN需要拥有一个google帐号，登录进去，验证一下网站是否自己的（就是上传一个网页文件到网站服务器根目录下）。通过验证后你就可以提交你的网站的sitemap。这样google的蜘蛛很快就会来抓取你的网站内容了。还没有google帐号的可以在这里注册。--点击注册需要过滤的目录一定要设置好啊，要不然自己的后台地址也会显示出来的！ASP生成网站地图的代码 生成google sitemap的ASP代码