帮小弟我看看这小段代码

帮我看看这小段代码
我想在自己的网页的表格中动态显示最近更新的部份NEWS内容,内容的显示部分以“……”号END,有人给出了这样一段代码,可是中间有点不明白,还请大家指教一下:
Function   CutLongStr(strInput,lLength)
      Dim   str1
      Dim   i,j,k
      j   =   Len(strInput)
      k   =   0
      For   i   =   1   To   j
          str1   =   Mid(strInput,i,1)
          If   Asc(str1)   >   0   Then   '这里为什么要比较ASC的值?
              k   =   k   +   1       '我没看明白这里的K指的是什么
          Else
              k   =   k   +   2
          End   If
          If   k   >   lLength   Then
              CutLongStr   =   Left(strInput,i)   &   "... "
              Exit   For
          Else
              CutLongStr   =   strInput
          End   If
      Next
End   Function


[解决办法]

因為漢字是佔兩個大小,
字母就一個。