用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>