newasp中main类(17)

        sHtmlContent = TempStr
    End Property
    Public Property Get HTMLValue()
        HTMLValue = sHtmlContent
    End Property
    Public Property Get HtmlSetting(n)
        HtmlSetting = Html_Setting(n)
    End Property
    Public Property Get MainSetting(n)
        MainSetting = Main_Setting(n)
    End Property
    '================================================
    '过程名：GetSiteUrl
    '作  用：取得带端口的URL
    '================================================
    Public Property Get GetSiteUrl()
        If Request.ServerVariables("SERVER_PORT") = "80" Then
            GetSiteUrl = "http://" & Request.ServerVariables("server_name")
        Else
            GetSiteUrl = "http://" & Request.ServerVariables("server_name") & ":" & Request.ServerVariables("SERVER_PORT")
        End If
    End Property
    '================================================
    '函数名：FormEncode
    '作  用：过虑提交的表单数据
    '参  数：str ----原字符串  n ----字符长度
    '================================================
    Public Function FormEncode(ByVal str, ByVal n)
        If Not IsNull(str) And Trim(str) <> "" Then
            str = Left(str, n)
            str = Replace(str, ">", ">")
            str = Replace(str, "<", "<")
            str = Replace(str, ">", ">")
            str = Replace(str, "<", "<")