dim a

a="abcd"

str=len(a) '获取长度

response.Write(left(a,str-1))  '用left函数，总长-1就得到abc，要去除右边几个字符就减几。

也可直接写成response.Write(left(a,len(a)-1))