方法一：
dim a
a="abcd"
strleng=len(a) '获取长度
response.Write(left(a,strleng-1)) '用left函数，总长-1就得到abc.
方法二：
一、取子串
a=mid(a,0,len(a)-1)
二、取左串
<%
a="123|456|"
a=left(a,len(a)-1)
response.write a
%>
方法三
Dim txt
txt1=left(txt,len(txt)-1)
response.write txt1