<%
Function GetKey(Content,Start,Last)
filearray=split(Content,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
bb="Ice g. (IC6) 上水分行 "
Response.Write GetKey(bb,"(",")")
%>