如何实现检索的一些问题

Question

1、
控制检索结果的记录的字数
2、
标红检索结果的搜索关键词
3、
添加网页快照功能，并在网页标红检索结果的搜索关键词

Answer 1

1、
mid或left函数
2、
Function Replace2(Str,Keyword,Replaceword)
Dim Regex
Set Regex = New Regexp
Regex.Pattern = Keyword
Regex.Ignorecase = True
Regex.Global = True
Replacetest = Regex.Replace(Str, Replaceword)
Set Regex=Nothing
Replace2=Replacetest
End FunctionResponse.Write Replace2("abcd","A","<font color=red>A</font>")