asp delphi 高手请帮忙

新来此论坛感觉研究气氛和感觉都不错 ，不错刚来就发求助帖子确实不好意思，可确实不懂ASPFunction IsCHI(clChar)  Dim z  z = Hex(Asc(clChar))  IsCHI = (Len(z) = 4)End FunctionFunction 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 翻译起来还真难