文章列表类别

trContent = Replace(strContent, "{$BestCode}", BestCode)
strContent = Replace(strContent, "{$BestString}", BestString)
j = j + 1
Next
SQL=Null
strContent = strContent & "</table>"
End If
Rs.Close: Set Rs = Nothing
LoadFlashList = strContent
End Function
''================================================
''函数名：ReadFlashList
''作 用：读取动画列表
''参 数：str ----原字符串
''================================================
Public Function ReadFlashList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents, ArrayList
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$ReadFlashList(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadFlashList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
Next
End If
ReadFlashList = strTemp
End Function
''================================================
''函数名：LoadAnnounceContent
''作 用：装载内容公告
''参 数：str ----原字符串
''================================================
Public Function LoadAnnounceContent(ByVal sTopic, ByVal ChannelID)
Dim SQL, Rs, strTemp
strTemp = ""
sTopic = Newasp.CheckStr(sTopic)
If sTopic <> "" And sTopic <> "0" Then
SQL = "Select AnnounceID,Content,PostTime,writer From NC_Announce where AnnounceType=1 And title = ''" & sTopic & "'' Order By PostTime Desc,AnnounceID Desc"
Else
SQL = "Select AnnounceID,Content From NC_Announce where AnnounceType=1 And ChannelID in (" & ChannelID & ",999) Order By PostTime Desc,AnnounceID Desc"
End If
Set Rs = Newasp.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
strTemp = Rs("Content")
End If
Rs.Close: Set Rs = Nothing
LoadAnnounceContent = strTemp
End Function
''================================================
''函数名：ReadAnnounceContent
''作 用：读取内容公告
''参 数：str ----原字符串
''================================================
Public Function ReadAnnounceContent(ByVal str, ByVal ChannelID)
Dim strTemp, i, sTempContent, nTempContent, strValue
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$AnnounceConte