<script LANGUAGE="VBSCRIPT" runat="server">
function qjbj(bt,zs)
dim i,j,k
i=0
k=len(bt)
for j=1 to k
ascm=asc(mid(bt,j,1))
if ascm<0 or ascm>255 then
i=i+2
else
i=i+1
end if
if i>zs then
bta=left(bt,j) & "..."
exit for
else
bta=bt
end if
next
qjbj=bta
end function
</script>