求助URLDECODE~~~

我的DECODE代码如下，但是执行的时候有时正常，有时不正常，请教各位高手~~~


Function Decode(strURL)
  Dim I

  If InStr(strURL, "%") = 0 Then
  Decode = strURL
  Exit Function
  End If

  For I=1 To Len(strURL)
  response.Write I
If Mid(strURL, I, 1) = "%" Then
If (Mid(strURL, I+2, 1) = "%") or (Eval("&H" & Mid(strURL,I+2,1))>70) Then
Decode = Decode & Chr(Eval("&H" & Mid(strURL, I + 1, 1)))
  I = I + 1

Else
IF I<Len(strURL)-2 then
Decode = Decode & Chr(Eval("&H" & Mid(strURL, I + 1, 2)))
  I = I + 2
else
Decode = Decode & Chr(Eval("&H" & Mid(strURL, I + 1, 1)))
  I = I + 1
end if
End If
Else
  Decode = Decode & Mid(strURL, I, 1)

  End If
 
  Next 

End Function

在线等待，急·················