在function.asp中

搜索GotTopic(Str,StrLen)

l=len(str)
t=0
strlen=Clng(strLen)
for i=1 to l

加入紅色的文字就可以了

正式版本已經解決