google sitemap.asp

用于生成sitemap.xml文件的东西,利于google等搜索引擎的抓取。


代码如下:

<%
Server.ScriptTimeout=50000
' sitemap_gen.asp
' A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)
' by Francesco Passantino
' www.iteam5.net/francesco/sitemap
' v0.2 released 5 june 2005 (Listing a directory tree recursively improvement)
'
' BSD 2.0 license,
' http://www.opensource.org/licenses/bsd-license.php
' 收集整理:重庆森林@im286.com
session("server")="http://www.jb51.net"
'你的域名
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("<script>alert('success!');history.back();</script>")
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,"\","/")
file=replace(file,root,"")
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")&file)&"</loc><lastmod>"&filedate&"</lastmod><changefreq>daily</changefreq><priority>1.0</priority></url>"
Response.Flush
End Function

Function Folderpermission(pathName)
'需要过滤的目录(不列在SiteMap里面)
PathExclusion=Array("\da@ta78#9","\member","\admin","\dxyeditor")
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/file_type.html)
Extensions = Array("png","gif","jpg","jpeg","zip","pdf","ps","html","htm","php","wk1","wk2","wk3","wk4","wk5","wki","wks","wku","lwp","mw","xls","ppt","doc","swf","wks","wps","wdb","wri","rtf","ans","txt")
'设置列表的文件名,扩展名不在其中的话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
%>

(0)

相关推荐

  • 用Google Sitemaps帮助你SEO

    用Google Sitemaps帮助你SEO 作者:Matthew Coers 译者:Sheneyan(子乌) 时间:2006.07.12 英文原文: Search Engine Optimization with Google Sitemaps 中文译文地址:用Google Sitemaps帮助你SEO (子乌注:这篇文章对google推出的免费服务google sitemap进行了一些应用上的分析,对于优化站点能起到很大帮助.) 什么是Google Sitemaps? Google Site

  • CodeIgniter使用phpcms模板引擎

    CodeIgniter很适合小站点应用开发,但是它自带的view功能可能会给不懂PHP的前端人员带来麻烦. 相比之下phpcms的view模板解析就强大多了,所以这里就把PHPCMS的模板解析功能剥离出来,加到PHPCMS上.首先在CodeIgniter libraries中 增加 template_cache.php 复制代码 代码如下: <?php if (!defined('BASEPATH')) exit('No direct script access allowed'); /** *

  • 制做Google Sitemap文件的简单方法与图文教程

    什么是Google Sitemap  Google新推出的Sitemap,是对原来robots.txt的扩展,它使用XML格式来记录整个网站的信息并供Google读取,使搜索引擎能更快更全面的收录网站的内容. Sitemap的作用就好像为网站提供了整站的RSS,而Google就是这些RSS的订阅者,只要网站有更新就会自动通知Google.这样一来,搜索引擎的收录由被动的Pull变成了主动的Push. 如何制作sitemap 一.确保自己有Google帐号 二.制作Sitemap 1.打开http

  • CodeIgniter生成网站sitemap地图的方法

    1.建立了一个名为sitemap的控制器 复制代码 代码如下: <?phpif (!defined('BASEPATH')) exit ('No direct script access allowed'); class Sitemap extends CI_Controller{ public function __construct() {  parent::__construct();  $this->load->model('sitemapxml');  } function i

  • CodeIgniter上传图片成功的全部过程分享

    最近几天正在做一个小型CMS,用到图片上传了,想利于CodeIgniter的上传类去实现,但测试中有好多问题,我把经过和要注意的地方分享一下! 复制代码 代码如下: <?php echo form_open_multipart('picture/upload');?><?php echo form_upload('userfile');?> /*注意,这里是userfile,$this->upload->do_upload(),这里do_upload默认上传文件的表单名

  • CodeIgniter基本配置详细介绍

    $config['base_url'] = "http://www.jb51.net/". 您网站的网址,CodeIgniter 会根据这个网址来生成链接.表单地址等.$config['index_page'] = "index.php" CodeIgniter 根目录下的 index.php 文件名,CodeIgniter 会使用它来生成链接地址.如果使用隐藏 index.php 的 URL,将其设置为空字符串:$config['index_page'] = &q

  • dedecms实现仿downkr的sitemap效果代码

    修改的是dedecms目录下的/include/inc_sitemap.php文件 复制代码 代码如下: <?php  //class SiteMap //-------------------------------- require_once(dirname(__FILE__)."/config_base.php"); require_once(dirname(__FILE__)."/inc_channel_unit_functions.php"); cl

  • C#生成sitemap站点地图的方法

    Sitemaps是Google的一个和网站管理员相关的工具,有点象BLOG的RSS功能,是一个方便自己的服务,如果大家都采用了这种方式提交自己的更新的话,Google就再也不用派出那么多爬虫辛辛苦苦的到处乱窜了,任何一个站点,只要有更新,便会自动"通知"Google,方便Google进行索引. 好像最近BAIDU也开始支持XML格式的sitemap的站点地图了. 目前网络上有很多免费的生成sitemap站点地图的工具,使用起来也比较方便.其原理就是抓取你指定的页面,获取页面上所有的链接

  • PHP生成sitemap.xml地图函数

    复制代码 代码如下: <?php /** *    网站地图更新控制器 * *    @author    Garbin *    @usage    none */class SitemapApp extends FrontendApp{    function __construct()    {        $this->SitemapApp();    }    function SitemapApp()    {        parent::__construct();     

  • google sitemap.asp

    用于生成sitemap.xml文件的东西,利于google等搜索引擎的抓取. 复制代码 代码如下: <% Server.ScriptTimeout=50000 ' sitemap_gen.asp ' A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP) ' by Francesco Passantino ' www.iteam5.net/fra

  • 为google量身定做的sitemap生成代码asp版

    外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快 把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道. 复制代码 代码如下: <!--#include file="conn.asp"--> <% sess

  • 再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)

    看过的朋友可帮忙顶哦,这些代码都是第一次发的,外面很多要不就是很复杂,看不懂,要不就是不能用的,下面的我写时候已经尽量简洁明了 外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快 把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道 

  • ASP常用日期格式化函数 FormatDate()

    核心代码 <% '功能:多功能日期格式化函数 '来源:http://jorkin.reallydo.com/article.asp?id=477 Function FormatDate(sDateTime, sReallyDo) Dim sJorkin sJorkin = GetLocale() If Not IsDate(sDateTime) Then sDateTime = Now() sDateTime = CDate(sDateTime) Select Case UCase(sReall

  • 非常不错的Google Adsense 提示100条

    转自:http://www.hundredtips.com/100-google-adsense-tips.html作者:Fernando Hal翻译:Cloudream http://www.5iya.com/blog转载请注明以上信息 google_ad_client = "pub-0009681843102357";google_ad_width = 120;google_ad_height = 60;google_ad_format = "120x60_as_rimg

  • 推荐十款免费 WordPress 插件

    2015必备wordpress插件列表.为了增强wordpress站点,一些优秀有效的免费wordpress 插件是必不可少的. WordPress 插件用于提升 wordpress 站点的功能.正如你所知道的,wordpress 是最流行的内容管理系统(CMS)之一,所以会有许多开发者提供支持.他们开发 wordpress 插件在提高CMS功能的同时却不会降低站点的速度.现在有许多付费和免费的 wordpress 插件,但对于你们中的大多人来说要选择哪个插件仍是个问题.所以我在这里尽量简述下一

  • asp+ajax仿google搜索提示效果代码

    对于更完整的代码可以参考,这个是支持数据库的版本.经过我们编辑测试.Asp+Ajax仿google搜索提示效果 数据库版需要修改的地方有 复制代码 代码如下: javascript.js var url="ajax.asp"; //后台地址 var time_delayajax=300; //搜索延迟 var time_delayupdown=100; //方向键延迟 obj_div.style.top = (xtop + 20) + "px"; //20差不多是输

随机推荐