文章列表类别(72)

                strSoftName = "<div" & divstyle & ">" & start & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "名称：" & Rs("SoftName") & " " & Rs("SoftVer") & " 发布时间：" & Rs("SoftTime") & " 下载总数：" & Rs("AllHits") & """ class=popular>" & NewsTitle & "</a>  " & AllHits & "</div>"
                strContent = strContent & strSoftName

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

        strTemp = str
        If InStr(strTemp, "{$ReadPopularSoft(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")