發布者:云商網絡 來源:http://www.pvczuji.com/ 發布時間: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.pvczuji.com/index.asp這個頁面調用博客http://www.pvczuji.com//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),"
這樣,**日日志列表就調用到頁了,希望對需要的朋友有所幫助