过滤组函数返回的行记录 用ASP编写的实现文本框过滤的函数

用ASP编写的实现文本框过滤的函数  

　　一个不错的而且很有用的函数！希望对你有用

　　<%Function RequestText(TextString TextType TextName TextNumberMost TextNumberLeast) TextString获取文本框内的值 TextType设定文本框名称的类型 如input为 textarea为 TextName碰到错误时显示的名称 TextNumberMost文本框能填入的字节最大数 TextNumberLeast文本框能填入的字节最小数    GetText=Request(TextString)Select Case TextTypeCase     GetText=Replace(GetText < < )    GetText=Replace(GetText > > )    GetText=Replace(GetText )    if Len(GetText)>TextNumberMost then        Response Write( <Script>alert( 您在 &TextName& 项输入字节超过最大字节 &TextNumberMost& 请返回重新输入! );history go( )</script> )        Response End    Elseif Len(GetText)<TextNumberLeast then        Response Write( <Script>alert( 您在 &TextName& 项输入字节小于了最小字节 &TextNumberLeast& 请返回重新输入! );history go( )</script> )        Response End    End ifCase     GetText=Replace(GetText < < )    GetText=Replace(GetText > > )    GetText=Replace(GetText )    GetText=Replace(GetText   )    GetText=Replace(GetText vbCrlf <br /> )    if Len(GetText)>TextNumberMost then        Response Write( <Script>alert( 您在 &TextName& 项输入字节超过最大字节 &TextNumberMost& 请返回重新输入! );history go( )</script> )        Response End    Elseif Len(GetText)<TextNumberLeast then        Response Write( <Script>alert( 您在 &TextName& 项输入字节小于了最小字节 &TextNumberLeast& 请返回重新输入! );history go( )</script> )        Response End    End ifEnd Select    RequestText=GetTextEnd Function%><% 例子if Request( post )<> thenName=RequestText( Name 姓名 )Text=RequestText( Text 内容 )Response Write 姓名值为 &Name& <br>内容值为 &TextEnd if%>