用ASP編寫的實現文本框過濾的函數

　　一個不錯的而且很有用的函數！希望對你有用

　　<%
Function RequestText(TextStringTextTypeTextNameTextNumberMostTextNumberLeast)
TextString獲取文本框內的值
TextType設定文本框名稱的類型如input為textarea為
TextName碰到錯誤時顯示的名稱
TextNumberMost文本框能填入的字節最大數
TextNumberLeast文本框能填入的字節最小數
    GetText=Request(TextString)
Select Case TextType
Case
    GetText=Replace(GetText<<)
    GetText=Replace(GetText>>)
    GetText=Replace(GetText)
    if Len(GetText)>TextNumberMost then
        ResponseWrite(<Script>alert(您在 &TextName& 項輸入字節超過最大字節&TextNumberMost&請返回重新輸入!);historygo()</script>)
        ResponseEnd
    Elseif Len(GetText)<TextNumberLeast then
        ResponseWrite(<Script>alert(您在 &TextName& 項輸入字節小於了最小字節&TextNumberLeast&請返回重新輸入!);historygo()</script>)
        ResponseEnd
    End if
Case
    GetText=Replace(GetText<<)
    GetText=Replace(GetText>>)
    GetText=Replace(GetText)
    GetText=Replace(GetText   )
    GetText=Replace(GetTextvbCrlf<br />)
    if Len(GetText)>TextNumberMost then
        ResponseWrite(<Script>alert(您在 &TextName& 項輸入字節超過最大字節&TextNumberMost&請返回重新輸入!);historygo()</script>)
        ResponseEnd
    Elseif Len(GetText)<TextNumberLeast then
        ResponseWrite(<Script>alert(您在 &TextName& 項輸入字節小於了最小字節&TextNumberLeast&請返回重新輸入!);historygo()</script>)
        ResponseEnd
    End if
End Select
    RequestText=GetText
End Function
%>
<%
例子
if Request(post)<> then
Name=RequestText(Name姓名)
Text=RequestText(Text內容)
ResponseWrite 姓名值為&Name&<br>內容值為&Text
End if
%>

　　<form method=GET>
    <p>姓名<input type=text name=name size=></p>
    <p>內容<textarea rows= name=text cols=></textarea><input type=submit value=提交 name=post>
<input type=reset value=重置 name=B></p>
</form>

From:http://tw.wingwit.com/Article/program/net/201311/11298.html