newasp中main类(22)

        End If
    End Function
    '=============================================================
    '函数作用：过滤HTML代码，不带脏话过滤
    '=============================================================
    Public Function HTMLEncodes(ByVal fString)
        If Not IsNull(fString) Then
            fString = Replace(fString, "'", "'")
            fString = Replace(fString, ">", ">")
            fString = Replace(fString, "<", "<")
            fString = Replace(fString, Chr(32), " ")
            fString = Replace(fString, Chr(9), " ")
            fString = Replace(fString, Chr(34), """)
            fString = Replace(fString, Chr(39), "'")
            fString = Replace(fString, Chr(13), "")
            fString = Replace(fString, Chr(10), "<br /> ")
            fString = Replace(fString, " ", " ")
            HTMLEncodes = fString
        End If
    End Function
    '=============================================================
    '函数作用：判断发言是否来自外部
    '=============================================================
    Public Function CheckPost()
        On Error Resume Next
        Dim server_v1, server_v2
        CheckPost = False
        server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
        server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
        If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then