php转化为VbScript, 急..今晚有效.

Question

Function max_long_str(str1,str2)   
If len(str1) <= len(str2) Then
s_str = str1
l_str = str2
Else
s_str = str2
l_str = str1
End If
j = len(s_str)
Do While j > 1
j = round(j/2+0.5)
For i=0 To len(s_str)-j+1
temp = Mid(s_str,i+1,j)
If Not IsNull(Instr(l_str,temp)) And Instr(l_str,temp) > 0 Then
If((instr(l_str,temp)-b_pos=1) or not isnull(b_pos)) Then 
str(n) = mid(str(n),1,k) & temp & mid(str(n),k)
k = k+1
b_pos = instr(l_str,temp)
  Else
   k = 0
   n = n+1
  End If
  Else
   k=0
   n = n + 1
End if
if isnull(str) Then 
exit for 
End if
i = i +1
Next
Loop
If ubound(str) > 1 Then 
for i = 0 to ubound(str)
If len(str(i)) >= len(strr) Then 
strr = str(i)
Else
strr = strr
End If
Next
End If
max_long_str = strr
End Function