asp delphi 高手请帮忙

新来此论坛感觉研究气氛和感觉都不错 ，不错刚来就发求助帖子确实不好意思，可确实不懂ASP

Function IsCHI(clChar)

  Dim z

  z = Hex(Asc(clChar))

  IsCHI = (Len(z) = 4)

End Function


Function EnCode(clString)

  Dim i

  Dim x

  Dim r

 

  For i = 1 To Len(clString)

  x = Mid(clString, i, 1)

  If IsCHI(x) = True Then

    r = r & Hex(Asc(x))

  Else

    If Hex(Asc(x)) = "D" Then

    r = r & "O" & Hex(Asc(x)) & "DO"

    ElseIf Hex(Asc(x)) = "A" Then

    r = r

    Else

    r = r & "O" & Hex(Asc(x)) & "O"

    End If

  End If

  Next

  EnCode = r

  r = ""

End Function


谁能帮忙翻译一下吗，看不懂ASP 翻译起来还真难

---

希望论坛有人能帮下忙
小弟在此谢过了

---

能不能帮帮忙啊，论坛有技术的人那么多帮下忙把

---

帮下忙吧，我没分了

---

其他语法都差不多或直接看得懂吧
&是字符串