New Cloud Management System 3.0 version of Google Map Builder provided, tested, easy to use _ New cloud 3.0

Source: Internet
Author: User
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&gt ; "& 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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.