?? char.inc
字號:
<%
'臟字過濾
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, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -