"&now()&""&vbcrlf&"" 'hour(now()) 'minute(now()) 'second(now()) set rshot=server.CreateObject("a.."> asp生成百度的xml代码 - 定义源码网 bed365体育投注_365体育投注骗局_365体育投注登陆
网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
asp生成百度的xml代码
2019-09-29 10:52:19 ?? 【 】 ??浏览:

<%
nowtime=nowtime&""&now()&""&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&""&vbcrlf&""
b=b&"/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("/")
MyFile.WriteLine("[email?protected]")
MyFile.WriteLine("12")
MyFile.WriteLine nowtime
MyFile.WriteLine("定义源码网")
MyFile.WriteLine b
MyFile.WriteLine("
")
MyFile.Close
response.Redirect("sitemap_baidu.xml")

%>


Tags:asp 生成 百度 xml 代码
】【打印繁体】【关闭】 【返回顶部
上一篇:ASP数据库连接方法语法总结 下一篇:Microsoft VBscript运行时错误..

广告推荐

ASP技术文章推荐阅读