Replace关键字大小写问题［１００］

[East_lee]

SQL 语句中:

select * from [News] where [Description] like '%"&keywords&"%' or [Author] like '%"&keywords&"%' order by [id]

sn = Replace(sn, keywords, "<font color=red>"&keywords&"</font>",1,-1,1)

搜索中输入＂CsDn＂有大小写的关键字时，select可以查询出对应的结果，但我通过keywords改变查询关键字颜色的时候发现数据库中存放的"CSDN中文"显示成了"CsDn中文"，我想显示成数据库原来的样子，也就是不改变数据库中关键字的大小写，请高手帮忙，３天内１００分...

[hzw66]

<%
find = "csdn"
str1 = "<font color=red>"
str2 = "</font>"
len1 = len(str1)
len2 = len(str2)
length = len(find)
str = "aaCsDnaaaaaaaaaaaaaaacsDnaaaaaaaaaaaaaaaaCSDNaaaaaaaaaaaaaaacsdnaaaaaaaaaaaa"
endl = 1
do
start = instr(endl,str,find,1)
if start = 0 then
exit do
end if
str = left(str,start - 1) & str1 & mid(str,start)
str = left(str,start - 1 + len1 + length) & str2 & mid(str,start + len1 + length)
endl = start + length + len1 + len2
loop
Response.Write str
%>

[goodstuday]

sn = key_red(sn, keywords)

Function key_red(strContent,word)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="("&word&")"
strContent=objRegExp.Replace(strContent,"<font color=""#FF0000"">$1</font>" )
Set objRegExp=Nothing
key_red=strContent
End Function

[poonzsp]

GZ..

[hxyman]

正好我也碰到这样的问题
HOHO~~~~
楼主帮我问了

[East_lee]

感谢 hzw66(胡先生) 在第一时间给予的正确回复
感谢 goodstuday(路漫漫) 优秀的正则代码
感谢 poonzsp(不以物喜·不以己悲)和 hxyman(86815260) 的关注

非常高兴能够认识大家,谢谢!