Google Sitemap

/css.css" rel="stylesheet" type="text/css"> <% dim xmlstr,lastmod dim SqlStr,rs,rsclass,i,Classpath dim sitemappath if request("Action")="create" then Dim changefreq:changefreq=request("changefreq") Dim prioritynum:prioritynum=actcms.ChkNumeric(request("prioritynum")) If prioritynum=0 then prioritynum=15 Dim big:big=request("Big") Dim SQL,K Set RS=Server.CreateObject("ADODB.RECORDSET") xmlstr=""&vbcrlf xmlstr=xmlstr&""&vbcrlf SqlStr="select top " & prioritynum & " ID,Classid,ChangesLink,FileName,GroupID_ACT,Score_ACT,Title,UpdateTime " SqlStr=SqlStr & " from Article_ACT where isAccept=0 and delif=0 and ChangesLink<>1 order by id desc" rs.Open SqlStr,conn,1,1 for i=1 to rs.RecordCount xmlstr=xmlstr&" "&vbcrlf xmlstr=xmlstr&" "&GetInfoUrl(1,Rs(1),Rs(0),Rs(2),Rs(3),Rs(4),Rs(5))&""&vbcrlf xmlstr=xmlstr&" " & GetDate(rs(7)) & ""&vbcrlf xmlstr=xmlstr&" "&changefreq&""&vbcrlf xmlstr=xmlstr&" "&big&""&vbcrlf xmlstr=xmlstr&" "&vbcrlf rs.movenext next rs.close xmlstr=xmlstr&"" dim tmFile,objFso,smw sitemappath=Server.Mappath(actcms.ActSys&"sitemap.xml") Set objFso = CreateObject("Scripting.FileSystemObject") if objFso.FileExists(sitemappath) then Set tmFile = objFso.GetFile(sitemappath) tmFile.Delete end if Set smw = objFso.CreateTextFile(sitemappath, True) smw.WriteLine(xmlstr) smw.Close set tmFile = nothing response.write("
") end if response.write("
") set rs=nothing conn.Close:set conn=nothing '===================================================结束 Function GetDate(DateStr) GetDate=Year(DateStr) & "-" & Right("0" & Month(DateStr), 2) & "-" & Right("0" & Day(DateStr), 2) End Function Public Function GetInfoUrl(ByVal ModeID,ByVal ClassID,ByVal ID,ByVal ChangesLink,ByVal FileName,ByVal GroupID_ACT,ByVal Score_ACT) IF Not Isnumeric(ModeID) Then GetInfoUrl="#":Exit Function If ChangesLink = 1 Then GetInfoUrl = FileName ElseIf Score_ACT>0 Or actcms.ACT_C(ModeID,3)=0 Or GroupID_ACT<>"" Or actcms.ACT_L(ClassID,6)<>"" Then '动态 GetInfoUrl= actcms.ActCMSDM&"Article/TypeArticle.asp?ModeID="&ModeID&"&ID=" &ID Else Dim Tmps,TmpUs If Right(actcms.ACT_C(ModeID,10),1)<>"/" Then GetInfoUrl= actcms.ActCMSDM&actcms.ACT_C(ModeID,6)&FileName&ACT_C(ModeID,11) Else GetInfoUrl= actcms.ActCMSDM&actcms.ACT_C(ModeID,6)&FileName&"/" End If End If End Function %>

Google Sitemaps地图生成操作

Google Sitemaps地图生成操作
生成符合GOOGLE规范的XML格式地图页面
更新频率：
每个系统调用： 条信息内容为最高注意度
注 意 度： 0-1.0之间,推荐使用默认值 点击这里提交到 Www.Google.Com

了解Google地图

更新频率：

> 页面可能发生更改的频率。此值为搜索引擎提供一般性信息，可能与搜索引擎抓取页面的频率不完全相关。有效值为：

> - always
> - hourly
> - daily
> - weekly
> - monthly
> - yearly
> - never

> 值“always”应当用于描述每次访问时都会改变的文档。而值“never”应当用于描述已存档网址。

> 请注意此标记的值被视为提示而不是命令。尽管搜索引擎抓取工具在做决定时考虑此信息，但是它们对标记为“hourly”页面的抓取频率可能低于每小时一次，而对标记为“yearly”页面的抓取频率可能高于每年一次。抓取工具也可能定期抓取标记为“never”的页面，以便它们能够处理对这些页面的意外更改。

注意度：

> 此网址的优先级与您网站上其他网址的优先级相关。有效值范围从 0.0 到 1.0。此值不会影响您的网页与其他网站上网页的比较结果，只是告诉搜索引擎您认为您的那个网页最重要，从而它们对您页面的抓取可以按照您最喜欢的方式进行排序。

> 一个网页的默认优先级为 0.5。

> 请注意，您为页面指定的优先级不影响您的网址在搜索引擎的结果页的排名。搜索引擎在同一网站的不同网址之间进行选择时使用此信息，因此，您可以使用此标记来增加相对重要的网址在搜索索引中显示的可能性。

> 而且，请注意为您网站中的所有网址都指定高优先级对您没什么好处。由于优先级是相互关联的，只用于在您自己网站的网页之间进行选择；您网页的优先级不会与其他网站的页面优先级进行比较。

生成位置：

> sitemap.xml将会自动生成到您网站的根目录下，这需要FSO组件的支持才能顺利完成，如果您的服务器不能支持FSO请进行相关设置。