对文字停止以下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＞
正如你看到的，效力极为低下，最快的办法就是把这些代码写在vbscript中：
Set myobj = Foo.bar.blah ' do the resolution of blah ONCE
Myobj.baz = myobj.qaz(1)
If Myobj.zaq = Myobj.abc then