文章列表类别(67)

                strContent = Replace(strContent, "{$GuestID}", Rs("guestid"))
                strContent = Replace(strContent, "{$UserName}", Newasp.HTMLEncode(Rs("username")))
                strContent = Replace(strContent, "{$GuestTopic}", GuestTopic)
                strContent = Replace(strContent, "{$ListStyle}", ListStyle)
                strContent = Replace(strContent, "{$Number}", i)
                strContent = Replace(strContent, "{$WriteTime}", WriteTime)
                strContent = Replace(strContent, "{$lastime}", lastime)
                Rs.MoveNext
                i = i + 1
            Loop
            strContent = strContent & "</table>"
        End If
        LoadGuestList = strContent
    End Function
    '================================================
    '函数名：ReadGuestList
    '作  用：读取留言列表
    '参  数：str ----原字符串
    '================================================
    Public Function ReadGuestList(ByVal str)
        Dim strTemp, i, sTempContent
        Dim nTempContent, ArrayList
        Dim arrTempContent, arrTempContents

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