对文字进行如下cut()过程即可 <script language=vbscript runat=server> Function cut(str) length = Len(str) count = 1 Do While count <= length If strComp(Mid(str,count,1),"Z",1) > 0 Then length = length -1 End If count = count + 1 Loop cut = Left(str,Length) if Session("Version")<>3 then '若为高版本asp则不需处理 cut = str end if End Function </script>