加入收藏 | 设为首页 | 会员中心 | 我要投稿 牡丹江站长网 (https://www.0453zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp变成google网站地图的xml源代码

发布时间:2022-04-12 05:23:10 所属栏目:Asp教程 来源:互联网
导读:% Response.Buffer = True With Response .Expires = -1 .AddHeader Pragma,no-cache .AddHeader cache-ctrol,no-cache End With % % Server.ScriptTimeout=50000 Dim str,objStream str = ?xml version=1.0 encoding=UTF-8? vbcrlf str = str urlset xmlns=h
<%
Response.Buffer = True
With Response
 .Expires = -1
 .AddHeader "Pragma","no-cache"
 .AddHeader "cache-ctrol","no-cache"
End With
%>
<%
Server.ScriptTimeout=50000
 
Dim str,objStream
str = "<?xml version='1.0' encoding='UTF-8'?>" & vbcrlf
str = str & "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>" & vbcrlf
str = str & getfilelink & vbcrlf
str = str & "</urlset>" & vbcrlf
 
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "UTF-8"
.Position = objStream.Size
.WriteText=str
.SaveToFile server.mappath("sitemap.xml"),2
.Close
End With
Set objStream = Nothing
 
If Not Err Then
   Response.Redirect("sitemap.xml")
   Response.End
End If
 
Function getfilelink()
   SQL="SELECT * FROM 表名 ORDER BY id DESC"
   Dim RS
   Set RS=Server.CreateObject("ADODB.RecordSet")
   RS.Open SQL,Conn,1,1
 
   IF RS.EOF AND RS.BOF Then
      Response.Write("<url></url>")
   Else
      Do While NOT RS.EOF
   Y=year(RS("intime"))
   if len(month(RS("intime")))=1 then
   M=0&month(RS("intime"))
   else
   M=month(RS("intime"))
   end if
   if len(day(RS("intime")))=1 then
   D=0&day(RS("intime"))
   else
   D=day(RS("intime"))
   end if
          getfilelink = getfilelink & "<url><loc>http://www.mycodes.net/html/"&RS("Classid")&"/"&RS("ID")&".Html</loc><lastmod>"&Y&"-"&M&"-"&D&"</lastmod><changefreq>"&RS("Title")&"</changefreq><priority>1.0</priority></url>"
          RS.MoveNext
      Loop
   End IF
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
End Function
%>

(编辑:牡丹江站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读