New cloud management system Google Map Builder for v3.0 edition
It's not a good thing to say, but one thing to declare is that the program is something in the official business Edition, which is only valid for Web sites that generate HTML pages before version 3.0, and can only generate articles and download channels.
Version 2.1 Demo Address: Http://code.feyu.cn/sitemap.xml
Version 3.0 Demo Address: Http://www.feyu.cn/sitemap.xml
Latest revised ASP dynamic generation map
Demo Address: Http://vip.feyu.cn/sitemap.xml
As long as the decompression upload to the site root directory, run it on the line, and then go to GG website Management backstage (Https://www.google.com/accounts/ServiceLogin?service=sitemaps&hl=zh_CN &continue=https%3a%2f%2fwww.google.com%2fwebmasters%2ftools%2fsiteoverview&nui=1) submit http://your URL/ Sitemap.xml on the line.
Preferably in the background to get a connection to the program, and so you update each time in the background together to build on the line
Copy Code code as follows:
<!--#include file= "conn.asp"-->
<!--#include file= "inc/const.asp"-->
<%
Server.ScriptTimeout = 50000
Dim Rs,sql,xmlcontent,thisurl
Dim Createhtml,channelrootdir,channelid
Dim Xmldom,node,cnode,cnode1,msginfo
Thisurl= "http://" & Request.ServerVariables ("Http_host")
' Response.Clear
' Response.charset= ' UTF-8 '
' Response.contenttype= ' Text/xml '
Call Indexsitemap ("/")
' Call Channelsitemap ("./")
' Response.Write xmlcontent
' Response.Write newasp.formatdate (now,2)
Sub Indexsitemap (strpath)
Xmlcontent = "<?xml version=" 1.0 ' encoding= ' UTF-8 '?> ' & vbNewLine
Xmlcontent = xmlcontent & "<urlset xmlns=" "http://www.google.com/schemas/sitemap/0.84" ">" & vbNewLine
Xmlcontent = xmlcontent & "<url>" & vbNewLine
Xmlcontent = xmlcontent & "<loc>" & Thisurl & "/</loc>" & vbNewLine & "<lastmod>" &A mp Newasp.formatdate (Now (), 2) & "</lastmod>" & vbNewLine & "<changefreq>daily</changefreq > "& vbnewline &" <priority>1.0</priority> "& vbNewLine
Xmlcontent = xmlcontent & "</url>" & vbNewLine
Loadsitemap 2,0
Loadsitemap 1,0
Xmlcontent = xmlcontent & "</urlset>"
strpath = Server.MapPath (strpath) & "\sitemap.xml"
Createxmlfile Xmlcontent,strpath
Response.Write "Build Site Map Success!" "
End Sub
Sub Channelsitemap (strpath)
Xmlcontent = "<?xml version=" 1.0 ' encoding= ' UTF-8 '?> ' & vbNewLine
Xmlcontent = xmlcontent & "<urlset xmlns=" "http://www.google.com/schemas/sitemap/0.84" ">" & vbNewLine
Xmlcontent = xmlcontent & "<url>" & vbNewLine
Xmlcontent = xmlcontent & "<loc>" & Thisurl & "/code/</loc>" & vbNewLine & "<lastmod> ; "& Now () &" </lastmod> "& vbNewLine &" <changefreq>daily</changefreq> "& vbNewLine & "<priority>1.0</priority>" & vbNewLine
Xmlcontent = xmlcontent & "</url>" & vbNewLine
Loadsitemap 2,11
Xmlcontent = xmlcontent & "</urlset>"
strpath = Server.MapPath (strpath) & "\sitemap.xml"
Createxmlfile Xmlcontent,strpath
Response.Write "Build Site Map Success!" "
End Sub
Function Loadsitemap (ByVal sid, ByVal Chanid)
Chanid = Newasp.chknumeric (Chanid)
Dim Findorder,tablename
If sid = 1 Then
TableName = "[Nc_article]"
FindOrder = "ORDER by A.writetime Desc,a.articleid DESC"
SQL = "A.articleid,a.classid,a.channelid,a.writetime,a.htmlfiledate,"
Else
TableName = "[Nc_softlist]"
FindOrder = "ORDER by A.softtime DESC, A.softid DESC"
SQL = "A.softid,a.classid,a.channelid,a.softtime,a.htmlfiledate,"
End If
If Chanid = 0 Then
sql = ' SELECT Top 3000 ' & sql & ' C.htmlfiledir,b.channeldir,b.iscreatehtml,b.htmlextname from (' & tablename & "A INNER join [nc_classify] C on A.classid=c.classid) INNER join [Nc_channel] B on A.channelid=b.channelid WHERE A . isaccept>0 "& FindOrder
Else
sql = "SELECT" & SQL & "C.htmlfiledir,b.channeldir,b.iscreatehtml,b.htmlextname from" ("& TableName &" A INNER join [nc_classify] C on A.classid=c.classid) INNER join [Nc_channel] B on A.channelid=b.channelid WHERE A.channeli D= "& Chanid &" and a.isaccept>0 "& FindOrder
End If
Set Rs = Newasp.execute (SQL)
If Rs.bof and Rs.eof Then
Else
createhtml = 1 ' Rs ("iscreatehtml")
Do as not rs.eof
Call Loadsoftlist ()
Rs.movenext
Loop
End If
Rs.Close:Set Rs = Nothing
End Function
Sub loadsoftlist ()
Dim Htmlfilename,linksurl,strlinksurl
Channelid = Rs (2)
Newasp.loadchannel (Channelid)
Channelrootdir = Newasp.channelpath
createhtml = newasp.channelusehtml
If CInt (createhtml) <> 0 Then
Linksurl = Newasp.readdestination (Newasp.m_infodestination, Newasp.m_channeldir, RS ("Htmlfiledate"), RS (" Htmlfiledir "), RS (" ClassID "), RS (0), 1," ")
Else
If Isurlrewrite Then
Linksurl = channelrootdir & Rs (0) & Newasp.channelhtmlext
Else
Linksurl = channelrootdir & "show.asp?id=" & Rs (0)
End If
End If
Strlinksurl = "<url>" & vbNewLine
Strlinksurl = Strlinksurl & "<loc>" & Thisurl & Linksurl & "</loc>" & vbNewLine & " ;lastmod> "& Newasp.formatdate (Rs (3), 2) &" </lastmod> "& vbNewLine &" <changefreq>daily </changefreq> "& vbNewLine &" <priority>1.0</priority> "& vbNewLine
Strlinksurl = Strlinksurl & "</url>" & vbNewLine
Xmlcontent = xmlcontent & Strlinksurl
End Sub
'================================================
' Function name: createxmlfile
' Function: Create XML file
' Parameter: XMLSTR----XML string
' Formpath----The file path created
'================================================
Function Createxmlfile (Sxml,filepath)
Dim Objxml
If InStr (FilePath, ":") = 0 Then FilePath = Server.MapPath (FilePath)
Set objxml = Server.CreateObject ("MSXML2. domdocument.3.0 ")
If objxml.loadxml (SXML) Then
Objxml.save (FilePath)
End If
Set Objxml = Nothing
End Function
%>
Local Downloads