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

　　看过的朋友可帮忙顶哦,这些代码都是第一次发的,外面很多要不就是很复杂,看不懂,要不就是不能用的,下面的我写时候已经尽量简洁明了
外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子:
如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快
把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道
复制代码 代码如下:<!--#includefile=conn.asp-->
<%
session(count)=0
strURL=
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
dimfoolcat
foolcat=foolcat+<?xmlversion=1.0encoding=UTF-8?>
foolcat=foolcat+<!--GoogleSiteMapFileGeneratedby
foolcat=foolcat+<urlsetxmlns=
foolcat=foolcat+<url>
foolcat=foolcat+<loc>&strURL&/</loc>
foolcat=foolcat+</url>
session(count)=session(count)+1
setall_fs=Server.CreateObject(Scripting.FileSystemObject)
setall_folder=all_fs.GetFolder(server.MapPath(/))
setall_files=all_folder.files
foreachfileinall_files
foolcat=foolcat+<url>
foolcat=foolcat+</url>
session(count)=session(count)+1
next
dimjs,sql
setjs=server.CreateObject(ADODB.RecordSet)
sql=select*from[要生成的表名]orderbysidasc//修改你要生成的数据表名
setjs=conn.execute(sql)
dountiljs.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
setjs=nothing
foolcat=foolcat+</urlset>
foolcat=+foolcat+
foolcat=&foolcat&
FolderPath=Server.MapPath(/)
Setfso=Server.CreateObject(Scripting.FileSystemObject)
Setfout=fso.CreateTextFile(FolderPath&\sitemap.xml)
fout.writeLinefoolcat
fout.close
setfout=nothing
conn.close
setconn=nothing
Functionreturn_RFC822_Date(byValmyDate,byValTimeZone)
DimmyDay,myDays,myMonth,myYear
DimmyHours,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
EndFunction
FunctionEnWeekDayName(InputDate)
DimResult
SelectCaseWeekDay(InputDate,1)
Case1:Result=Sun
Case2:Result=Mon
Case3:Result=Tue
Case4:Result=Wed
Case5:Result=Thu
Case6:Result=Fri
Case7:Result=Sat
EndSelect
EnWeekDayName=Result
EndFunction
FunctionEnMonthName(InputDate)
DimResult
SelectCaseMonth(InputDate)
Case1:Result=Jan
Case2:Result=Feb
Case3:Result=Mar
Case4:Result=Apr
Case5:Result=May
Case6:Result=Jun
Case7:Result=Jul
Case8:Result=Aug
Case9:Result=Sep
Case10:Result=Oct
Case11:Result=Nov
Case12:Result=Dec
EndSelect
EnMonthName=Result
EndFunction
%>
sitemap.xml生成完毕，共生成<%=session(count)%>个文件，点击查看<ahref=sitemap.xml>sitemap.xml</a>文件。