仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 417|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计有用函数- 判别输出的是不是是德律风号码

[复制链接]
第二个灵魂 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:34:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。SourceCode
--------------------------------------------------------------------------------
<%
******************************************************************************
**********************DONOTDELETE****************************************

COPYRIGHTNOTICE:Copyright2000NicholasP.LaDieu,nodeiinternetconsulting

Thiscodeisfreefornon-commercialuse.Anycommercialusageor
duplicationrequiresalicensingagreementfromtheauthorwhomaybe
contactedatthefollowingemailaddress:nick@nodei.com

Theauthorassumesnoresponsibilityforanydamagecausedbythe
properorinproperuseofthiscode.

http://www.nodei.com
**********************DONOTDELETE****************************************
******************************************************************************
FunctionIsPhone(X)
DimFieldOk
FieldOk=True
Fori=1tolen(X)
IfIsNumeric(mid(X,i,1))=FalseANDmid(X,i,1)"-"ANDmid(X,i,1)"("ANDmid
(X,i,1)")"then
FieldOk=False
EndIf
Next
NOWSTRIPOUTCHARSANDSEEIFWEHAVEAVALIDNUMBER

ForI=1ToLen(X)
strCurrentChar=Mid(X,I,1)
Numbers(0to9)
IfAsc("0")<=Asc(strCurrentChar)AndAsc(strCurrentChar)<=Asc("9")Then
strTemp=strTemp&strCurrentChar
EndIf
UpperCaseChars(AtoZ)
IfAsc("A")<=Asc(strCurrentChar)AndAsc(strCurrentChar)<=Asc("Z")Then
strTemp=strTemp&strCurrentChar
EndIf
NextI
X=strTemp


iflen(X)=10ANDLeft(X,1)="1"then
FieldOk=False
endif

iflen(X)<10then
FieldOk=False
endif

iflen(X)>11then
FieldOk=False
endif

IsPhone=FieldOk
EndFunction


%>
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!
活着的死人 该用户已被删除
沙发
发表于 2015-1-19 16:30:46 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
精灵巫婆 该用户已被删除
板凳
发表于 2015-1-27 05:35:11 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
变相怪杰 该用户已被删除
地板
发表于 2015-2-5 02:43:44 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
飘飘悠悠 该用户已被删除
5#
发表于 2015-2-11 03:01:17 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
金色的骷髅 该用户已被删除
6#
发表于 2015-3-1 20:09:32 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
蒙在股里 该用户已被删除
7#
发表于 2015-3-10 23:03:12 | 只看该作者
掌握asp的特性而且一定要知道为什么。
透明 该用户已被删除
8#
发表于 2015-3-17 16:07:08 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
只想知道 该用户已被删除
9#
发表于 2015-3-24 10:40:59 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 03:43

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表