BLOG新增上下文索引功能

2003-12-17 2:36:21 PM
DUOLUO新加了一个小功能,浏览日志时,加入了上下篇日志的链接。
http://www.duoluo.com/webdream/dlog/showlog.asp?cat_id=5&log_id=335
Comments [30] | TrackBack[0] | 2059 views | TrackBack
wzz - 12/17/2003 4:03:43 PM
1
我看了一下,因为你的Blog里面的showlog.asp文件和猪的不一样,你的怎么改呢?
poorfish - 12/17/2003 4:27:12 PM
2
基本上一样的,主要是形式改了,去掉中间回首页的链接,然后上下篇的链接两边排
wzz - 12/17/2003 4:29:59 PM
3
按猪的那个我改了,在页面表现出来的是“<<< | 首页 | >>> ”这样的形式,需要鼠标点到上面才显示下篇的内容,而你的上面直接能显示上下篇内容,请说说你的改法,能详细点吗?谢谢了~~
[Edit on 2003-12-17 16:31:15 By wzz]
wzz - 12/17/2003 4:34:28 PM
4
然后流言本里面我(古城浪子)提了个问题,请大哥帮我回答~~谢谢了~
[Edit on 2003-12-17 16:35:02 By wzz]
poorfish - 12/17/2003 4:48:18 PM
5
代码我贴出来,你看着改吧
function Formatlogtitle(str)    '开始上下文翻页lncode
if len(trim(str))>=36 then
Formatlogtitle=left(trim(str),35)&"..."
else
Formatlogtitle=trim(str)
end if
end function
dim lastlog_id,nextlog_id,lasttitle,nexttitle,cat_select,lncode
sub getlnlog
if cat_id<>0 then
cat_select="and cat_id="&cat_id
else
cat_select=""
end if
sql="SELECT top 1 log_id,log_tittle FROM log where log_id>"&request("log_id")&" "&cat_select&" ORDER BY log_id ASC"
set rs=conn.Execute(sql)
    lncode="<table width='100%'><tr><td>"
if not (rs.eof or rs.bof) then
nextlog_id=rs("log_id")
nexttitle=Formatlogtitle(rs("log_tittle"))
lncode=lncode&"<a href='showlog.asp?log_id="&nextlog_id&"&cat_id="&cat_id&"' title='上一篇:"&nexttitle&"'> <span class='arrow'>3</span> 上一篇"&nexttitle&"</a>"
else
nexttitle="已无日志"
end if
lncode=lncode&"</td>"
rs.close

    sql="SELECT top 1 log_id,log_tittle FROM log where log_id < "&request("log_id")&" "&cat_select&" ORDER BY log_id DESC"
rs.open sql,conn,1,1
lncode=lncode&"<td align='right'>"
if not (rs.eof or rs.bof) then
lastlog_id=rs("log_id")
lasttitle=Formatlogtitle(rs("log_tittle"))
lncode=lncode&"<a href='showlog.asp?log_id="&lastlog_id&"&cat_id="&cat_id&"' title='下一篇:"&lasttitle&"'> 下一篇 "&lasttitle &" <span class='arrow'>4</span></a>"
else
lasttitle="已无日志"
end if
lncode=lncode&"</td></tr></table>"
rs.close
set rs=nothing
end sub    '上下文翻页lncode结束
[Edit on 2003-12-17 21:48:01 By poorfish]
[Edit on 2003-12-17 21:52:08 By poorfish]
517 - 12/17/2003 8:18:51 PM
6
代码里怎么会有IMG SRC="smile/05.gif",好象用不到图片啊?
[Edit on 2003-12-17 21:06:06 By poorfish]
517 - 12/17/2003 8:26:43 PM
7
麻烦你把整个showlog.asp文件贴出来看看。我苯啊~
[Edit on 2003-12-17 20:36:55 By 517]
tsingove - 12/17/2003 9:01:21 PM
8
517那是因为笑脸转换的问题罢了!
poorfish,回复是不能关闭笑脸转换的,你还是把它加到日志内容里面去吧!
517 - 12/17/2003 9:19:06 PM
9
晕~~~因为废墟前面不是用这个贴出来的,用的是运行代码样式的,不存在笑脸问题,但我改了就是在IMG SRC="smile/05.gif"出错,所以不知道怎么办?
517 - 12/17/2003 9:25:37 PM
10
我试了,这次对了,前面有那个IMG SRC="smile/05.gif"就不是我的问题。把没笑脸的贴出来,也不用废墟麻烦了,最后谢谢2位了~~

function Formatlogtitle(str) '开始上下文翻页lncode
if len(trim(str))>=36 then
Formatlogtitle=left(trim(str),35)&"..."
else
Formatlogtitle=trim(str)
end if
end function
dim lastlog_id,nextlog_id,lasttitle,nexttitle,cat_select,lncode
sub getlnlog
if cat_id<>0 then
cat_select="and cat_id="&cat_id
else
cat_select=""
end if
sql="SELECT top 1 log_id,log_tittle FROM log where log_id>"&request("log_id")&" "&cat_select&" ORDER BY log_id ASC"
set rs=conn.Execute(sql)
lncode="<table width='100%'><tr><td>"
if not (rs.eof or rs.bof) then
nextlog_id=rs("log_id")
nexttitle=Formatlogtitle(rs("log_tittle"))
lncode=lncode&"<a href='showlog.asp?log_id="&nextlog_id&"&cat_id="&cat_id&"' title='上一篇:"&nexttitle&"'> <span

class='arrow'>3</span> 上一篇"&nexttitle&"</a>"
else
nexttitle="已无日志"
end if
lncode=lncode&"</td>"
rs.close

sql="SELECT top 1 log_id,log_tittle FROM log where log_id < "&request("log_id")&" "&cat_select&" ORDER BY log_id DESC"
rs.open sql,conn,1,1
lncode=lncode&"<td align='right'>"
if not (rs.eof or rs.bof) then
lastlog_id=rs("log_id")
lasttitle=Formatlogtitle(rs("log_tittle"))
lncode=lncode&"<a href='showlog.asp?log_id="&lastlog_id&"&cat_id="&cat_id&"' title='下一篇:"&lasttitle&"'> 下一篇

"&lasttitle &" <span class='arrow'>4</span></a>"
else
lasttitle="已无日志"
end if
lncode=lncode&"</td></tr></table>"
rs.close
set rs=nothing
end sub '上下文翻页lncode结束
517 - 12/17/2003 9:29:12 PM
11
还问一下,有些文章中出现一个框框,里面是代码,下面有个“运行代码”,这样的帖子怎么发表?
以下为引用内容:
我试试功能
我试试功能

[DOWNLOAD]http://www.15t.net/file.rar [/DOWNLOAD]
[Edit on 2003-12-17 21:58:13 By 517]
poorfish - 12/17/2003 9:53:04 PM
12
哈哈,tsingove ,我搞定了评论中禁止笑脸的问题了 :)
poorfish - 12/17/2003 9:56:42 PM
13
to 517: [html]代码[/html]
517 - 12/17/2003 9:56:52 PM
14
谢谢,呵呵,试了好多
[Edit on 2003-12-17 21:57:28 By 517]
517 - 12/17/2003 10:08:10 PM
15
[SHADOW=255,red,2]阴影文字[/SHADOW]
[GLOW=255,red,2]发光文字[/GLOW]
移动的文字
飞翔的文字
中间文字

加粗文字
斜体文字
带下划文字
[Edit on 2003-12-17 22:10:46 By 517]
517 - 12/17/2003 10:09:17 PM
16
废墟,为没前面2个UBB代码不行?是不是shadow内属性不对?依次为宽度、颜色和边界大小?
[Edit on 2003-12-17 22:11:27 By 517]
poorfish - 12/17/2003 10:30:54 PM
17
BLOG没有内置这两种标记,所以不能解析成HTML
tsingove - 12/17/2003 11:20:10 PM
18
我把我的日志里面的笑脸转换都去掉了。
觉得没什么用。反正贴图一样。
不过你发现的那个top10的问题确实比较严重,立刻修改!
谢谢了哦!
poorfish - 12/17/2003 11:26:42 PM
19
笑脸转换还是很有用的,我已经有了一个IDEA,类似于内容管理系统里的关键字功能,或者说更像MSN messeger里的自定义图释,以后再来加
tsingove - 12/17/2003 11:31:19 PM
20
期待哦!
给你提个建议,把日志评论的排列次序换一下,最新的评论在最上面,这样显示似乎好些。
憨酣主人 - 12/18/2003 12:00:11 AM
21
那个很简单的,在showlog.asp里查找这一句:
sql="SELECT * FROM log_r WHERE log_id="&log_id&" ORDER by log_r_id"
改成
sql="SELECT * FROM log_r WHERE log_id="&log_id&" ORDER by log_r_id desc"
就好了吧?
其实就是最后加四个字母desc啦。
poorfish - 12/18/2003 12:20:21 AM
22
好建议,改好了,也谢谢 憨酣主人
kimjo - 12/18/2003 9:09:28 AM
23
这里讨论好激烈哦~最近郁闷,没顾着来看看
偶的名字被poor鱼拿去了 不还我密码 名字都成一半了 哼哼
SmartJoz - 12/25/2003 2:22:43 PM
24
怎样把这个上下文索引功能放到日志的下边来哦``? 我的只有上面有
应该在什么地方,加什么代码呢?
huper - 1/1/2004 1:56:53 AM
25
我怎么不行啊?用的是站长修改整理的版本
jj - 1/2/2004 12:15:21 PM
26
poor如何用ubb引用一个页面?
[url]?
[html]?
好像不行
papa - 1/4/2004 1:45:15 AM
27
问问这段代码要加在showlog.asp里的什么位置上!!!!!

你不能把你的showlog.asp提供下载!!!

Add your own comment

Name:       *

Password:

Code:        

Your Comment: