|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;程序|链接|字符串FunctionToLink(Str)
DimRE正则表达式工具
DimstrContent
IfIsNull(Str)ThenStr=""
SetRE=NewRegExp创立正则表达式工具
WithRE
.Global=True搜刮使用于全部字符串
.IgnoreCase=True搜刮不辨别巨细写的
strContent=Str
***************************************************************
邮件地点链接主动设置
***************************************************************
.Pattern="([w]*)@([w.]*)"
strContent=.Replace(strContent,"<AHref=mailto:$1@$2>$1@$2</A>")
***************************************************************
链接主动设置
***************************************************************
======依据请求再增加协定称号=======
DimD(3),I
D(0)="http"
D(1)="ftp"
D(2)="news"
D(3)="mms"
===================================
ForI=0ToUBound(D)
.Pattern=D(I)+"://([w.]*)"
strContent=.Replace(strContent,"<AHref="+D(I)+"://$1target=_blank>"+D(I)+"://$1</A>")
Next
***************************************************************
EndWith
SetRE=Nothing
ToLink=strContent
EndFunction
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|