[CODE]<script language="vbscript">
Function getMidStr(Str,starStr,endStr)'自定义取字符串函数
Dim stLen,endLen'开始结束位置
stLen = InStr(Str, starStr)'计算开始字符的开始位置
endLen = InStr(Str, endStr)'计算结束字符的结束位置
'取得开始和结束字符之前的所有字符
getMidStr = Mid(Str, stLen + 1, (endLen - stLen) - 1)
End Function
'函数测试
Dim TStr
TStr="aaaaa[bbbbbb]ccccccc"
MsgBox getMidStr(TStr,"[","]")
</script>[/CODE]