ASP网站制作之能够把文章题目中的英文单词的首字母变...
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。年夜写|函数功效申明:能够把文章题目中的英文单词的首字母酿成年夜写:)
效果演示:
<%
functionPCase(strInput)
Variabledeclaration.
DimstrArr
DimtmpWord
DimtmpString
Dimlast
CreateanarrayTostoreEachwordIntheStringseparately.
strArr=split(strInput,"")
ifubound(strArr)>0Then
Forx=lbound(strArr)Toubound(strArr)
SetEachwordTolowerCaseinitially.
strArr(x)=LCase(strArr(x))
Skiptheunimportantwords.
SelectCasestrArr(x)
Case"a"
Case"an"
Case"and"
Case"but"
Case"by"
Case"for"
Case"in"
Case"into"
Case"is"
Case"of"
Case"off"
Case"on"
Case"onto"
Case"or"
Case"the"
Case"to"
Case"a.m."
strArr(x)="A.M."
Case"p.m."
strArr(x)="P.M."
Case"b.c."
strArr(x)="B.C."
Case"a.d."
strArr(x)="A.D."
CaseElse
Capitalizethefirstletter,butdontforgetTotakeintoaccountthat
theStringmaybeinSingleorDoublequotes.
iflen(strArr(x))>1Then
ifmid(strArr(x),1,1)=""ormid(strArr(x),1,1)=""""Then
tmpWord=mid(strArr(x),1,1)&Ucase(mid(strArr(x),2,1))&mid(strArr(x),3,len(strArr(x))-2)
Else
tmpWord=Ucase(mid(strArr(x),1,1))&mid(strArr(x),2,len(strArr(x))-1)
Endif
strArr(x)=tmpWord
Endif
EndSelect
TheunimportantwordsmayneedTobecapitalizediftheyfollowadash,colon,
semi-colon,SinglequoteorDoublequote.
ifx>0Then
ifinstr(strArr(x-1),"-")_
orinstr(strArr(x-1),":")_
orinstr(strArr(x-1),";")Then
tmpWord=Ucase(mid(strArr(x),1,1))&mid(strArr(x),2,len(strArr(x))-1)
strArr(x)=tmpWord
Endif
Endif
Next
Else
strArr(0)=LCase(strArr(0))
Endif
MakesurethefirstwordInthearrayisuppercase,butdontforgetTotakeintoaccount
thattheStringmaybeinSingleorDoublequotes.
ifmid(strArr(0),1,1)=""ormid(strArr(0),1,1)=""""Then
tmpWord=mid(strArr(0),1,1)&Ucase(mid(strArr(0),2,1))&mid(strArr(0),3,len(strArr(0))-2)
Else
tmpWord=Ucase(mid(strArr(0),1,1))&mid(strArr(0),2,len(strArr(0))-1)
Endif
strArr(0)=tmpWord
Also,makesurethelastwordInthearrayisuppercase,butdontforgetTotakeintoaccount
thattheStringmaybeinSingleorDoublequotes.
last=ubound(strArr)
ifmid(strArr(last),1,1)=""ormid(strArr(last),1,1)=""""Then
tmpWord=mid(strArr(last),1,1)&Ucase(mid(strArr(last),2,1))&mid(strArr(0),3,len(strArr(last))-2)
Else
tmpWord=Ucase(mid(strArr(last),1,1))&mid(strArr(last),2,len(strArr(last))-1)
Endif
strArr(last)=tmpWord
RebuildthewholeStringfromthearrayparts.
Forx=lbound(strArr)Toubound(strArr)
tmpString=tmpString&strArr(x)&""
Next
PCase=tmpString
Endfunction
%>
</p>结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
页:
[1]