相关文章
最新热门搜索排行
北京网站设计网页表格深层探密
网页设计页边距的设定技巧(HTML)
北京网站制作教程/dreamweaver/高级 深入DREAMWEAVER插件的奥秘(3)
企通互联DreamweaverMX打造留言本(五)
网站设计Dreamweaver行为全接触(4)
网站制作自己动手制作手机Flash主题动画
网站建设FLASH MX 2004视频教程:走!咱们踏春去(五)
北京网站建设Flash8滤镜与混合模式(2):近距离看滤镜效果
企通互联Dreamweaver 入门:创建基于表格的页面布局
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置:首页 >> 网站制作 >> 北京网页设计北京网站设计分享让不规则文章标题颜色和设置的颜色一样
北京网页设计北京网站设计分享让不规则文章标题颜色和设置的颜色一样
由于之间声明过从此不搞回复贴,所以这此就是完全展示了(光屁屁) 网站制作,如果觉得还有点用就顶一下,呵呵! 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
上一篇:网站建设推荐■[通用标签]分类文章调用--很多人需要的
下一篇:网站建设在文章管理列表直接生成HTML静态页面!(精)