sitemap.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 45 行

<%@ LANGUAGE = VBScript CodePage = 65001%>
<!--#include file="conn.asp"-->
<?xml version="1.0" encoding="utf-8"?>
<%


Const C_Site_WebUrl = "http://dev.oblog.cn/"
'----------------------------------------------
'文件名称:sitemap.asp
'用辿 for google sitemap
'----------------------------------------------
'On Error Resume Next
Dim rst,lCount

Dim i

Call Link_Database
Set rst = Server.CreateObject("ADODB.Recordset")

rst.Open "Select Top 100 logfile,addtime From oblog_log Where logfile<>'' Order By logid Desc" ,conn,1,3

lCount=rst.RecordCount
%>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">
  <%
  For i=0 To lCount-1
	%>
  <url>
    <loc><%= C_Site_WebUrl & rst(0) %></loc>
    <lastmod><%=rst(1)%></lastmod>
    <changefreq>daily</changefreq>
    <priority>1.0</priority>
  </url>
  <%
  rst.MoveNext
 Next
%>
</urlset>
<%
rst.close
Set rst = Nothing

conn.close
Set conn = nothing
%>