asp.net创建站点地图

发布时间：2016-07-04 11:27:21编辑：丝画阁阅读（231）

Sub makeSitemap
Response.write("写入数据中，请稍等")
xmlfile=server.mappath("/sitemap.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("")
MyFile.WriteLine("")
'2016-07-04 ssh add baidu tuisong
baiduxmlfile=server.mappath("/baidutuisong.txt")
Set baidufso = CreateObject("Scripting.FileSystemObject")
Set baiduFile = baidufso.CreateTextFile(baiduxmlfile,True)

set rs=server.CreateObject("adodb.recordset")
sql="查询条件ＳＱＬ语句"
rs.open sql,conn,1,1
While Not rs.eof
b_Id=rs("b_Id")
b_webUrl=rs("b_webUrl")
If b_webUrl<>"" Then
'======================================category ssh add 2016-07-04
bsql_Category_Num="(xxxxx count(c_SortId) from cp_GetProductClassList xxxxx c_ParentId=0 and c_Level=0 and b_Id="&b_Id&") as Cnum"
bsql_Category="xxxx c_SortId,c_SortName,c_PinYin,c_isShow,c_AllowColspan,(replace(convert(varchar (100),c_date,20),' ','T')+'+08:00') as lastmod,"&bsql_Category_Num&" xxxxx cp_GetProductClassList xxxxx c_ParentId=0 and c_Level=0 and b_Id="&b_Id&" order by c_OrderNum"
Call OpenRs(rspp,bsql_Category,1)
While Not rspp.eof
If rspp("c_isShow")=0 Then
l_url=b_webUrl&rspp("c_PinYin")&"/"
MyFile.WriteLine("")
MyFile.WriteLine(""&l_url&"")
MyFile.WriteLine(""&rspp("lastmod")&"")
MyFile.WriteLine("")
baiduFile.WriteLine(l_url)
End If
Call OpenRs(rspp2,"xxxx c_SortId,c_SortName,c_PinYin from cp_GetProductClassList xxxxx  c_ParentId="&rspp("c_SortId")&" and c_Level=1 and b_Id="&b_Id&" order by c_OrderNum",1)
While Not rspp2.eof
l_url=b_webUrl&rspp("c_PinYin")&"/"&rspp2("c_PinYin")&"/"
MyFile.WriteLine("")
MyFile.WriteLine(""&l_url&"")
MyFile.WriteLine(""&rspp("lastmod")&"")
MyFile.WriteLine("")
baiduFile.WriteLine(l_url)
rspp2.movenext
Wend
call closeRs(rspp2)
rspp.movenext
Wend
call closeRs(rspp)
MyFile.WriteLine("")
MyFile.Close
baiduFile.Close
backbox "生成成功！"
End sub