ASP编程：一个为字符串中的网址加上链接的程序例...

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件我们偶然候大概会有如许的请求,假如我们输出了一段带有链接的笔墨,如:“　明天，我会见了中心电视台的网站：http://www.cctv.com”那末，我们但愿能主动为我们的“http://www.cctv.com”这几个字符加上链接，现实上，良多网站都有这个功效，因而，阿余也试着写了一段如许的小程序，一个能够用来便利人人，另外一个也能够为初学者供应一点源代码，以是，代码的历程阿余尽量的写得复杂易懂，以是有的中央看起来就有一点罗索了。固然，妙手看了就要给阿余提点定见了。阿余的站在：http://www.zydn.net/index.asp接待妙手们品评斧正.

好了。上面先容一下这个程序的基础思绪

1.起首,找出一段笔墨中有哪一些链接,把它们存于数组中

2.找出们在文本中的地位,把它们寄存于数组中.

3.依据这些地位,把一整段文天职成一个个的小段,以便在两头拔出链接.

4.在两头拔出链接,并把这一段段的文本组合起来.

好了,基础头脑就是如许,实在后面的3步完整能够合在一同完成的,但为了程序简单看懂,我就把它们分隔了.

为了便利利用,我把它们做成了一个子函数,并特地起了个名字叫CTOU()

用法:

1把上面的代码复制到文件的任何一个地位,

2如要把存于变量MYDOC中的字符加上链接,就用MYDOC=CTOU(MYDOC)就好了.

代码以下:

FunctionCTOU(MYCH)
OnErrorResumenext
TE1=MYCH
IFINSTR(TE1,"_bLaNk")=0THEN
TE2=LCASE(TE1)
zcd=len(te2)
dimstar(100),myend(100),myurl(100),te3(100,2)
fori=1to100
CD=LEN(TE2)
STA=INSTR(TE2,"http://")
ifsta=0then
STAR(I)=ZCD+1
exitfor
ENDIF
urla=mid(te2,sta,50)
urcd=instr(urla,"　")
ifurcd=0thenurcd=instr(urla,"")
ifurcd=0thenurcd=instr(urla,"<br>")
ifurcd=0thenurcd=instr(urla,chr(34))
ifurcd=0thenurcd=instr(urla,"")
ifurcd=0thenurcd=50
myurl(i)=mid(te2,sta,urcd-1)
MYEN=STA+URCD
ifmyen>=CDthenexitfor
te2=right(te2,CD-myen+2)
next
以上一段找出有哪一些URL
TE2=LCASE(TE1)
FORII=1TOI
IFMYURL(II)""THEN

STAR(II)=INSTR(TE2,MYURL(II)&"　")
IFSTAR(II)=0THENSTAR(II)=INSTR(TE2,MYURL(II)&"")
IFSTAR(II)=0THENSTAR(II)=INSTR(TE2,MYURL(II)&"<br>")
IFSTAR(II)=0THENSTAR(II)=INSTR(TE2,MYURL(II)&chr(34))
IFSTAR(II)=0THENSTAR(II)=INSTR(TE2,MYURL(II)&"")
IFSTAR(II)=0THENSTAR(II)=INSTR(TE2,MYURL(II))
MYEND(II)=STAR(II)+LEN(MYURL(II))
ENDIF
NEXT
以上一段找出这些URL的入手下手和停止地位
TE2=TE1
fori1=1toi
ifi1=1then
te3(i1,1)=mid(te2,1,star(i1)-1)
else
te3(i1,1)=mid(te2,myend(i1-1),star(i1)-myend(i1-1))
endif
te3(i1,2)=mid(te2,star(i1),len(myurl(i1)))
next
以上一段把本来的字符串分红一个小的小段以便拔出链接
forii=1toi
IFMYURL(II)""THEN
newte=newte&te3(ii,1)&"<atarget=_bLaNkhref="&te3(ii,2)&">"&te3(ii,2)&"</a>"
ELSE
newte=newte&te3(ii,1)
ENDIF
next
以上一段拔出链接
CTOU=NEWTE
ELSE
CTOU=TE1
ENDIF
ENDFunction

强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

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

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

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

仓酷云

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。