查了数据库里头有一堆 这样的代码
{$GetArticleList(1,"20090458415281",true,false,"",0,55,20,56,"ID Asc",1,true,1,"/Upfiles/dot_1.gif",1,"","/Upfiles/Line4.gif",0,"left","","",0,true,true,1,li01,hlink1,,,,)}
不知代表什么,是不是可以在里面增加价格的字段,,
以上对应的还有,
'取得栏目文章列表
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 & KS.GetSpecialPara(ChannelID,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,KS_moner 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
这些代码,,我想是有相联的,但不知怎么去改,,高手指点一下