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

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

<%
Function RequestText(TextString,TextType,TextName,TextNumberMost,TextNumberLeast)
'TextString获取文本框内的值
'TextType设定文本框名称的类型,如input为0,textarea为1
'TextName碰到错误时显示的名称
'TextNumberMost文本框能填入的字节最大数
'TextNumberLeast文本框能填入的字节最小数
    GetText=Request(TextString)
Select Case TextType
Case 0
    GetText=Replace(GetText,"<","<")
    GetText=Replace(GetText,">",">")
    GetText=Replace(GetText,"'","''")
    if Len(GetText)>TextNumberMost then
        Response.Write("<Script>alert(""您在 "&TextName&" 项输入字节超过最大字节"&TextNumberMost&",请返回重新输入!"");history.go(-1)</script>")
        Response.End
    Elseif Len(GetText)<TextNumberLeast then
        Response.Write("<Script>alert(""您在 "&TextName&" 项输入字节小于了最小字节"&TextNumberLeast&",请返回重新输入!"");history.go(-1)</script>")
        Response.End
    End if
Case 1
    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(-1)</script>")
        Response.End
    Elseif Len(GetText)<TextNumberLeast then
        Response.Write("<Script>alert(""您在 "&TextName&" 项输入字节小于了最小字节"&TextNumberLeast&",请返回重新输入!"");history.go(-1)</script>")
        Response.End
    End if
End Select
    RequestText=GetText
End Function
%>
<%
'例子
if Request("post")<>"" then
Name=RequestText("Name",0,"姓名",10,2)
Text=RequestText("Text",0,"内容",255,0)
Response.Write "姓名值为："&Name&"<br>内容值为："&Text
End if
%>

分享到：