ASP中正则表达式的应用(3)

时间:2010-05-27 12:24:00 

  四、示例
1 、判断数字的正确性
<%@ Language=VBScript %>
<script language="javascript" runat="server">
function isNumeric(strNumber) {
return (strNumber.search(/^(-|\+)?\d+(\.\d+)?$/) != -1);
}
function isUnsignedNumeric(strNumber) {
return (strNumber.search(/^\d+(\.\d+)?$/) != -1);
}
function isInteger(strInteger) {
return (strInteger.search(/^(-|\+)?\d+$/) != -1);
}
function isUnsignedInteger(strInteger) {
return (strInteger.search(/^\d+$/) != -1);
}
</script>
<HTML>
<BODY>
<b>判断数字的正确性</b>
<%
Dim strTemp
strTemp = CStr(Request.Form("inputstring"))
If strTemp = "" Then strTemp = "0"
%>
<TABLE BORDER="1" CELLPADDING="4" CELLSPACING="2">
<TR>
<TD ALIGN="right"><B>原始字符串</B></TD>
<TD><%= strTemp %></TD>
</TR>
<TR>
<TD ALIGN="right"><B>数字</B></TD>
<TD><%=isNumeric(strTemp)%></TD>
</TR>
<TR>
<TD ALIGN="right"><B>非负数字</B></TD>
<TD><%=isUnsignedNumeric(strTemp)%></TD>
</TR>
<TR>
<TD ALIGN="right"><B>整数</B></TD>
<TD><%=isInteger(strTemp)%></TD>
</TR>
<TR>
<TD ALIGN="right"><B>非负整数()</B></TD>
<TD><%=isUnsignedInteger(strTemp)%></TD>
</TR>
</TABLE>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" METHOD="post">
请输入一个数字:<BR>
<INPUT TYPE="text" NAME="inputstring" SIZE="50"></INPUT><BR>
<INPUT TYPE="submit" Value="提交"></INPUT><BR>
</FORM>
</BODY>
</HTML>
2、判断Email地址的正确性
<%
Function isemail(strng)
isemail = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then isemail= true
End Function
%>


标签:正则表达式,asp
0
投稿

猜你喜欢

  • 如何创建 Firefox 的 Jetpack 扩展

    2009-10-13 20:55:00
  • mysql UNIX时间戳与日期的相互转换

    2010-02-10 12:10:00
  • 鼠标驱动图片变化

    2009-07-26 10:03:00
  • 分享整理的12条sql语句连同数据

    2012-07-11 16:14:59
  • 用一个案例讲解SQL Server数据库恢复

    2008-11-28 14:17:00
  • JS中模拟函数重载

    2008-01-03 16:46:00
  • ORACLE数据库查看执行计划的方法

    2012-06-06 20:15:52
  • Z-Blog实现摘要图文混排效果的方法

    2009-02-23 13:54:00
  • 如何得到数据库中所有表名 表字段及字段中文描述

    2012-01-05 18:56:44
  • 连续字符自动换行的解决方案

    2008-12-04 16:39:00
  • CSS实例教程:复合型CSS条状图表(上)

    2010-01-23 12:43:00
  • Sub-Pixel Bug?!

    2010-03-24 18:09:00
  • 网页代码更清晰高效的一些经验

    2008-05-19 12:23:00
  • 不是原型继承那么简单!prototype的深度探索

    2008-03-07 12:42:00
  • asp让网站自动识别手机访问跳转至手机网站

    2014-12-06 09:36:02
  • 学习SQL语句(强大的group by与select from模式)

    2011-11-03 16:46:09
  • 用doctype激活浏览器模式

    2009-06-15 19:02:00
  • PHP session反序列化漏洞超详细讲解

    2023-05-25 08:54:18
  • 如何在独立服务器上创建用户?

    2010-06-18 19:59:00
  • 五大提高ASP运行效率的技巧

    2007-09-20 13:15:00
  • asp之家 网络编程 m.aspxhome.com