仓酷云

标题: ASP编程：用ASP完成号码转换 [打印本页]

作者: 柔情似水 时间: 2015-1-16 22:32
标题: ASP编程：用ASP完成号码转换
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。<%
*****BEGINFUNCTIONAREA*****

Formatsagiven10digitnumberintoanicelookingphonenumber
Example:givenstrNumberof8005551212youget(800)555-1212
FunctionFormatPhoneNumber(strNumber)
DimstrInputStringtoholdourenterednumber
DimstrTempTemporarystringtoholdourworkingtext
DimstrCurrentCharVarforstoringeachcharacterforeval.
DimILoopingvar

Uppercaseallcharactersforconsistency
strInput=UCase(strNumber)

Tobeabletohandlesomeprettybadformattingwestripout
allcharactersexceptforcharsAtoZanddigits0to9
beforeproceeding.Ileftinthecharsforstupidslogan
numberslike1-800-GET-CASHetc...
ForI=1ToLen(strInput)
strCurrentChar=Mid(strInput,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

SwapstrTempbacktostrInputfornextsetofvalidation
IalsoclearstrTempjustforgoodmeasure!
strInput=strTemp
strTemp=""

Removeleading1ifapplicable
IfLen(strInput)=11AndLeft(strInput,1)="1"Then
strInput=Right(strInput,10)
EndIf

ErrorcatchtomakesurestrInputisproperlengthnowthat
wevefinishedmanipulatingit.
IfNotLen(strInput)=10Then
Handleerrorsasyouseefit.Thisscriptraisesareal
errorsoyoucanhandleitlikeanyotherruntimeerror,
butyoucouldalsopassanerrorbackviathefunctions
returnvalueorjustdisplayamessage...yourchoice!
Err.Raise1,"FormatPhoneNumberfunction",_
"Thephonenumbertobeformattedmustbeavalid10digitUSphonenumber!"

Twoalternativeerrortechniques!
Response.Write"<B>Thephonenumbertobeformattedmustbeavalidphonenumber!</B>"
Response.End

Noteifyouusethisyoullalsoneedtocheckfor
thisbelowsoyoudontoverwriteit!
strTemp="<B>Thephonenumbertobeformattedmustbeavalidphonenumber!</B>"
EndIf

Ifanerroroccurredthentherestofthiswontgetprocessed!

Buildtheoutputstringformattedtoourliking!
(xxx)xxx-xxxx
strTemp="(""("
strTemp=strTemp&Left(strInput,3)Areacode
strTemp=strTemp&")"")"
strTemp=strTemp&Mid(strInput,4,3)Exchange
strTemp=strTemp&"-""-"
strTemp=strTemp&Right(strInput,4)4digitpart

Setreturnvalue
FormatPhoneNumber=strTemp
EndFunction

*****ENDFUNCTIONAREA*****
%>

<%RuntimeCode
DimstrNumberToFormatThephonenumberwepasstothefunction

Retrievetherequestednumberorsetittothedefault
IfRequest.QueryString("phone_number")""Then
strNumberToFormat=Request.QueryString("phone_number")
Else
strNumberToFormat="1-800-555-1212"
EndIf

Weneedtoturnthisonifwewanttotraperrors.
Otherwisethescriptwouldgenerateanerroriftheinput
numberwasntcorrect.
OnErrorResumeNext
%>

<TABLEBORDER="1">
<TR>
<TD>Phonenumberbeforeformatting:</TD>
<TD><%=strNumberToFormat%></TD>
</TR>
<TR>
<TD>Phonenumberafterformatting:</TD>
<TD>
<%
Callthefunctionandoutputtheresults
Response.WriteFormatPhoneNumber(strNumberToFormat)

Checkforanerroranddisplaythemessageifoneoccurred
IfErr.numberThenResponse.WriteErr.description
%>
</TD>
</TR>
</TABLE>

<FORMACTION="39.asp"METHOD="get">
Phonenumbertoformat:<INPUTTYPE="text"NAME="phone_number"VALUE="<%=strNumberToFormat%>">
<INPUTtype="submit"value="Submit">
</FORM>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

作者: 仓酷云 时间: 2015-1-18 05:25
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 若天明 时间: 2015-1-21 11:47
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 再见西城 时间: 2015-1-30 17:30
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 老尸 时间: 2015-2-6 14:27
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 简单生活 时间: 2015-2-16 11:59
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 精灵巫婆 时间: 2015-3-5 06:35
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 小女巫 时间: 2015-3-11 23:43
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 莫相离 时间: 2015-3-19 16:32
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 兰色精灵 时间: 2015-3-29 09:30
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

欢迎光临仓酷云 (http://ckuyun.com/)