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 %> （编辑：牡丹江站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
热点阅读