DLog中置顶的实现方法
2004-10-24 19:13:35
要实现置顶，必须修改一下数据库。在log表中添加一个逻辑字段，这里取名为if_top。
下一步要在添加日志和修改日志的面板中都加入置顶的选项，一共有四个文件要修改addlog.asp，addlog_ubb.asp，edit_log.asp，edit_log_ubb.asp。相关代码：
在index.asp中找到置顶放置的位置后，写入：
最后还要修改doadd.asp和上面四个文件中提交数据的部分，这里就不废话了，如果还是有问题的话，我再提供源文件吧。
Comments Feed: http://www.atan.cn/feed.asp?q=comment&id=255
下一步要在添加日志和修改日志的面板中都加入置顶的选项，一共有四个文件要修改addlog.asp，addlog_ubb.asp，edit_log.asp，edit_log_ubb.asp。相关代码：
置顶<input type="checkbox" name="if_top" value="YES">
在dreamweaver中也能修改，放在什么位置这就随意拉，修改好后的效果大致如下：
在index.asp中找到置顶放置的位置后，写入：
'==============置顶在此==================
Set toprs = Server.CreateObject("ADODB.Recordset")
sqltop="SELECT * FROM log WHERE if_top=YES ORDER BY log_id desc"
toprs.open sqltop,conn,1,1
If toprs.EOF And toprs.BOF Then
mcode=mcode&""
Else
mcode=mcode&"<table width=100% border='0' cellspacing='0' cellpadding='3' bgcolor='#DBF3D6'>"
While Not toprs.EOF
mcode=mcode&"<tr><td width='3' height='22'><img src='images/new/top.gif' width=3 height=18></td><td><font color=#F73708><strong>[置顶] </strong></font><strong><a href='showlog.asp?cat_id="&toprs("cat_id")&"&log_id="&toprs("log_id")&"'><font color='black'>"&toprs("log_tittle")&"</font></a></strong> "
mcode=mcode&"<span style='font-size:10px'>[ "&toprs("l_year")&"-"&toprs("l_month")&"-"&toprs("l_day")&" ]</span></td></tr><tr><td colspan='3' bgcolor='#FFFFFF' height='3'></td></tr>"
toprs.MoveNext
Wend
mcode=mcode&"</td></tr></table><table border='0' cellspacing='0' cellpadding='0' height='3'><tr><td></td></tr>"
End If
toprs.close
set toprs=nothing
'=================================
其中关键的也就是这句SELECT * FROM log WHERE if_top=YES ORDER BY log_id desc，从log表中选择所有的if_top为真的数据Set toprs = Server.CreateObject("ADODB.Recordset")
sqltop="SELECT * FROM log WHERE if_top=YES ORDER BY log_id desc"
toprs.open sqltop,conn,1,1
If toprs.EOF And toprs.BOF Then
mcode=mcode&""
Else
mcode=mcode&"<table width=100% border='0' cellspacing='0' cellpadding='3' bgcolor='#DBF3D6'>"
While Not toprs.EOF
mcode=mcode&"<tr><td width='3' height='22'><img src='images/new/top.gif' width=3 height=18></td><td><font color=#F73708><strong>[置顶] </strong></font><strong><a href='showlog.asp?cat_id="&toprs("cat_id")&"&log_id="&toprs("log_id")&"'><font color='black'>"&toprs("log_tittle")&"</font></a></strong> "
mcode=mcode&"<span style='font-size:10px'>[ "&toprs("l_year")&"-"&toprs("l_month")&"-"&toprs("l_day")&" ]</span></td></tr><tr><td colspan='3' bgcolor='#FFFFFF' height='3'></td></tr>"
toprs.MoveNext
Wend
mcode=mcode&"</td></tr></table><table border='0' cellspacing='0' cellpadding='0' height='3'><tr><td></td></tr>"
End If
toprs.close
set toprs=nothing
'=================================
最后还要修改doadd.asp和上面四个文件中提交数据的部分，这里就不废话了，如果还是有问题的话，我再提供源文件吧。
[Edit on 2004-10-24 19:14:19 By johnny]
Comments Feed: http://www.atan.cn/feed.asp?q=comment&id=255
You can't post comment on this article.
还要修改doadd.asp和上面四个文件中提交数据的部分！具体修改哪啦？
能提供源文件我参考吗？我的邮箱：uido@163.com:f
不能保证能在你的blog上运行，仅作参考。
错误类型：
Microsoft JScript 运行时错误 (0x800A138F)
'null' 为空或不是对象
ubbcode.asp, 第 649 行
我查看到649行是： content=content.replace(re,"<IMG SRC=\"smile/01.gif\">");
我不明白（还要修改doadd.asp和上面四个文件中提交数据的部分）修改的提交数据具体有哪些呢……
我用OFFICE2003打开数据库，没有“是/否”，只有一行数字，0或1是不是？:a
office2003我没用过，不过应该差不多吧，0/1和是/否应该是一个意思拉：）
cnscl-other@yahoo.com.cn , 谢谢!
现在已经不用dlog了,我现在用的是l-blog的核心,loveyuki的网站里有转换数据库的程序,有兴趣你可以试试
PS:你的dlog很漂亮啊