\FS_InterFace\NS_Public.asp 页面
case "subclasslist"
if ubound(f_array)<>21
and ubound(f_array)<>22 and ubound(f_array)<>27
and ubound(f_array)<>28 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=subClassList(f_Lablechar,"subclasslist",f_Id):end if
Public Function subClassList(f_Lablechar,f_type,f_Id)
dim rs,f_sql,rs_n,rs_f_sql
,bgcssl,bgcssr dim div_tf,c_s_i,bg_ground,c_cols,c_cols_1,datenumber,datenumber_tmp,orderby,orderdesc,style_id,Inc_SubClass,SQL_Inc_SubClass,N_s_i
dim titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,loopnumber,picnewstf
dim classNews_head,classNews_middle1,classNews_bottom,classNews_middle2,c_s_i_1,table_array,TableTfStr,Str_TableTf
Dim OrderStr
if instr(f_Lablechar,"out_DIV")>0 then
div_tf=1
c_cols = split(split(f_Lablechar,"┆")(24),"$")(1)
c_cols_1 = split(split(f_Lablechar,"┆")(25),"$")(1)
bg_ground = split(split(f_Lablechar,"┆")(23),"$")(1)
bgcssl = split(split(split(f_Lablechar,"┆")(28),"$")(1),",")(0)
bgcssr = split(split(split(f_Lablechar,"┆")(28),"$")(1),",")(1) datenumber = split(split(f_Lablechar,"┆")(10),"$")(1)
orderby = split(split(f_Lablechar,"┆")(15),"$")(1)
orderdesc = split(split(f_Lablechar,"┆")(16),"$")(1)
style_id = split(split(f_Lablechar,"┆")(22),"$")(1)
loopnumber = split(split(f_Lablechar,"┆")(2),"$")(1)
titlenumber = split(split(f_Lablechar,"┆")(11),"$")(1)
contentnumber = split(split(f_Lablechar,"┆")(26),"$")(1)
navinumber = split(split(f_Lablechar,"┆")(27),"$")(1)
picshowtf = split(split(f_Lablechar,"┆")(12),"$")(1)
datestyle = split(split(f_Lablechar,"┆")(21),"$")(1)
openstyle = split(split(f_Lablechar,"┆")(13),"$")(1)
picnewstf = split(split(f_Lablechar,"┆")(1),"$")(1)
Inc_SubClass = split(split(f_Lablechar,"┆")(8),"$")(1)
else
div_tf=0
c_cols = split(split(f_Lablechar,"┆")(18),"$")(1)
c_cols_1 = split(split(f_Lablechar,"┆")(19),"$")(1)
bg_ground = split(split(f_Lablechar,"┆")(17),"$")(1)
bgcssl = split(split(split(f_Lablechar,"┆")(22),"$")(1),",")(0)
bgcssr = split(split(split(f_Lablechar,"┆")(22),"$")(1),",")(1) datenumber = split(split(f_Lablechar,"┆")(4),"$")(1)
orderby = split(split(f_Lablechar,"┆")(9),"$")(1)
orderdesc = split(split(f_Lablechar,"┆")(10),"$")(1)
style_id = split(split(f_Lablechar,"┆")(16),"$")(1)
loopnumber = split(split(f_Lablechar,"┆")(2),"$")(1)
titlenumber = split(split(f_Lablechar,"┆")(5),"$")(1)
contentnumber = split(split(f_Lablechar,"┆")(20),"$")(1)
navinumber = split(split(f_Lablechar,"┆")(21),"$")(1)
picshowtf = split(split(f_Lablechar,"┆")(6),"$")(1)
datestyle = split(split(f_Lablechar,"┆")(15),"$")(1)
openstyle = split(split(f_Lablechar,"┆")(7),"$")(1)
picnewstf = split(split(f_Lablechar,"┆")(1),"$")(1)
Inc_SubClass = split(split(f_Lablechar,"┆")(8),"$")(1)
end if
If orderby = "" Or Isnull(orderby) Then
orderby = "ID"
End If
If orderdesc = "" Or IsNull(orderdesc) Then
orderdesc = " Desc"
Else
orderdesc = " " & orderdesc
End If
If orderby = "ID" Then
OrderStr = orderby & orderdesc
Else
OrderStr = orderby & orderdesc & ",ID" & orderdesc
End If
if not isnumeric(titlenumber) then:titlenumber = 30:else:titlenumber = cint(titlenumber):end if
if not isnumeric(loopnumber) then:loopnumber = 10:else:loopnumber = cint(loopnumber):end if
MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
table_array=split(f_Lablechar,"┆")
classNews_head = table_str_list_head(div_tf,split(table_array(4),"$")(1),split(table_array(5),"$")(1),split(table_array(6),"$")(1),split(table_array(7),"$")(1))
classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(8),"$")(1),split(table_array(9),"$")(1))
classNews_bottom = table_str_list_bottom(div_tf)
classNews_middle2 = table_str_list_middle_2(div_tf)
if picnewstf="1" then
picnewstf = " and isPicNews=1"
else
picnewstf = ""
end if
if len(bg_ground)>5 then
bg_ground = " background="""& bg_ground &""""
else
bg_ground = ""
end If
if datenumber <>"0" then:datenumber_tmp = " and datevalue(addtime)+"&datenumber&">=datevalue(now)":else:datenumber_tmp = "":end if
if f_Id="" then f_id="0"
f_sql = "exec FS_NS_Public_FS_NS_NewsClass_ParentID_1 '"& f_Id &"'"
set rs = Server.CreateObject(G_FS_RS)
rs.Open f_sql,Conn,1,1
'------2006-12-17 by ken
If Not Rs.Eof Then
subClassList = "<table border=""0"" cellspacing=""3"" cellpadding=""0"" width=""100%"">"&vbNewLine
Do While Not Rs.Eof
subClassList = subClassList & " <tr>" & vbNewLine
For c_s_i = 1 To c_cols
If Rs.Eof Then Exit For
subClassList = subClassList & "<td width="""&cint(100/c_cols)&"%"" valign=""top"">" & vbNewLine
subClassList = subClassList & "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
subClassList = subClassList & "<tr>" & vbNewLine
subClassList = subClassList & "<td
class="""&bgcssl&""" width=""80%"" align=""left"" valign=""middle"" height=""26"" "&bg_ground&"> >> <a href="""& get_ClassLink(rs("ClassId"))&""">"&rs("ClassName")&"</a></td>" & vbNewLine
subClassList = subClassList & "<td
class="""&bgcssr&""" width=""20%"" align=""center"" valign=""middle"" height=""26"""&bg_ground&"><a href="""& get_ClassLink(rs("ClassId"))&"""><img src=""http://"& Request.Cookies("FoosunMFCookies")("FoosunMFDomain") &"/sys_images/news_more.gif"" border=""0"" alt="""& rs("ClassName") &"..更多""></a></td>" & vbNewLine
subClassList = subClassList & "</tr>" & vbNewLine
subClassList = subClassList & "<tr>" & vbNewLine
