<%
=CutStr(rs("title"))
%>

你的函数错了，用这个

'========================================================================================
'' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
'' @参数说明:  - str [string]: 源字符串
'' @参数说明:  - LenNum [int]: 截取的长度
'' @返回值:   - [string]: 转换后的字符串
Function CutStr(Str,LenNum)
    Dim P_num
    Dim I,X
    If StrLength(Str)<=LenNum Then
       Cutstr=Str
    Else
       P_num=0
       X=0
       Do While Not P_num > LenNum-2
          X=X+1
          If Asc(Mid(Str,X,1))<0 Then
             P_num=Int(P_num) + 2
          Else
             P_num=Int(P_num) + 1
          End If
          Cutstr=Left(Trim(Str),X)&"…"
       Loop
    End If
End Function

然后这样调用：<%=CutStr(rs("title"),20)%>

是不是rsz.eof 读出来为空，根本就没有找到记录？

<script language='VBScript'>
写在这个里面就比较厉害了~