'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'函数名:KS_P_L

'作 用:通用图片列表

'参 数:SqlStr 待查询的SQL语句,

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Public Function KS_P_L(ChannelID,SqlStr, Width, Height, PicStyle, T_Len, NaviStr)

Dim SQL,K

Dim Title,TempPicStr,Url,LinkAndPicStr,TempTitleStr

Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

RS.Open SqlStr, Conn, 1, 1

If RS.EOF Then KS_P_L="":RS.Close:Set RS=Nothing:Exit Function

SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing

Dim TotalNum:TotalNum=Ubound(SQL,2)

For K=0 To TotalNum

Title = SQL(1,K)

TempPicStr=GetPicUrl(SQL(7,K))

Url = KS.GetInfoUrl(ChannelID,SQL(0,K),0)

LinkAndPicStr = ""

TempTitleStr = "" & KS.GotTopic(Title, T_Len) & ""

Select Case CInt(PicStyle)

Case 1:KS_P_L = KS_P_L & LinkAndPicStr & "" & vbCrLf

Case 2:KS_P_L = KS_P_L & LinkAndPicStr & "" & TempTitleStr & "" &vbCrLf

Case 3:KS_P_L = KS_P_L & NaviStr & TempTitleStr & "" & vbcrlf

End Select

Next

End Function