asp生成百度的xml代码

                  
b=b&""&vbcrlf&""
b=b&"http://www.mycodes.net/html/"&rshot("Classid")&"/"&rshot("ID")&".html"&vbcrlf&""
b=b&""&rshot("Title")&""&vbcrlf&""
b=b&""&rshot("Intime")&" "&hour(now())&":"&minute(now())&":"&second(now())&""&vbcrlf&""
b=b&""&rshot("Intime")&" 10:26:42"&vbcrlf&""
b=b&""&rshot("Classid")&""&vbcrlf&""
b=b&""&rshot("Hits")&""&vbcrlf&""
b=b&""&rshot("ID")&""&vbcrlf&""
b=b&""&rshot("Author")&""&vbcrlf&""
b=b&"1"&vbcrlf&""
b=b&""&vbcrlf&""
i=i+1
rshot.movenext
loop
end if
rshot.close
set rshot=nothing
xmlfile=server.mappath("sitemap_baidu.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("")
MyFile.WriteLine("")
MyFile.WriteLine("http://www.mycodes.net/")
MyFile.WriteLine("[email protected]")
MyFile.WriteLine("12")
MyFile.WriteLine nowtime
MyFile.WriteLine("源码之家")
MyFile.WriteLine b
MyFile.WriteLine("")
MyFile.Close
response.Redirect("sitemap_baidu.xml")
[color=]%>