vb 切字符串,该怎么处理

vb 切字符串
dim str1="abcdefg" 
dim str2="de" 
我想 从str1中去掉str2后面的所有 字符 
得到 “abcde”
如何做 
用 vbscript（asp）

[解决办法]

VBScript code

<%Dim str1 : str1="abcdefg" Dim str2 : str2="de"Dim p, sp = InStr(str1, str2)If IsNull(p) Or p = 0 Then    s = str1Else    s = Left(str1, p + Len(str2)-1)End IfResponse.Write s%>