[asp]关于自定义加密,求助for..next中结果的保存 我想写个加密密码的东西,把原密码先转换为ASC后作数学运算, 先判断字符的个数,然后从第一个字符开始加密,依次到最后 下面这个循环有问题,我没能保留住上一次运行的结果,请帮忙看看.. [code] dim aa,bb,cc,i aa=trim(request("md5")) n=len((request("md5"))) for i=1 to  len((request("md5"))) cc=asc(mid(aa,1,i))*2-1 bb=cc&mid(aa,i+1,(len((request("md5")))-i)) response.write "密码字符数:"&n&"<br>" response.write "原密码："&aa&"<br>" response.write "加密后："&bb&"<br><hr>" next [/code] 现在运行结果是 密码字符数:4 原密码：0000 加密后：95000 -------------------------------------------------------------------------------- 密码字符数:4 原密码：0000 加密后：9500 ''实际想要的结果是959500 -------------------------------------------------------------------------------- 密码字符数:4 原密码：0000 加密后：950  ''实际想要的结果是9595950 -------------------------------------------------------------------------------- 密码字符数:4 原密码：0000 加密后：95  ''实际想要的结果是95959595

现在的问题是,执行一次,便丢弃了该执行的字符.在FOR...next循环中如何保留上次执行的结果呢?

看这表达........... [code]dim aa,bb,cc,i aa=trim(request("md5")) n=len((request("md5"))) Dim ok:ok="" for i=1 to  len((request("md5"))) cc=asc(mid(aa,1,i))*2-1 bb=cc&mid(aa,i+1,(len((request("md5")))-i)) response.write "密码字符数:"&n&"<br>" response.write "原密码："&aa&"<br>" ok=ok&cc response.write "加密后："&ok&"<br><hr>" next [/code]

谢谢大侠指正!

[ 关闭窗口 ]