文章列表类别

trContent & strtitle

Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
LoadPopularFlash = strContent
End Function
''================================================
''函数名：ReadPopularFlash
''作 用：读取动画排行列表
''参 数：str ----原字符串
''================================================
Public Function ReadPopularFlash(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents

strTemp = str
If InStr(strTemp, "{$ReadPopularFlash(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularFlash(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularFlash(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadPopularFlash(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadPopularFlash = strTemp
End Function
''================================================
''函数名：LoadSoftType
''作 用：装载软件类型列表
''参 数：chanid ----频道ID
'' SoftType ----软件类型
'' maxline ----显示列表数
'' maxlen ----显示标题长度
'' showclass ----是否显示分类
'' showdate ----是否显示日期
'' DateMode ----显示日期模式
'' newindow ----是否新窗口打开连接
'' styles ----样式名称
''================================================
Public Function LoadSoftType(ByVal chanid, ByVal SoftType, ByVal maxlen, _
ByVal maxline, ByVal showclass, ByVal showdate, _
ByVal DateMode, ByVal newindow, ByVal styles)

Dim SQL, Rs, foundsql, strContent, i
Dim strSoftName, ChildStr, ListStyle, HtmlFileName, BestCode, BestString
Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic

SoftType = Newasp.CheckStr(SoftType)
chanid = Newasp.ChkNumeric(chanid)
maxline = Newasp.ChkNumeric(maxline)
If chanid = 0 Then chanid = 2
If maxline = 0 Then maxline = 10

On Error Resume Next
Newasp.LoadChannel(chanid)

If Trim(SoftType) <> "" Then
foundsql = "And A.SoftType=''" & SoftType & "'' Order By A.SoftTime Desc ,A.SoftID Desc"
Else
foundsql = "Order By A.SoftTime Desc ,A.SoftID Desc"
End If

SQL = " A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.SoftType,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,"
SQL = "SELECT TOP " & maxline & SQL & " C.ClassName,C.Colo