mubaixiong

我想在首页实现调用各个分类（目录）的前１０条记录

请教怎么实现？

-----------------已完成---------------
感谢laoli的支持～～～～

我采用了另外一个http://bbs.pjhome.net/viewthread ... hlight=%CA%D7%D2%B3的方案（没看懂laoli的代码，只看懂了这个 ）

有需要的朋友可以下载了试试～～～直接覆盖原default.asp即可，请先备份～～

效果预览：http://www.enjoke.com.cn/v/default.asp

[ 本帖最后由 mubaixiong 于 2007-12-8 19 编辑 ]

pkyezi

是不是我这样的？

朦胧

是的，请问是怎么实现的？

weisame

嗯 我也想要

laoli

以前提供过修改代码，很不幸被这里的学究先生揪住说我是抄的人家的做人不厚道，吓的我立马删了。居然你要，给代码你参考，特别声明，不是我发明的，我是抄袭别人的！
<!--#include file="BlogCommon.asp" -->
<!--#include file="header.asp" -->
<!--#include file="common/ModSet.asp" -->
<!--#include file="plugins.asp" -->
<!--#include file="class/cls_default.asp" -->
<!--#include file="class/cls_logAction.asp" -->
<!--Modify06-10-23 by Kaiser-->
<style>
  .NewContent{text-align:left;padding:0px;margin:3px;}
  .NewContent .NewBody{text-align:left;text-valign:middle;padding:2px;line-height0%;height0px;}
  .NewContent .newline{overflow: hidden;heightpx;text-align:left;text-valign:bottom;text-overflow:ellipsis;white-space:nowrap;}
</style>
<div id="Tbody"><div id="mainContent"><div id="innermainContent"><div id="mainContent-topimg"></div>
<%=content_html_Top_default%><div id="Content_ContentList" class="content-width">
          <table width=100% border=0 cellspacing=0 cellpadding=0 style="margin-top:7px;"><tr>
            <td valign="top" widht=100%>
                  <div class="Content NewContent">
                    <div class="Content-top">
                         <div class="ContentLeft"></div><div class="ContentRight"></div>
                         <h1 class="ContentTitle"><strong>热门日志<img src="sy/tu/hot.gif" border=0 style="padding-left:3px"></strong></h1>                       
                        </div>
                        <div class="NewBody">
                          <%New_art()%>
                        </div>
                  </div>
</td><td valign="top" width=270>
<div class="NewContent" style="border:0px;"><!--#include file="sy/focus.asp" --></div>
</td></tr></table>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr><td><%Newcate(0)%></td><td width=50%><%Newcate(1)%></td></tr>
<tr><td><%Newcate(2)%></td><td width=50%><%Newcate(3)%></td></tr>
<tr><td colspan="2" align="center"><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="700" height="110">
  <param name="movie" value="http://www.xjbk.cn/dxad.swf" />
  <param name="quality" value="high" />
  <param name="wmode" value="transparent" />
  <embed src="http://www.xjbk.cn/dxad.swf" width="700" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object></td></tr>
<tr><td><%Newcate(4)%></td><td width=50%><%Newcate(5)%></td></tr>
<tr><td colspan="2" align="center"><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="700" height="110">
  <param name="movie" value="http://www.xjbk.cn/dxad.swf" />
  <param name="quality" value="high" />
  <param name="wmode" value="transparent" />
  <embed src="http://www.xjbk.cn/dxad.swf" width="700" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object></td></tr>
</table>

</div><%=content_html_Bottom_default%><div id="mainContent-bottomimg"></div></div></div><%Side_Module_Replace '处理系统侧栏模块信息%>
<div id="sidebar"><div id="innersidebar"><div id="sidebar-topimg"><!--工具条顶部图象--></div><%=side_html_default%>
<div id="sidebar-bottomimg"></div></div></div><div style="clear: both;height:1px;overflow:hidden;margin-top:-1px;"></div></div>
<%
'hot
Sub New_art()
Dim RSn,row,Newarticle
Newarticle = "<table width=99% border=0 cellpadding=0 cellspacing=0>"
        row=0
                Set RSn=Server.CreateObject("Adodb.RecordSet")
                SQL="SELECT TOP 10 L.log_Weather,L.log_CateID,L.log_ID,L.log_Title,L.log_ViewNums,C.cate_Name FROM blog_Content AS L,blog_Category AS C where C.cate_ID=L.log_CateID ORDER BY log_ViewNums DESC"
                RSn.Open SQL,Conn,1,1
                SQLQueryNums=SQLQueryNums+1
                If RSn.Eof And RSn.Bof Then
                        Response.Write("None")
                Else
                        Do While Not RSn.Eof
Newarticle = Newarticle & "<tr><td class=""newline""><img src=images/weather/hn2_"&RSn("log_Weather")&".gif align=absmiddle>【<a href='default.asp?CateID="&RSn("log_CateID")&"'>"& RSn("cate_Name") &"</a>】<a target=_self href=""article.asp?id="&RSn("log_ID")&""">"&HTMLEncode(cutStr(RSn("log_Title"),21))&"</a></td><td class=""newline"" width=44>"& RSn("log_ViewNums") &"</td></tr>"
                          RSn.Movenext
                          row=row+1
                  if row=10 then
                        Exit do
                  end if
                        Loop
                End If
                RSn.Close
                Set RSn=Nothing
Newarticle = Newarticle & "<tr><td></td><td><a href=default.asp target=_self><img src=sy/tu/more.gif border=0 alt=more></a></td></tr></table>"
response.write Newarticle
End sub
'new
sub Newcate(Ord)
    dim CateOrd,NewcateStr,RS,CateID
        CateOrd=int(Ord)       
        Set RS=Server.CreateObject("Adodb.Recordset")
        SQL="SELECT top 10 L.log_ID,L.log_Title,L.log_PostTime,L.log_IsTop,C.cate_ID,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_CateID=cate_ID AND cate_Order="&CateOrd&" order by log_IsTop Asc, log_ID desc"
        RS.Open SQL,CONN,1,1                  
NewcateStr = "<div class=""Content NewContent""><div class=""Content-top""><div class=""ContentLeft""></div><div class=""ContentRight""></div><h1 class=""ContentTitle""><strong>"&RS("cate_Name")&"</strong></h1>"
CateID=RS("cate_ID")
NewcateStr = NewcateStr & "</div><div class=""NewBody""><table width=99% border=0 cellpadding=0 cellspacing=0>"
    do while not RS.eof
NewcateStr = NewcateStr & "<tr><td class=""newline""><a  href=article.asp?id="& RS("log_ID") &" target=_self>"
            if RS("log_IsTop") = True then
NewcateStr = NewcateStr & "<img src=sy/tu/top.gif border=0 alt=置顶标志 style=""padding-right:3px"">"
        else
NewcateStr = NewcateStr & "<img src=sy/tu/common.gif border=0  style=""padding-right:3px"">"
        end if
            if len(RS("log_Title"))>21 then
NewcateStr = NewcateStr & Left(RS("log_Title"),21) & "..."                   
            else
NewcateStr = NewcateStr &  RS("log_Title")
            end if
                if DateDiff("h",RS("log_PostTime"),Now)<24 then
NewcateStr = NewcateStr & "<img src=sy/tu/new.gif border=0 style=""padding-left:3px"">"
        end if
NewcateStr = NewcateStr & "</a></td><td class=""newline"" width=44>"&month(RS("log_PostTime"))&"月"&day(RS("log_PostTime"))&"</td></tr>"
        RS.movenext
        loop
        RS.close
        Set RS=nothing
NewcateStr = NewcateStr & "<tr><td></td><td><a href=default.asp?cateID="&CateID&" target=_self><img src=sy/tu/more.gif border=0 alt=more></a></td></tr></table></div></div>"
        response.write NewcateStr
end sub
%>
<!--#include file="footer.asp" -->

mubaixiong

谢谢楼上的朋友提供的方法！

能不能不要那个大大的ＦＬＡＳＨ呀？

好像是调用的www.xjbk.cn的ＦＬＡＳＨ～～～

mubaixiong

如何实现只修改主页中的内容区调用每个分类的前１０条记录，而侧边的各个功能不修改？

小弟在这方面太菜了，还请各位大哥赐教～～～！！！

laoli

侧边的功能并没修改啊！
另外那个ＦＬＡＳＨ你不需要可以删除相关代码的。实际我没提供ＦＬＡＳＨ的相关调用文件图片等，那个ＦＬＡＳＨ调用的图片标题等都是可以自己设置的。
看懂代码了就好办，可将这两排排列任意改成单排的，与图片交错的等等。

[ 本帖最后由 laoli 于 2007-12-8 00:08 编辑 ]

laoli

好了，楼主，我帮你把flashi调用取消了。
提供的压缩包里，index1.asp是单栏排列的样式，index2.asp是双栏排列的样式。
选择index1.asp和index2.asp其中一个（按个人喜好），放置于根目录下并改名为index.asp，后台日志分类管理那里，把default.asp改成index.asp即可。
祝你愉快。

本首页样式的原创者是Kaiser，特此声明。

6tblog

谢谢``收藏~~~~好东西