您正在使用IPV4(18.205.176.39)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
深圳小产权房       [公益]文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】热门云产品首单特惠秒杀,2核2G云服务器45元/年      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 儿童节 15
2022年 端午节 17
2023年 元 旦 229
2023年 春 节 250
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
把URL和邮件地址转换为超级链接
内容摘要: FunctionInsertHyperlinks(inText)DimobjRegExp,strBufDimobjMatches,objMatchDimValue,ReplaceValue,iStart,iEndstrBuf=''iStart=1iEnd=1SetobjRegExp=NewRegExpobjRegExp.Pattern='\b(www|htt......
FunctionInsertHyperlinks(inText)

DimobjRegExp,strBuf

DimobjMatches,objMatch

DimValue,ReplaceValue,iStart,iEnd

strBuf=""

iStart=1

iEnd=1

SetobjRegExp=NewRegExp

objRegExp.Pattern="\b(www|http|\S+@)\S+\b"

'判断URLs和emails.

objRegExp.IgnoreCase=True

'设置大小写不敏感..

objRegExp.Global=True

'全局适用.

SetobjMatches=objRegExp.Execute(inText)

ForEachobjMatchinobjMatches

iEnd=objMatch.FirstIndex

strBuf=strBuf&Mid(inText,iStart,iEnd-iStart+1)

IfInStr(1,objMatch.Value,"@")Then

strBuf=strBuf&GetHref(objMatch.Value,"EMAIL","_BLANK")

Else

strBuf=strBuf&GetHref(objMatch.Value,"WEB","_BLANK")

EndIf

iStart=iEnd+objMatch.Length+1

Next

strBuf=strBuf&Mid(inText,iStart)

InsertHyperlinks=strBuf

EndFunction

FunctionGetHref(url,urlType,Target)

DimstrBuf

strBuf="<ahref="""

IfUCase(urlType)="WEB"Then

IfLCase(Left(url,3))="www"Then

strBuf="<ahref=""URL:"&url&"""超级链接:"""&_

Target&""">"&url&"</a>"

Else

strBuf="<ahref="""&url&"""超级链接:"""&_

Target&""">"&url&"</a>"

EndIf

ElseIfUCase(urlType)="EMAIL"Then

strBuf="<ahref=""电子邮件地址:"&url&"""链接目标:"""&_

Target&""">"&url&"</a>"

EndIf

GetHref=strBuf

EndFunction

上一篇:把中文转换为UNICODE 下一篇:把Recordset转换成彩色的XML文
发布日期:2022/4/11
手机扫二维码直达本页
发布时间:12:30:03
点击:403
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.2.1.220509(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022