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, s

p = InStr(str1, str2)
If IsNull(p) Or p = 0 Then
    s = str1
Else
    s = Left(str1, p + Len(str2)-1)
End If

Response.Write s

%>