ASP常用函数收藏乱七八糟未整理版(64)

            End If
        Case Chr(9)
            result = result + " "
        Case Else
            result = result + Mid(Str, i, 1)
    End Select
Next
Htmlout = result
End Function


Rem - - - textarea显示用 - - -
CODE Copy ...

Function htmlencode1(fString)
    If fString<>"" And Not IsNull(fString) Then
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, " ", Chr(32))
        fString = Replace(fString, "</p><p>", Chr(10) & Chr(10))
        fString = Replace(fString, "<br>", Chr(10))
        htmlencode1 = fString
    Else
        htmlencode1 = ""
    End If
End Function


Rem - - - 页面显示用 - - -
CODE Copy ...

Function htmlencode2(fString)
    If fString<>"" And Not IsNull(fString) Then
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, Chr(32), " ")
        fString = Replace(fString, Chr(10) & Chr(10), "</p><p>")
        fString = Replace(fString, Chr(10), "<br>")
        htmlencode2 = fString
    Else
        htmlencode2 = ""
    End If
End Function


Rem - - - 取出指定字符串前后的字符串方法 - - -
CODE Copy ...

Function GetStrs(str1, CharFlag, Dflag)
    Dim tmpstr