搜索内容的文字显示

[aiyu0930]

我做了一个搜索引擎，我希望搜索后显示的标题和内容中的关键字可以高亮显示！
代码我写不出来，希望在这里得到帮助！谢谢！
我是获取关键字来与数据库字段相匹配，找出批匹配信息然后从数据库选出标题和内容的。我只想把关键字高亮显示！

[aiyu0930]

在线等待！！！

[ice_berg16]

str = "this is a search result with the search keyword is hello,and the keyword hello will be highlight in the result."
str.replace("hello","<font color=red>hello</font>");

[xylegend]

up

[wgd]

又学一招

[diveas]

up

[aiyu0930]

我刚才用你教我的方法试了，可是页面出错了。
我不知道问题在哪？

[aiyu0930]

我测试过了，是
str.replace("hello","<font color=red>hello</font>")
有错！
我查了一下replace的语法它有3个参数，如下：

Replace 函数 语言参考

描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数：

参数 描述
expression 必选。 字符串表达式 包含要替代的子字符串。
find 必选。被搜索的子字符串。
replacewith 必选。用于替换的子字符串。
start 可选。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count 可选。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。


设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。



返回值
Replace 返回以下值：
如果 Replace 返回
expression 为零长度 零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。


说明
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:

Dim MyString

'二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y")

'文本比较从第三个字符开始。返回 "YXXYXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)

[aiyu0930]

Microsoft VBScript 编译器错误 错误 '800a0414'

调用子程序时不能使用括号



str.replace ("hello","<font color=red>hello</font>")
----------------------------------------------------^

[iloveyaner]

str =Replace(str,"hello","<font color=red>hello</font>")

[ice_berg16]

我用的是JS语法，VB语法楼上的已经写了