在添加內(nèi)容過(guò)程中,我們經(jīng)常需要添加一些網(wǎng)址,同時(shí)需要這些網(wǎng)址顯示出來(lái)就可以點(diǎn)擊并在新窗口打開(kāi).例如客戶信息備注,訂單信息備注等內(nèi)容中經(jīng)常要使用到此類功能,下面由南昌網(wǎng)站建設(shè)公司工程向大家介紹實(shí)現(xiàn)方法,以下代碼也是經(jīng)過(guò)常期使用,確定功能達(dá)到預(yù)期要求,希望此代碼能對(duì)廣大南昌網(wǎng)絡(luò)公司技術(shù)人員有所幫助:

1.例如:有以下內(nèi)容

南昌網(wǎng)站設(shè)計(jì)公司網(wǎng)址是http://www.myforexfactory.net 其中有一篇專業(yè)介紹Mysql中DATE_SUB 使用方法結(jié)合查詢一天內(nèi),一周內(nèi),一月內(nèi)的文章 http://www.myforexfactory.net/newshow.asp?id=1347&tag=2

我們?cè)谖谋究騼?nèi)輸入這些內(nèi)容,前臺(tái)顯示出來(lái)就能打開(kāi)這些鏈接.

2.定義變量(也可以獲取數(shù)據(jù)庫(kù)內(nèi)容)

Content="南昌網(wǎng)站設(shè)計(jì)公司網(wǎng)址是http://www.myforexfactory.net/ 其中有一篇專業(yè)介紹Mysql中DATE_SUB 使用方法結(jié)合查詢一天內(nèi),一周內(nèi),一月內(nèi)的文章?http://www.myforexfactory.net/newshow.asp?id=1347&tag=2

3.輸出?

response.Write(AutoLink(Content))

重點(diǎn):

Function AutoLink(TextContent)

Dim match, matches, offset, url, email, link, relnkAutoLinkURL

relnkAutoLinkURL = "[[%URLText%]]"

If Not IsObject(regExp) Then Set regExp = New RegExp

regExp.Global = True

regExp.IgnoreCase = True

'查找鏈接地址

regExp.Pattern = "(((ht|f)tps?://)|(www.))([w-]+.)+[w-:]+(/[w- ./?%#;&=]*)?"

Set matches = regExp.Execute(TextContent)

offset = 0

For Each match in matches

url = match

If Left(url, 4) = "www." Then url = "http://" & url

link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", url)

TextContent = Mid(TextContent, 1, match.FirstIndex + offset) & link & Mid(TextContent, match.FirstIndex + 1 + match.Length + offset, Len(TextContent))

offset = offset + Len(link) - Len(match)

Next

'查找郵箱地址

regExp.Pattern = "[A-Za-z0-9_+-.']+@w+([-.]w+)*.w+([-.]w+)*"

Set matches = regExp.Execute(TextContent)

offset = 0

For Each match in matches

email = match

link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", "mailto:" & email)

TextContent = Mid(TextContent, 1, match.FirstIndex + offset) & link & Mid(TextContent, match.FirstIndex + 1 + match.Length + offset, Len(TextContent))

offset = offset + Len(link) - Len(match)

Next

AutoLink = TextContent

End Function

可以根據(jù)用戶需求可控制是否在新窗口打開(kāi)鏈接,還是在當(dāng)前窗口打開(kāi)鏈接,由此處代碼控制,[[%URLText%]],如果不加 target='_blank' 則在當(dāng)前窗口打開(kāi)該鏈接.