文章列表类别(89)

        Else
            foundsql = "ORDER BY userlogin DESC,userid DESC"
        End If
        If grade > 0 Then
            SQL = "SELECT TOP " & maxline & " userid,username,userpoint,userlogin FROM [NC_User] WHERE UserGrade=" & grade & " " & foundsql
        Else
            SQL = "SELECT TOP " & maxline & " userid,username,userpoint,userlogin FROM [NC_User] " & foundsql
        End If
        Set Rs = Newasp.Execute(SQL)
        i = 0
        strContent = ""
        If Not (Rs.BOF And Rs.EOF) Then
            strContent = "<table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles) & 1
                Else
                    ListStyle = Trim(styles) & 2
                End If
                username = "<a href=""" & Newasp.InstallDir & "user/userlist.asp?userid=" & Rs("userid") & """ target=""_blank"">" & Rs("username") & "</a>"
                strContent = strContent & Newasp.MainSetting(23)
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)