发布者:饶阳云商网络 来源:http://www.baisoubao.cn/ 发布时间:2011-11-8 8:54:52 浏览量:
饶阳 **近,在我的网站衡水网站建设上安装了个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.baisoubao.cn/index.asp这个页面调用博客http://www.baisoubao.cn//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就是输入日志的标题和链接了,上面输入的是5条**新日志,如果需要更多,可以自己添加如Response.Write replace(str(5),"
这样,**日日志列表就调用到页了,希望对需要的朋友有所帮助