|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全链接|转换|字符串FunctionLinkURLs(strInput)
iCurrentLocation=1
DoWhileInStr(iCurrentLocation,strInput,"http://",1)0
iLinkStart=InStr(iCurrentLocation,strInput,"http://",1)
iLinkEnd=InStr(iLinkStart,strInput,"",1)
IfiLinkEnd=0TheniLinkEnd=Len(strInput)+1
SelectCaseMid(strInput,iLinkEnd-1,1)
Case".","!","?"
iLinkEnd=iLinkEnd-1
EndSelect
strOutput=strOutput&Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation)
strLinkText=Mid(strInput,iLinkStart,iLinkEnd-iLinkStart)
strOutput=strOutput&"<ahref="""&strLinkText&"""target=""_blank"">"&strLinkText&"</a>"
iCurrentLocation=iLinkEnd
Loop
strOutput=strOutput&Mid(strInput,iCurrentLocation)
LinkURLs=strOutput
EndFunction
DimstrUnlinked
strUnlinked="http://www.webjx.comhttp://www.ckuyun.com<br/>"&vbCrLf
Hereisthebeforetext:
Response.Write"<b>OriginalText:</b><br/>"&vbCrLf
Response.WritestrUnlinked
Response.WritevbCrLf&"<br/>"&vbCrLf&vbCrLf
Hereisthetextafteritgetsautomaticallyhyperlinkedtoitself:
Response.Write"<b>TextAfterLinking:</b><br/>"&vbCrLf
Response.WriteLinkURLs(strUnlinked)优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|