zblog 调用,L-Blog最新文章如何调用在htm首页

L-Blog最新文章如何调用在htm首页 - 电脑技巧 - 电脑教程网

L-Blog最新文章如何调用在htm首页

日期:2007-03-08   荐:
第一步:为了避免出现错误,新建一个文件夹,命名为A,将原blog中所有文件放在里面。

第二步:处理对象为A文件夹。将下面的一段代码( 物理资源酷·博客提供)插入include\library.ASP中最后一个End Sub之后。

Sub NewBlogList '最新文章
Response.Write("<div class=""siderbar_head""><img src=""images/sider_search.gif"" border=""0"" align=""absmiddle""> 最新日志</div><div class=""siderbar_main"">")
Dim blog_Topicnewlist
Set blog_Topicnewlist=Conn.Execute("SELECT TOP 9 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow FROM blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_PostTime DESC")
IF blog_Topicnewlist.EOF AND blog_Topicnewlist.BOF Then
Response.Write("暂无")
Else
Do While NOT blog_Topicnewlist.EOF
IF blog_Topicnewlist("log_IsShow")=False Then
Response.Write("<a href='http://www.5iuu.com/bbs/blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='隐藏日志,不显示预览'> "&HtmlEncode(cutStr(blog_Topicnewlist("log_Title"),16))&"</a><br>")
Else
Response.Write("<a href='http://www.5iuu.com/bbs/blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='"&HTMLEncode(blog_Topicnewlist("log_Author"))&": "&HTMLEncode(cutStr(blog_Topicnewlist("log_Content"),200))&"'> "&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),16))&"</a><br>")
End IF
blog_Topicnewlist.MoveNext
Loop
End IF
Set blog_Topicnewlist=Nothing
End Sub

注意:
1、如果调用不需要显示“最新日志”,那就删除第二行<div class=""siderbar_head""><img src=""images/sider_search.gif"" border=""0"" align=""absmiddle""> 最新日志</div>。
2、第五行中的top 9,可以更改调用的数目。
3、标题长度的更改:在上面这段代码中找到“16”,改为你需要的长度。
4、调用的主题在新窗口打开:在“<a href='http://www.5iuu.com/bbs/blogview.asp?logID="&blog_Topicnewlist ("log_ID")&"'”之后加上target='_blank'(注意是单引号)。
5、调用主题前加上符号:在“<a href='http://www.5iuu.com/bbs/blogview.asp?logID="&blog_Topicnewlist ("log_ID")&"'”之前加上“&middot;”。

第三步:

把A中的default.asp复制到电脑的任何一个地方更名为top.asp,然后再将top.asp移动至A。

用记事本打开top.asp,在Call NewCommList下面加上Call NewBlogList。在本机运行http://localhost/top.asp,会发现左边已经调用出来最新的主题了,呵呵,不要着急,我们开始删东西了。

第四步:

将top.asp中Call NewBlogList之后所有的东西全部删除,不要着急运行top.asp,记得在Call NewBlogList之后加上“%>”标记。运行一下看看^_^

第五步:

找到Call NewBlogList往上第一个End IF,然后将此End IF以下,Call NewBlogList以上的内容全部删除。再运行看看啦。

第六步:

打开A中的header.asp,复制“<table”之前的所有内容(不包含“<table”)。将top.asp中<!--#include file="header.asp" -->删除,同时粘贴上面复制的代码。记得在Call NewBlogList之后加上“</td></tr></table></body></html>”。基本搞定^_^,修改一下你的top.asp中的table中的内容,改为:<table border="0" cellpadding="0" cellspacing="0" class="01">

第七步:

运行了top.asp没有?根据实际情况你可以重新定义一个Css,在default.css中添加一个就可以了(格式为“.***”),记得修改library.asp中的那段代码中的class。

第八步:

调用页面的背景,因为关联背景的css是body标记,这就需要在style中新建一个css文件,来重新定义背景(除非你调用页面的背景喝blog中的背景是一致的),只要将top.asp中<link href="http://www.5iuu.com/bbs/styles/default.css" rev="stylesheet" rel="stylesheet" type="text/css" media="all" />此段代码中default.css更换就可以了。

第九步:

在html页面适当位置用iframe调用:<iframe name="content_frame" marginwidth=0 marginheight=0 width=100% height=100% src="http://www.5iuu.com/A/top.asp" frameborder=0></iframe>


第十步:ok了,我去喝点水!

(出处:http://www.sheup.com)




标签: