时时商务社区
标题:
asp生成百度的xml代码
[打印本页]
作者:
新格网络
时间:
2018-2-18 04:48
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=]%>
欢迎光临 时时商务社区 (http://bbs.4435.cn/)
Powered by Discuz! X3.2