文章列表类别(88)

            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadSoftType(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
            Next
        End If
        ReadSoftType = strTemp
    End Function
    '================================================
    '函数名：LoadUserRank
    '作  用：装用户排行列表
    '================================================
    Public Function LoadUserRank(ByVal stype,ByVal grade,ByVal maxline,ByVal styles)
        Dim SQL, Rs, foundsql, strContent, i
        Dim ListStyle,username

        stype = Newasp.CheckNumeric(stype)
        grade = Newasp.CheckNumeric(grade)
        maxline = Newasp.CheckNumeric(maxline)
        If maxline = 0 Then maxline = 10
        If stype = 1 Then
            foundsql = "ORDER BY JoinTime DESC,userid DESC"
        ElseIf stype = 2 Then
            foundsql = "ORDER BY LastTime DESC,userid DESC"
        ElseIf stype = 3 Then
            foundsql = "ORDER BY userpoint DESC,userid DESC"