北京pk10技巧规律7码倍投|北京pk10单双玩法
asp生成百度的xml代碼
2010-09-13 10:52:19    【 】   瀏覽:

<%
nowtime=nowtime&"<updatetime>"&now()&"</updatetime>"&vbcrlf&""
'hour(now())
'minute(now())
'second(now())
set rshot=server.CreateObject("adodb.recordset")
sql="select * from 表名 order by id asc"
rshot.open sql,conn,1,1
if not (rshot.eof and rshot.bof) then
i=0
do while not rshot.eof

b=b&"<item>"&vbcrlf&""
b=b&"<link>http://www.awlsw.com.cn/html/"&rshot("Classid")&"/"&rshot("ID")&".html</link>"&vbcrlf&""
b=b&"<title>"&rshot("Title")&"</title>"&vbcrlf&""
b=b&"<pubDate>"&rshot("Intime")&" "&hour(now())&":"&minute(now())&":"&second(now())&"</pubDate>"&vbcrlf&""
b=b&"<bbs:lastDate>"&rshot("Intime")&" 10:26:42</bbs:lastDate>"&vbcrlf&""
b=b&"<bbs:reply>"&rshot("Classid")&"</bbs:reply>"&vbcrlf&""
b=b&"<bbs:hit>"&rshot("Hits")&"</bbs:hit>"&vbcrlf&""
b=b&"<bbs:mainLen>"&rshot("ID")&"</bbs:mainLen>"&vbcrlf&""
b=b&"<bbs:boardid>"&rshot("Author")&"</bbs:boardid>"&vbcrlf&""
b=b&"<bbs:pick>1</bbs:pick>"&vbcrlf&""
b=b&"</item>"&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("<?xml version=""1.0"" encoding=""GB2312"" ?>")
MyFile.WriteLine("<document xmlns:bbs=""http://www.baidu.com/search/bbs_sitemap.xsd"">")
MyFile.WriteLine("<webSite>http://www.awlsw.com.cn/</webSite>")
MyFile.WriteLine("<webMaster>[email protected]</webMaster>")
MyFile.WriteLine("<updatePeri>12</updatePeri>")
MyFile.WriteLine nowtime
MyFile.WriteLine("<version>源碼之家</version>")
MyFile.WriteLine b
MyFile.WriteLine("</document>")
MyFile.Close
response.Redirect("sitemap_baidu.xml")

%>

Tags:asp 生成 百度 xml 代碼
】【打印繁體】【關閉】 【返回頂部
上一篇ASP數據庫連接方法語法總結 下一篇Microsoft VBscript運行時錯誤..

廣告推薦

ASP技術文章推薦閱讀

北京pk10技巧规律7码倍投 体球比份 广东快乐10分 最快捷的足球即时赔率 云南11选5 天津十一选五 华东15选5 36选7 江苏十一选五 新疆11选5 安徽25选5 36选7 竞彩比分投注秘诀 7m篮球比分即时比分直播 电竞比分网666 澳州棒球比分 皇冠足球即时赔率