网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

作者： 北京网站建设   日期：2008-03-27 06:03:34  来源： http://www.qitongnet.com

不知道是我笨还是 网站设计科汛在这里偷了一点儿懒，对于不规则文章调用，没有提取文章标题的相关属性，所以导致不规则新闻调用只能是黑色字体，也不能加粗加斜，在后台添加文章时标题属性设置在不规则新闻中不起作用，但其它大型站点不规则新闻不光是标题字数不规则，连颜色也不规则，呵呵，怎么实现呢，还得感谢 网站建设科汛为我们做好了模板，我们对其进行一个小手术就OK了，我只做了颜色，大家可以把加粗等属性也放进来，有了style属性什么都好说！

由于之间声明过从此不搞回复贴，所以这此就是完全展示了（光屁屁） 网站制作,如果觉得还有点用就顶一下，呵呵！ www.qitongnet.com

找到函数： 企通互联KS_C_NotRule_A_L(大约是464行，如果没有改过这部分的话，主要修改部分用红色标识出来了），然后把函数用以下函数全部替换：

Function KS_C_NotRule_A_L(SqlStr,RowNumber, ShowNumPerRow, MoreLinkStr, OpenTypeStr, RowHeight,  NavType, Nav, SplitPic, TitleCss,PrintType,DivID,DivClass,UlID,ULClass,LiID,LiClass)北京网站建设
    On Error Resume Next北京网站建设
    Dim I, FolderNameAndLinkStr, NaviStr,CommentStr网站建设
    Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")网站制作
    Dim PreArticleComment,PreArticleShowComment,PreArticleClassID,PreArticleInfoID

    RS.Open SqlStr, Conn, 1, 1北京网站建设
    If Not RS.EOF Then企通互联
       Dim CurrTid,LinkStr,Title, TitleCssStr,EndStr,TitleColor网页设计
    TitleCssStr = KSCMS.GetCss(TitleCss):RowHeight = KSCMS.GetRowHeight(RowHeight):NaviStr = KSCMS.GetNavi(NavType, Nav)北京网站制作
    If Cint(PrintType)=2 Then企通互联
     KS_C_NotRule_A_L ="<div"&KSCMS.GetCssID(DivID)&KSCMS.GetCss(DivCLass) &">" & vbCrLf & " <ul"&KSCMS.GetCssID(UlID)&KSCMS.GetCss(UlClass) &">" & vbCrLf & "<li"&KSCMS.GetCssID(LIID)&KSCMS.GetCss(LIClass)&">"北京网站建设
     EndStr="</li>"北京网站设计
    Else北京网站建设
    KS_C_NotRule_A_L = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" align=""center"">" & vbCrLf & "<tr><td height=""" & RowHeight &""">" & vbCrLf网站建设
    EndStr="</td></tr>" 北京网站设计网页设计
      End If网站建设
    Dim II:ii=0:Dim CC:cc=0:Dim Row,str网站建设
    RowNumber=Cint(RowNumber):ShowNumPerRow=Cint(ShowNumPerRow)网站设计
    KS_C_NotRule_A_L= KS_C_NotRule_A_L & NaviStr网站设计
    do while not RS.eof北京网站制作
        CurrTid = Trim(RS("Tid"))企通互联
        TitleColor=trim(RS("TitleFontColor"))北京网站建设
        if TitleColor="" then TitleColor="Black"

        Title=trim(RS("Title")) 

     LinkStr=TitleCssStr & " href=""" & KSCMS.GetInfoUrl(1,RS) & """" & OpenTypeStr & " title=""" & Title & """"网站建设
     ii=ii + KSCMS.strLength(Title)北京网页设计
     if ii>=ShowNumPerRow then网站设计 北京网站建设
     cc=ii - ShowNumPerRow:cc=KSCMS.strLength(Title) - cc:row=row+1:ii=0北京网站设计
      IF row=RowNumber then北京网站建设
         IF cc<=5  And PreArticleShowComment = 1 And PreArticleComment = 1 Then北京网站制作
          KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<a href=""" & DomainStr & "Comment.asp?ChannelID=1&Classid=" & PreArticleClassID & "&InfoID=" & PreArticleInfoID & """ target=""_blank"">" & KSCMS.GotTopic("评论",cc) & "</a>"&EndStr网页设计
         Else北京网页设计
          KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<a" & LinkStr &" style=""color:"& TitleColor &""">"& KSCMS.GotTopic(Title,cc)&"</a>"&EndStr企通互联
         End IF网页设计
               KS_C_NotRule_A_L = KS_C_NotRule_A_L & (KSCMS.GetSplitPic(SplitPic, 1) & vbCrLf)北京网站建设
        PreArticleComment=RS("Comment"):PreArticleShowComment=RS("ShowComment"):PreArticleClassID=CurrTid:PreArticleInfoID=RS("NewsID")北京网站设计
        RS.movenext网站建设
        Else网站制作
             IF cc<=5  And PreArticleShowComment = 1 And PreArticleComment = 1 Then北京网页设计
        KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<a href=""" & DomainStr & "Comment.asp?ChannelID=1&Classid=" & PreArticleClassID & "&InfoID=" & PreArticleInfoID & """ target=""_blank"">" & KSCMS.GotTopic("评论",cc) &"</a>"&EndStr北京网站设计
       else网页设计
       KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<a" & LinkStr &" style=""color:"& TitleColor &""">"& KSCMS.GotTopic(Title,cc)&"</a>"&EndStr网站设计
       end if北京网站制作
               KS_C_NotRule_A_L = KS_C_NotRule_A_L & (KSCMS.GetSplitPic(SplitPic, 1) & vbCrLf)企通互联
         PreArticleComment=RS("Comment"):PreArticleShowComment=RS("ShowComment"):PreArticleClassID=CurrTid:PreArticleInfoID=RS("NewsID")网站制作
       RS.movenext 网站设计
       If Not RS.EOF Then 企通互联
        If Cint(PrintType)=2 Then网站设计
         KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<li"&KSCMS.GetCssID(LIID)&KSCMS.GetCss(LIClass)&">" & NaviStr网站制作
        else企通互联
         KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<td height=""" & RowHeight &""">" & NaviStr网页设计
        end if北京网站制作
       end if网站设计
        End If北京网站建设
     Else北京网站设计
        KS_C_NotRule_A_L=KS_C_NotRule_A_L & "<a" & LinkStr &" style=""color:"& TitleColor &""">"& Title&"</a> "网站制作
        ii=ii + 1网站设计
         PreArticleComment=RS("Comment"):PreArticleShowComment=RS("ShowComment"):PreArticleClassID=CurrTid:PreArticleInfoID=RS("NewsID")北京网站设计
        RS.movenext网站建设
     End IF企通互联
     if row>=RowNumber then exit do北京网站建设
    loop网站制作
     RS.close:Set RS=nothing网页设计
     KS_C_NotRule_A_L = KS_C_NotRule_A_L & MoreLinkStr北京网站建设
     If Cint(PrintType)=2 Then企通互联
     KS_C_NotRule_A_L = KS_C_NotRule_A_L & ("</ul>" & vbCrLf &"</div>" & vbcrlf)北京网页设计
     Else网站设计
     KS_C_NotRule_A_L = KS_C_NotRule_A_L & ("</table>" & vbCrLf)网页设计
     End if 北京网页设计网站制作
    Else网页设计
      KS_C_NotRule_A_L = "":RS.Close:Set RS = Nothing网站设计
    End If企通互联
    北京网站制作
  End Function