熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 09:40:23  來源: .NET編程 

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


  <%
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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.