随机 数字 转化为　A-J　的 字母 asp vbs

'随机数字转化为A-J的字母 
Function  ChangeCode(id)
 ChangeCode=""
 For i=1 to len(id)
 ChangeCode = ChangeCode + chr(mid(id,i,1)+65)
 Next
End Function
msgbox ChangeCode(54352345),,"随机数字转化为A-J的字母"

把上边的存为changecode.vbs双击试试看