不对哦。我找出的840行左右的是属于'循环列出文章栏目函数的more,我说的是取得栏目文章列表
的样式。
它的原代码应该是这些,可是我看不懂这个更多链接要让它跑右边怎么控制。
以下在763-791行
'取得栏目文章列表
Function GetArticleList(ChannelID,FolderID,I_S_C,S_C_N, OpenType, A_P, num, R_H,T_Len, ByVal S_Str, Col, PicTF, NavType, Nav, MoreType, MoreLink, SplitPic, DateRule,DateAlign, T_Css, DateCss,SpecialID,NewTF,HotTF,P_T,DivID,DivCss,UlID,ULCss,LiID,LICss,LabelID)
If LabelID<>"ajax" and P_T>2 Then
GetArticleList="<span id=""ks" & LabelID & "_" & FolderID & "_" & FCls.RefreshFolderID & "_0""></span>":Exit Function
ElseIf P_T>2 Then
P_T=P_T-2
End If
Dim SqlStr, A_PStr,M_L_S, O_T_S,C_F_T,Param
If FolderID = "-1" Then
FolderID = FCls.RefreshFolderID
C_F_T = True
Else
C_F_T = False
End If
If FolderID = "" Then FolderID = "0"
Select Case A_P
Case "1":A_PStr = " And Recommend=1"
Case "2":A_PStr = " And Popular=1"
Case "3":A_PStr = " And Strip=1"
End Select
A_PStr=A_PStr & " And " & KS.GetSpecialPara(SpecialID)
If Lcase(Left(Trim(S_Str),2))<>"id" Then S_Str=S_Str & ",ID Desc"
If FolderID = "0" Then Param="" Else If CBool(I_S_C) = True Then Param="Tid In (" & KS.GetFolderTid(FolderID) & ") And" Else Param="Tid='" & FolderID & "' And"
SqlStr = "SELECT TOP " & num & " ID,Title,Tid,ReadPoint,InfoPurview,Fname,Changes,AddDate,Popular,NewsID,ShowComment,Comment,TitleType,TitleFontColor,TitleFontType FROM " & KS.C_S(ChannelID,2) &" Where " & Param & " Verific=1 AND DelTF=0 " & A_PStr & " ORDER BY IsTop Desc," & S_Str
O_T_S = KS.G_O_T_S(OpenType)
If MoreLink <> "" And FolderID <> "0" And C_F_T = False Then M_L_S = KS.GetMoreLink(P_T,Col, R_H, MoreType, MoreLink, KS.GetFolderPath(FolderID), O_T_S)
GetArticleList = 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)
End Function