encoding.vb

系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP Professional SP2 (English Version) 开发环境:Visual Studio .NET

'
'    Copyright(C)2006,济南大学材料科学与工程学院
'    All right reserved.
'
'    文件名称:Encoding.vb
'    文件标识:
'    摘    要:
'
'    当前版本:1.0.0
'    作    者:梁  海
'    完成日期:2006-8-21
'
'    取代版本:
'    原作者  :
'    完成日期:
'
'    修改历史:
'
'

Public Module Encoding

    '
    '    函数名称:HtmlEncode(ByVal strHtml As String) As String
    '    摘    要:参数:strHtml表示需要重新编码的字符串
    '             实现对文本框的输入信息重编码,过滤非法字符
    '             对大于号,小于号,空格,单引号, 双引号,换行,回车
    '             这些特殊字符进行替换,防止SQL操作出错.
    '             返回经过编码号的字符串
    '
    Public Function HtmlEncode(ByVal strHtml As String) As String

        strHtml = strHtml.Replace(">", ">")
        strHtml = strHtml.Replace("<", "&lt;")
        strHtml = strHtml.Replace(Chr(32), "&nbsp;")
        strHtml = strHtml.Replace(Chr(34), "&quot;")
        strHtml = strHtml.Replace(Chr(39), "&#39;")
        strHtml = strHtml.Replace(Chr(13), "")
        strHtml = strHtml.Replace(Chr(10) & Chr(10), "</P><P>")
        strHtml = strHtml.Replace(Chr(10), "<BR>")

        Return strHtml

    End Function

    '
    '    函数名称:HtmlDecode(ByVal strHtml As String) As String
    '    摘    要:参数:strHtml表示需要解码的字符串
    '             实现与HtmlEncode(ByVal strHtml As String)相反功能
    '
    Public Function HtmlDecode(ByVal strHtml As String) As String

        strHtml = strHtml.Replace("&gt;", ">")
        strHtml = strHtml.Replace("&lt;", "<")
        strHtml = strHtml.Replace("&nbsp;", Chr(32))
        strHtml = strHtml.Replace("&quot;", Chr(34))
        strHtml = strHtml.Replace("&#39;", Chr(39))
        strHtml = strHtml.Replace("</P><P>", Chr(10) & Chr(10))
        strHtml = strHtml.Replace("<BR>", Chr(10))

        Return strHtml

    End Function

    '
    '    函数名称:TextEncode(Byval strEncode As String) As String
    '    摘    要:参数:strEncode表示需要过滤字符串
    '             返回过滤后的字符串
    '
    Public Function TextEncode(ByVal strEncode As String) As String

        strEncode = strEncode.Replace(Chr(34), "")           '///除去双引号
        strEncode = strEncode.Replace(Chr(39), "")           '///除去单引号

        Return strEncode

    End Function

    '
    '    函数名称:CheckQueryString(ByVal s As String) As Boolean
    '    摘    要:参数:s表示需要验证的字符串
    '             返回字符串是否合法
    '
    Public Function CheckQueryString(ByVal s As String) As Boolean

        Dim ss As String
        Dim flag As Boolean = False
        For i As Integer = 0 To s.Length
            ss = Mid(s, i, 1)
            If ss = "'" Or ss = "--" Or _
               ss = "<" Or ss = ">" Or _
               ss = " " Or ss = "%" Or _
               ss = "*" Or ss = "(" Or _
               ss = ")" Or ss = "?" Or _
               ss = ";" Or ss = "+" Or _
               ss = "," Or ss = "-" Or _
               ss = "[" Or ss = "]" Or _
               ss = "{" Or ss = "}" Then

                flag = False

            End If
            flag = True
        Next
        Return flag

    End Function

    '
    '    函数名称:FilterText(ByVal s As String) As String
    '    摘    要:参数:s表示需要过滤的字符串
    '             返回不含非法字符的字符串
    '
    Public Function FilterText(ByVal s As String) As String

        s = s.Trim()
        s = s.Replace("'", "")
        s = s.Replace(",", "")
        s = s.Replace(";", "")
        s = s.Replace("?", "")
        s = s.Replace("@", "")
        s = s.Replace("!", "")
        s = s.Replace("#", "")
        s = s.Replace("$", "")
        s = s.Replace("^", "")
        s = s.Replace("&", "")
        s = s.Replace("|", "")
        s = s.Replace("--", "")
        s = s.Replace("<", "")
        s = s.Replace(">", "")
        s = s.Replace("=", "")
        s = s.Replace("%", "")
        s = s.Replace("*", "")
        s = s.Replace("+", "")
        s = s.Replace("-", "")
        s = s.Replace("*", "")
        s = s.Replace("/", "")
        s = s.Replace("\", "")
        s = s.Replace("[", "")
        s = s.Replace("]", "")
        s = s.Replace("{", "")
        s = s.Replace("}", "")
        s = s.Replace("[", "")
        s = s.Replace("]", "")

        Return s

    End Function

End Module