newasp中main类(23)

            CheckPost = True
        End If
    End Function
    '=============================================================
    '函数作用：判断来源URL是否来自外部
    '=============================================================
    Public Function CheckOuterUrl()
        On Error Resume Next
        Dim server_v1, server_v2
        server_v1 = Replace(LCase(Trim(Request.ServerVariables("HTTP_REFERER"))), "http://", "")
        server_v2 = LCase(Trim(Request.ServerVariables("SERVER_NAME")))
        If server_v1 <> "" And Left(server_v1, Len(server_v2)) <> server_v2 Then
            CheckOuterUrl = False
        Else
            CheckOuterUrl = True
        End If
    End Function
    '================================================
    '函数名：GotTopic
    '作  用：显示字符串长度
    '参  数：str   ----原字符串
    '        strlen  ----显示字符长度
    '================================================
    Public Function GotTopic(ByVal str, ByVal strLen)
        Dim l, t, c, i
        Dim strTemp
        On Error Resume Next
        str = Trim(str)
        str = Replace(str, " ", " ")
        str = Replace(str, ">", ">")
        str = Replace(str, "<", "<")
        str = Replace(str, ">", ">")
        str = Replace(str, "<", "<")
        str = Replace(str, "'", "'")