日期:2014-05-19  浏览次数:20935 次

帮忙翻译两个ASP函数
Function   CodeCookie(str)

Dim   i
Dim   StrRtn
For   i   =   Len(Str)   to   1   Step   -1
StrRtn   =   StrRtn   &   Ascw(Mid(Str,i,1))
If   (i   <>   1)   Then   StrRtn   =   StrRtn   &   "a "
Next
CodeCookie   =   StrRtn

End   Function

Function   DecodeCookie(Str)

Dim   i
Dim   StrArr,StrRtn
StrArr   =   Split(Str, "a ")
For   i   =   UBound(StrArr)   -   LBound(StrArr)   to   0   Step   -1
If   isNumeric(StrArr(i))   =   True   Then
StrRtn   =   StrRtn   &   Chrw(StrArr(i))
Else
StrRtn   =   Str
Exit   Function
End   If
Next
DecodeCookie   =   StrRtn

End   Function


几个函数,不知道C#中对应的是怎么。
感谢高手指点学习一下。

------解决方案--------------------
For i = Len(Str) to 1 Step -1 -> for(int i=0;i <str.Length;i++)
StrRtn = StrRtn & Ascw(Mid(Str,i,1)) -> string StrRtn += (int)str[i];