学习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
%>

<form method="GET">
    <p>姓名<input type="text" name="name" size="20"></p>
    <p>内容<textarea rows="6" name="text" cols="20"></textarea><input type="submit" value="提交" name="post">
<input type="reset" value="重置" name="B2"></p>
</form>

时间: 2024-09-16 07:08:49

学习ASP有用的文本框过滤函数的相关文章

asp.net 初始化文本框的小例子

这篇文章介绍了asp.net 初始化文本框的小例子,有需要的朋友可以参考一下,希望对你有所帮助   复制代码 代码如下: private void ClearAllText(System.Web.UI.Control contrl)   {       int ctl_count=contrl.Controls.Count;    for (int i=0;i<ctl_count;i )    {     foreach(Control ctl in contrl.Controls[i].Con

ASP.NET输入文本框自动提示功能_实用技巧

在ASP.NET Web开发中会经常用到自动提示功能,比如百度搜索.我们只要输入相应的关键字,就可以自动得到相似搜索关键字的提示,方便我们快速的输入关键字进行查询. 那么在ASP.NET中,如果我们需要做个类似的效果,该如何做到呢? 很简单,我们只要借助于一个JQuery强大的插件JQuery AutoComplete来完成这个效果就可以了.这个插件的官方地址为:JQuery AutoComplete,里面也有示例代码. 下面我们将以一个身份证号自动查询为例,来看看JQuery AutoComp

asp取数字-ASP 如何提取文本框中的第一个数字

问题描述 ASP 如何提取文本框中的第一个数字 input name="DM" type="text" id="DM" value="<%=rs("TEL")%>"> 如何提取DM文本框中<%=rs("TEL")%>第一个数字 如DX 12:1252:LJ352 请给详细的代码, 谢谢(新手)! 解决方案 ">

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

函数|文本框 一个不错的而且很有用的函数!希望对你有用. <%Function RequestText(TextString,TextType,TextName,TextNumberMost,TextNumberLeast)'TextString获取文本框内的值'TextType设定文本框名称的类型,如input为0,textarea为1'TextName碰到错误时显示的名称'TextNumberMost文本框能填入的字节最大数'TextNumberLeast文本框能填入的字节最小数    Ge

asp中向文本框输出数据原样式的函数_应用技巧

从数据库输出信息时有转换函数,可以将回车空格按原样式输出.这段代码可向文本框原样输出代码. 复制代码 代码如下: Function cc_f_textarea_html_encode(cc_f_t_h_e_str)  If Not IsNull(cc_f_t_h_e_str) And cc_f_t_h_e_str <> "" Then  cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, ">", ">

asp中向文本框输出数据原样式的函数

从数据库输出信息时有转换函数,可以将回车空格按原样式输出.这段代码可向文本框原样输出代码. 复制代码 代码如下: Function cc_f_textarea_html_encode(cc_f_t_h_e_str)  If Not IsNull(cc_f_t_h_e_str) And cc_f_t_h_e_str <> "" Then  cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, ">", ">

学习ASP有用的代码(很有用哦!)

1.数据库连接. ASP与Access数据库连接: <%@ language=VBscript%> <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=

学习ASP有用的代码

<%@language=VBscript%><%dimconn,mdbfilemdbfile=server.mappath("数据库名称.mdb")setconn=server.createobject("adodb.connection")conn.open"driver={microsoftaccessdriver(*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile %> <

asp.net 初始化文本框的小例子_实用技巧

复制代码 代码如下: private void ClearAllText(System.Web.UI.Control contrl)  {      int ctl_count=contrl.Controls.Count;   for (int i=0;i<ctl_count;i )    {    foreach(Control ctl in contrl.Controls[i].Controls)    {     if (ctl.HasControls())     {      Clea