用ASP生成Sitemap

网站地图是网站的重要因素，你可以说它是访问用户网站的页面列表。它在组织分层方式。基本上可以帮助游客和主要的搜索引擎查找您网站的特殊的页面。它提高网站的搜索引擎优化，它的工作原理就像动态访问网站一样。基本上是网站地图xml格式。

在这里，我已创建了一个示例应用程序，它可以读取XLS文件，并根据它生成你的网站的站点地图。

我已经在Excel文件里面放置了我的网站的所有链接。

好了，该怎样获取呢？

1 .打开你的网站www.google.com

2.下载你的网页开发人员工具栏在信息节（(Mozilla addon）里面了〉点击信息观点链接，它会打开页面，你会找到所有的网站链接。

3.复制到EXCEL然后保存它

 

现在编写来自EXCEL数据和生成Sitemap的应用程序

 

 

< %

 

Const adOpenStatic = 3

Const adLockPessimistic = 2

Dim cnnExcel

Dim rstExcel

Dim I

Dim iCols

 

Set cnnExcel =Server.CreateObject("ADODB.Connection")

cnnExcel.Open "Driver={Microsoft ExcelDriver(*.xls)};DriverId=790;Dbq="&Server.MapPath("1.xls")&";DefaultDir="&Server.MapPath(".")&";"Set rstExcel = Server.CreateObject("ADODB.Recordset")

rstExcel.Open "SELECT * FROM[Sheet1$]", cnnExcel

iCols = rstExcel.Fields.Count

rstExcel.MoveFirst

xmlData = ""

xmlData = xmlData&""

Do While Not rstExcel.EOF

xmlData = xmlData& ""

xmlData = xmlData& ""&rstExcel.Fields.Item(0).Value & "" & vbCrLf

xmlData = xmlData& ""

rstExcel.MoveNext

Loop

xmlData = xmlData& " "

Response.Write(xmlData)

rstExcel.Close

Set rstExcel = Nothing

 

cnnExcel.Close

Set cnnExcel = Nothing

% >

 

运行这个文件然后查看这个文件的源代码。保存这个源代码文件为"Sitemap.xml"。

转载于:https://blog.51cto.com/9483004/1569768