Kode untuk menggunakan ekspresi reguler untuk menambahkan tautan ke URL dalam string di bawah asp <%
'Tambahkan tautan ke URL di bidang.
FungsiToLink(Str)
Redupkan RE 'Objek ekspresi reguler Redupkan strContent
Jika IsNull(Str) Maka Str =
Setel RE = RegExp Baru 'Buat objek ekspresi reguler
Dengan RE
.Global = True 'Pencarian berlaku untuk seluruh string
.IgnoreCase = True 'Pencarian tidak peka huruf besar-kecil
strKonten = Str
'******************************************************* *****************
'Tautan alamat email disetel secara otomatis
'******************************************************* *****************
.Pola = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'******************************************************* *****************
'Tautan diatur secara otomatis
'******************************************************* *****************
'======Tambahkan nama protokol sesuai kebutuhan========
Redupkan D(3), I
D(0) = http
D(1) = ftp
D(2) = berita
D(3) = mm
'=======
Untuk I = 0 Sampai UBound(D)
.Pola = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Berikutnya
'******************************************************* *****************
Akhiri Dengan
Tetapkan RE = Tidak Ada
ToLink = strKonten
Fungsi Akhir
%>