<%
'臟字過濾
Function CkBadWords(fString)
    IF not(isnull(BadWords) or isnull(fString)) then
    BadWords = split(BadWords, "|")
	dim i
    For i = 0 to ubound(BadWords)
        fString = Replace(fString, BadWords(i), string(len(BadWords(i)),"*")) 
    Next
    CkBadWords = fString
    End IF
End Function
'檢查年齡
Function CkAge(LngAge)
IF LngAge="" Then Error("您忘了填寫年齡")
Dim RE
Set RE = New RegExp
RE.Pattern = "[0-9]{"&Len(LngAge)&"}"
RE.IgnoreCase = False
RE.Global = False
CkAge = RE.Test(LngAge)
Set RE = Nothing
IF CkAge = True Then
IF LngAge < 2 Then Error("您的年齡太小了<br>PS：孩子 您這么小就能上網啊 真厲害! 將來肯定比我強! 來哥哥(SLIGHTBOY)賞你個棒棒糖 ^*^")
IF LngAge > 100 Then Error("您的年齡太大了<br>PS：不會吧？ 老爺爺 精力充沛啊 還上網啊 活這么久能告訴我方法嗎？ 我幫你宣傳宣傳 ^*^")
Else
Error("年齡欄只能輸入數字")
End IF
End Function
'郵件檢查
Function chkemail(strEmailAddr)
    chkemail=False
    Dim RE
    Set RE = new RegExp
    RE.pattern = "^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$"
    chkemail=RE.Test(strEmailAddr)
    Set RE=Nothing
End Function
'HTML 編碼 (不支持)
Function HTMLEncode(fString)
IF not isnull(fString) then
    fString = Replace(fString, ">", "&gt;")
    fString = Replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
End IF
End Function
'HTML 支持
Function HTMLcode(fString)
IF not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
End IF
End Function
%>