文章列表类别(90)

                strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
                strContent = Replace(strContent, "{$UserName}", username)
                strContent = Replace(strContent, "{$username}", Rs("username"))
                strContent = Replace(strContent, "{$UserID}", Rs("userid"))
                strContent = Replace(strContent, "{$UserLogin}", Rs("userlogin"))
                strContent = Replace(strContent, "{$UserPoint}", Rs("userpoint"))
                Rs.MoveNext
                i = i + 1
                strContent = Replace(strContent, "{$OrderID}", i)
            Loop
            strContent = strContent & "</table>"
        End If
        Rs.Close: Set Rs = Nothing

        LoadUserRank = strContent
    End Function
    '================================================
    '函数名：ReadUserRank
    '作  用：读取用户排行列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadUserRank(ByVal str)
        On Error Resume Next
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

        strTemp = str
        If InStr(strTemp, "{$ReadUserRank(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadUserRank(", ")}", 1)