ASP网页设计Convert Http strings into Clickable

asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。Thisfunctiontakesastringasinputandlinksany"http"itfindssothattheyarethenclickableinabrowser.

SampleUsage:
response.writeLinkURLS("Pleasevisitmywebsiteathttp://www.5dm.cn").

ThiswillautomaticallyinserttheAHREFtagintheappropriateplace.

<%
FunctionLinkURLs(strInput)

Thisfunctiontakesastringasinputandlinksanyhttpsit
findssothattheyarethenclickableinabrowser.

DimiCurrentLocationOurcurrentpositionintheinputstring
DimiLinkStartBeginningpositionofthecurrentlink
DimiLinkEndEndingpositionofthecurrentlink
DimstrLinkTextTextwereconvertingtoalink
DimstrOutputReturnstringwithlinksinit

Startatthefirstcharacterinthestring
iCurrentLocation=1

Lookforhttp://inthetextfromthecurrentpositionto
theendofthestring.Ifwefinditthenwestartthe
linkingprocessotherwiseweredonebecausethereareno
morehttp://sinthestring.

DoWhileInStr(iCurrentLocation,strInput,"http://",1)0

Setthepositionofthebeginningofthelink
iLinkStart=InStr(iCurrentLocation,strInput,"http://",1)

Setthepositionoftheendofthelink.Iusethe
firstspaceasthedeterminingfactor.
iLinkEnd=InStr(iLinkStart,strInput,"",1)

makesuretherwasnolinebreak.Iftherewasalinebreakbeforethe
space,setthatastheend.
checkBreak=InStr(iLinkStart,strInput,chr(13),1)
ifcheckBreak>0andcheckBreak<iLinkEndtheniLinkEnd=checkbreak


Ifwedidntfindaspacethenwelinktothe
endofthestring

IfiLinkEnd=0TheniLinkEnd=Len(strInput)+1
Takecareofanypunctuationwepickedup
SelectCaseMid(strInput,iLinkEnd-1,1)
Case",",".","!","?"
iLinkEnd=iLinkEnd-1
EndSelect

Thisaddstotheoutputstringallthenonlinkedstuff
uptothelinkwerecurentlyprocessing.

strOutput=strOutput&Mid(strInput,iCurrentLocation,_
iLinkStart-iCurrentLocation)

Getthetextwerelinkingandstoreitinavariable
strLinkText=Mid(strInput,iLinkStart,iLinkEnd-iLinkStart)

Buildourlinkandappendittotheoutputstring

strOutput=strOutput&"<AHREF="""&strLinkText&"""target=""_blank"">"_
&strLinkText&"</A>"

Somegoodolddebugging
Response.WriteiLinkStart&","&iLinkEnd&"
&vbCrLf

Resetourcurrentlocationtotheendofthatlink
iCurrentLocation=iLinkEnd

Loop
Tackontheendofthestring.Ineedtodothissowe
dontmissanytrailingnon-linkedtext

strOutput=strOutput&Mid(strInput,iCurrentLocation)

Setthereturnvalue
LinkURLs=strOutput

EndFunctionLinkURLs
%>使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

掌握asp的特性而且一定要知道为什么。