一个关于关键字查找的问题 急!!!
dim rb,i,com
rb=split( "关键字一|关键字二|关键字三|关键字四|工厂 ", "| ")for i=lbound(rb) to ubound(rb)
com=instr(Comments,rb(i))
next
if com > 0 then
view=0
else
view=1
end if
com=instr(Comments,rb(i)) 这一句我要一一比较关键词
可现在只能比较最后面的一个词
请问 应该怎么修改
/*asp VBScript */
请大家赐教!!!
[解决办法]
dim rb,i,com,view
rb=split( "关键字一|关键字二|关键字三|关键字四|工厂 ", "| ")for i=lbound(rb) to ubound(rb)
com=instr(Comments,rb(i))
if com > 0 then
view=0
else
view=1
end if
next
呵呵,如此简单,LZ太不细心了吧
[解决办法]
for i=lbound(rb) to ubound(rb)
com=instr(Comments,rb(i))
next
这个循环里的com的值总被最后一个值复盖,最后的结果当然只是最后一个关键字的位置了
[解决办法]
dim rb,i,com
view=1
rb=split( "关键字一|关键字二|关键字三|关键字四|工厂 ", "| ")
for i=lbound(rb) to ubound(rb)
com=instr(Comments,rb(i))
if com > 0 then
view=0
end if
next
[解决办法]
dim rb,i,com
rb=split( "关键字一|关键字二|关键字三|关键字四|工厂 ", "| ")
for i=lbound(rb) to ubound(rb)
com=instr(Comments,rb(i))
if com > 0 then
view=0
else
view=1
end if
response.write "第 "&i& "关键字= "&view& " <br> "
next
[解决办法]
发现解决了，接点分
[解决办法]
next放错地方了
