加密与解密函数<%function decrypt(dcode) dim textsdim ifor i=1 to len(dcode)texts=texts & chr(asc(mid(dcode,i,2))-i)nextdecrypt=textsend functionfunction encrypt(ecode)Dim textsdim ifor i=1 to len(ecode)texts=texts &...