对搜索结果进行红字显示

我用的是datalist
:
Dim cmd1 As New OleDbCommand(sql1, conn)
DataList1.DataSource = cmd1.ExecuteReader()
DataList1.DataBind()
绑定后如何把我的关键字红字显示
关键字在一个arraylist中 叫words
我在前台这样写没有用怎么回事？
后台一个函数：
Public Function gethongzi(ByVal s As String) As String
For i = 0 To words.Count - 1
s.Replace(words(i).ToString(), "" & words(i).ToString() & "")
Next
Return s
End Function
前台itemtemplate中
<%#gethongzi(Eval("title"))%>
却不行 怎么回事？？？？

唉 你s没有赋值 返回是空值的哈
s=s.Replace(words(i).ToString(), "" & words(i).ToString() & "")
这样就可以了

顶fxy6781349 ， Replace方法不会直接修改原字符串，只会返回新的字符串、 另，做变色我个人推荐在客户端用js做。

去属性中换个主题试试！