• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
    看过的朋友可帮忙顶哦,这些代码都是第一次发的,外面很多要不就是很复杂,看不懂,要不就是不能用的,下面的我写时候已经尽量简洁明了
    外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子:
    如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快
    把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道 
    复制代码 代码如下:
    !--#include file="conn.asp"--> 

    session("count")=0 
    strURL = "http://"  request.servervariables("SERVER_NAME")  _ 
    left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/sitemap.asp")) 
    dim foolcat 
    foolcat = foolcat + "?xml version=""1.0"" encoding=""UTF-8""?>" 
    foolcat = foolcat + "!--Google Site Map File Generated by http://www.xxx.com "  return_RFC822_Date(now,"GMT")  "-->" 
    foolcat = foolcat + "urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">" 
    foolcat = foolcat + "url>" 
    foolcat = foolcat + "loc>"  strURL  "//loc> " 
    foolcat = foolcat + "/url>" 
    session("count")=session("count")+"1" 
    set all_fs = Server.CreateObject("Scripting.FileSystemObject") 
    set all_folder = all_fs.GetFolder(server.MapPath("/")) 
    set all_files = all_folder.files 
    for each file in all_files 
    foolcat = foolcat + "url>" 
    foolcat = foolcat + "loc>"  strURL  "/"  File.Name  "/loc> " 
    foolcat = foolcat + "/url>" 
    session("count")=session("count")+"1" 
    next 
    dim js,sql 
    set js = server.CreateObject("ADODB.RecordSet") 
    sql = "select * from [要生成的表名] order by sid asc"    //修改你要生成的数据表名 
    set js = conn.execute (sql) 
    do until js.eof 
    id=""js("id")""   //修改为你的id字段 
    foolcat = foolcat + "url>" 
    foolcat = foolcat + "loc>"  strURL  "/xxx.asp?Id="  id  "/loc> "  //修改为你的文件名称和id 
    foolcat = foolcat + "/url>" 
    session("count")=session("count")+"1" 
    js.movenext 
    loop 
    js.close 
    set js = nothing 
    foolcat = foolcat + "/urlset>"  
    foolcat = "" + foolcat + "" 
    foolcat = ""  foolcat  "" 
    FolderPath = Server.MapPath("/") 
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    Set fout = fso.CreateTextFile(FolderPath"\sitemap.xml") 
    fout.writeLine foolcat 
    fout.close 
    set fout = nothing 
    conn.close 
    set conn = nothing 
    Function return_RFC822_Date(byVal myDate, byVal TimeZone) 
    Dim myDay, myDays, myMonth, myYear 
    Dim myHours, myMinutes, mySeconds 

    myDate = CDate(myDate) 
    myDay = EnWeekDayName(myDate) 
    myDays = Right("00"  Day(myDate),2) 
    myMonth = EnMonthName(myDate) 
    myYear = Year(myDate) 
    myHours = Right("00"  Hour(myDate),2) 
    myMinutes = Right("00"  Minute(myDate),2) 
    mySeconds = Right("00"  Second(myDate),2) 

    return_RFC822_Date = myDay", " _ 
    myDays" " _ 
    myMonth" " _  
    myYear" " _ 
    myHours":" _ 
    myMinutes":" _ 
    mySeconds" " _  
    " "  TimeZone 
    End Function  
    Function EnWeekDayName(InputDate) 
    Dim Result 
    Select Case WeekDay(InputDate,1) 
    Case 1:Result="Sun" 
    Case 2:Result="Mon" 
    Case 3:Result="Tue" 
    Case 4:Result="Wed" 
    Case 5:Result="Thu" 
    Case 6:Result="Fri" 
    Case 7:Result="Sat" 
    End Select 
    EnWeekDayName = Result 
    End Function 
    Function EnMonthName(InputDate) 
    Dim Result 
    Select Case Month(InputDate) 
    Case 1:Result="Jan" 
    Case 2:Result="Feb" 
    Case 3:Result="Mar" 
    Case 4:Result="Apr" 
    Case 5:Result="May" 
    Case 6:Result="Jun" 
    Case 7:Result="Jul" 
    Case 8:Result="Aug" 
    Case 9:Result="Sep" 
    Case 10:Result="Oct" 
    Case 11:Result="Nov" 
    Case 12:Result="Dec" 
    End Select 
    EnMonthName = Result 
    End Function 
    %>

    sitemap.xml生成完毕,共生成%=session("count")%>个文件,点击查看a href="sitemap.xml">sitemap.xml/a>文件。
    您可能感兴趣的文章:
    • Google Suggest ;-) 基于js的动态下拉菜单
    • Google的跟踪代码 动态加载js代码方法应用
    • go语言制作一个gif动态图
    上一篇:捌度空间 缓存类
    下一篇:一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    再来个专门为google量身定做的sitemap生成代码,(可是动态的哦) 再,来个,专门,为,google,量身定做,