九乡新闻网茶兀怎么读wu还是pai:另一个站如何调用最新版本z-blog的最新日志的方法
来源：百度文库 编辑：九乡新闻网 时间：2024/07/14 02:50:33
最近，在我的网站奇好网上购物指南上安装了个z-blog博客程序,想把博客的最新文章调用到网站的首页，到百度上搜索了一些资料，结合自己的方法，终于成功了，它把最新日志直接通过asp的response.write写入到网页源文件里，这样适合百度等搜索引擎的收录，这个方法只能适用于博客和网站是同一个空间里德，不能跨站调用，现在把方法说说：
第一，在z-blog根目录下的FUNCTION目录下找到c_system_base.asp文件，打开此文件找到
Call SaveToFile(BlogPath & "/include/previous.asp",strPrevious,"utf-8",True)这段代码，在它的下面插入
Call SaveToFile(Left(BlogPath,len(BlogPath)-5) & "/include/t_previous.htm",strPrevious,"GB2312",True)这段代码的意思就是在你的网站的blog目录前面的网站的include文件夹里写入你要调用的最新日志的列表页t_previous.htm，保存后到博客后台里重建网页，然后要调用日志的网站include目录下看看，会发现多了一个t_previous.htm的文件，打开看，里面就是你博客的最新日志列表。
第二，在你要调用日志的页面里，插入如下asp代码，比如我的是想在网站的首页http://www.qihao.org/index.asp这个页面调用博客http://www.qihao.org/blog里最新日志，那么在index.asp需要插入日志列表的地方加入如下代码：
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
ProcFilePath=server.MapPath("include/t_previous.htm")
Set templates = fso.OpenTextFile(ProcFilePath,1,true,-2)
str=templates.readall()'读出结果，赋值给str
set fso=nothing
set templates=nothing
str = split(str,"") '分析t_previous.htm的代码，会发现文章跟文章之间都有这个代码，我们通过来把文章列表进行循环输出
response.Write replace(str(0),"
Response.Write replace(str(1),"
Response.Write replace(str(2),"
Response.Write replace(str(3),"
Response.Write replace(str(4),"
'上面的response.write就是输入日志的标题和链接了，上面输入的是5条最新日志，如果需要更多，可以自己添加如Response.Write replace(str(5),"
%>
这样，最日日志列表就调用到首页了，希望对需要的朋友有所帮助