<%@ Page Language="VB" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.Text = Ara(Arama.Text, "Arama kriterlerine göre veritabanından çekilen bilgiler.")
End Sub
Public Function Ara(ByVal Aranan As String, ByVal Metin As String) As String
Dim RegExp As Regex = New Regex(Aranan.Replace(" ", "|").Trim(), RegexOptions.IgnoreCase)
Ara = RegExp.Replace(Metin, New MatchEvaluator(AddressOf Bulunanlar))
RegExp = Nothing
End Function
Public Function Bulunanlar(ByVal Bulunan As Match) As String
Return "<span class=""bulunan"">" & Bulunan.Value & "</span>"
End Function
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>ASP Rehberi (www.asprehberi.com) - Bulunanları renklendirme</title>
<style type="text/css">
.bulunan {text-decoration:none; font-weight:bold; color:#000; background:#ff0;}
</style>
</head>
<body>
<form id="form1" runat="server">
<asp:TextBox id="Arama" runat="server"/>
<asp:Button id="button" Text="Ara" runat="server" />
<p><asp:Label id="Label1" runat="server"/></p>
</form>
</body>
</html>