求助，一个搜索字符结果串排序的问题！
我做了个关键词库，定义为a
通过搜索标题获得了关键词，但是我想按照标题的顺序排序，请问这样的情况如何排序？


a="水温,白开水,重要,健康,饮料,安全,喝什么水,身体,抽烟"'-----------关键词库

b=split(a,",")'
for i=0 to Ubound(b)
if InStr("喝什么水怎样喝水安全健康：白开水是最佳饮品",b(i))>0 then
response.write b(i)&","
end if
next

运行结果是“白开水,健康,安全,喝什么水”

按照标题顺序，希望结果为：“喝什么水,安全,健康,白开水”

------解决方案--------------------

VBScript code

Dim arrIndex()
Dim j
j = 0
For ……
    i = InStr("喝什么水怎样喝水安全健康：白开水是最佳饮品",b(i))
    If i>0 Then
        j = j + 1
        ReDim Preserve arrIndex(j)
        arrIndex(j) = i
    End If
Next
对arrIndex进行升序排序
For each idx in arrIndex
   输出 b(idx)
Next