| 本月文章推荐 |
实用函数- 判断输入的是否是电话号码发表日期：2001-3-31
|
|
Source Code
-------------------------------------------------------------------------------- <% '****************************************************************************** ' ********************** DO NOT DELETE **************************************** ' ' COPYRIGHT NOTICE: Copyright 2000 Nicholas P. LaDieu, node i internet consulting ' ' This code is free for non-commercial use. Any commercial usage or ' duplication requires a licensing agreement from the author who may be ' contacted at the following email address: nick@nodei.com ' ' The author assumes no responsibility for any damage caused by the ' proper or inproper use of this code. ' ' http://www.nodei.com ' ********************** DO NOT DELETE **************************************** '****************************************************************************** Function IsPhone(X) Dim FieldOk FieldOk=True For i = 1 to len(X) If IsNumeric(mid(X, i, 1))=False AND mid(X,i,1)<>"-" AND mid(X,i,1)<>"(" AND mid (X,i,1)<>")" then FieldOk=False End If Next '''''''''''''''''NOW STRIP OUT CHARS AND SEE IF WE HAVE A VALID NUMBER For I = 1 To Len(X) strCurrentChar = Mid(X, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I X=strTemp if len(X)=10 AND Left(X,1)="1" then FieldOk=False end if if len(X)<10 then FieldOk=False end if if len(X)>11 then FieldOk=False end if IsPhone=FieldOk End Function ''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''' %> |
| 上一篇：怎样在ASP里面创建统计图表
人气:11213 下一篇：加密你的Access数据库 人气:12343 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
