อยากทราบว่า asp จะเขียนฟังชั่นในการตัดคำตัวนี้ได้อย่างไรคะ

<%
str = "I use www.google.co.th to search the internet"
if instr(str,"www.") <> 0 then
str = right(str,len(str) - instr(str,"www.") +1)
end if
if instr(str,".th") <> 0 then
str = left(str,instr(str,".th") +3)
end if
response.write str
%>

<%
str = "I use http://www.google.co.th to search the internet"

str2= "I use www.google.net to search the internet"(ในส่วนที่ไม่ได้ระบุ http://)
จะเพิ่มโค้ดอย่างไร กรณีที่มี http:// หรือมีแต่คำว่า www ก็ให้ตัดได้เหมือนกันนะคะ และในส่วนของการลงท้าย .com?sss=1 ok ให้ตัดเมื่อมีการเคาะหรือช่องว่างนะคะ
if instr(str,"www.") <> 0 then
str = right(str,len(str) - instr(str,"www.") +1)
end if
if instr(str,".th") <> 0 then
str = left(str,instr(str,".th") +3)
end if
response.write str
%>

<%
str = "I use http://www.google.co.th to search the internet"

str2= "I use www.google.net to search the internet"(ในส่วนที่ไม่ได้ระบุ http://)
จะเพิ่มโค้ดอย่างไร กรณีที่มี http:// หรือมีแต่คำว่า www ก็ให้ตัดได้เหมือนกันนะคะ และในส่วนของการลงท้าย .com?sss=1 ok ให้ตัดเมื่อมีการเคาะหรือช่องว่างนะคะ

if instr(str,"http://""www.")<> 0 then
str = right(str,len(str) - instr(str,"http://""www.") +1)
end if
if instr(str,".th") <> 0 then
str = left(str,instr(str,".th") +3)
end if
response.write str
%>

if instr(str,"www.") <> 0 then
    if instr(str,"http://") <> 0 then
    str = right(str,len(str) - instr(str,"http://www.") +1)
	else
    str = right(str,len(str) - instr(str,"www.") +1)
	end if
	if instr(str," ") <> 0 then
	  str = split(str," ")
	  strVal = str(0)
	end if
end if
response.write strVal