ASP中的chr和asc使用?

function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function

作者: d383137359   发布时间: 2011-12-17

作者: qianjin036a   发布时间: 2011-12-17