当前位置:错新网文章中心网站开发Asp → asp生成google网站地图的xml源代码

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

减小字体 增大字体 作者:asp生成google网站地图的xml源代码  来源:www.cuoxin.com  发布时间:2014-8-22 21:02:39

<%
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.CuoXin.com/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
%>


本文引用网址:

在下列搜索引擎中搜索“asp生成google网站地图的xml源代码”的相关信息:

谷歌搜索 百度搜索 360搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1如何做爱真人示范图片 男女ML常...
  • 2怎么爱爱最爽?真人爱爱视频教...
  • 3如何做爱更舒服?教你做爱72式...
  • 4怎么做爱舒服?真人示范做爱姿...
  • 5王梦溪未经处理照曝光 王梦溪口...
  • 1女性18岁身份证号大全 成年女人...
  • 217岁女孩身份证号大全 18岁女孩...
  • 3网络红人如何赚钱?我要成为网...
  • 4dede:arclist 实现分页!-织梦...
  • 5首页flash幻灯片不显示解决方法...
  • 1舒淇艳照门事件 舒淇不雅照ed2...
  • 2合肥艳照门事件 合肥艳照门全套...
  • 3怎样爱爱最爽?性爱姿势真人图...
  • 4嫩白少妇与猛男户外疯狂车震遭...
  • 5王梦溪种子完整版 王梦溪1.08G...
  • 1如何做服务器安全维护?有哪些...
  • 2Windows Server 2003系统性能优...
  • 3Apache Prefork和Worker模式的...
  • 4名词解释:分布式拒绝服务攻击...
  • 5正确认识网站优化与SEO的误区
  • 赞助商广告

    图片文章导读