此主题相关图片如下：未命名.jpg

就像这个样子的。 本想修改Kesion.Label.FunctionCls.asp来实现的 思路：当标签的列数设置为10列的时候启用(在我想来分10列列表基本上是用不到的) '==========================================================================文章发布中心通用函数声明============================== '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '函数名:KS_A_L '作 用:通用栏目文章列表 '参 数:SqlStr 待查询的SQL语句,M_L_S更多链接字串,O_T_S链接打开类型,等 '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Function KS_A_L(ChannelID,SqlStr, M_L_S, S_C_N, O_T_S, R_H, T_Len, Col, PicTF, NavType, Nav, SplitPic, DateRule, DateAlign, T_Css, DateCss,NewTF,HotTF,P_T,DivID,DivCss,UlID,ULCss,LiID,LICss) ' On Error Resume Next Dim K,I, C_N_Link, NaviStr,ColSpanNum, TempTitle,SQL,N Dim RS:Set RS=Conn.Execute(SqlStr) If RS.EOF Then KS_A_L="":RS.Close:Set RS=Nothing:Exit Function SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing Dim TotalNum:TotalNum=Ubound(SQL,2) Dim Title, T_CssStr, DateCssStr,NewImgStr,HotImgStr,DateStr T_CssStr = KS.GetCss(T_Css):DateCssStr = KS.GetCss(DateCss):R_H = KS.G_R_H(R_H):NaviStr = KS.GetNavi(NavType, Nav) '修改开始 'Dim RS1:Set RS1=Conn.Execute("SELECT TOP 1 PicNews,PicUrl FROM KS_article WHERE ID="&SQL(0,K)) 'If RS1.EOF Then KS_A_L="":RS1.Close:Set RS11=Nothing 'Dim SQL1:SQL1=RS1.GetRows(-1):RS1.Close:Set RS1 = Nothing 'IF Col=10 Then ' IF SQL1(0,N)=1 Then NaviStr = "" 'End If 'Col=1 '修改结束 结果所有列的新闻全中使用的全是同一张图片.唉,不搞了.下次再搞.