求一个字符串转换的小函数

[netvsj2ee]

把输入的字符串中，每一个字符。转换成asc码，然后相加起来。谢谢大家~~

[leohuang]

<script language="vbscript">
dim str
str="abcdefghijklmn"
dim sum
for i=1 to len(str)
sum=sum+asc( mid(str,i,1) )
next
msgbox sum
</script>

[邦迪代驾]

同上

[三仙半]

function str2Num(str)
dim sum
sum = 0
for i=1 to len(str)
sum=sum+asc( mid(str,i,1) )
next
str2Num = sum
end function
改写1楼的代码：
function str2NumB(str)
dim sum
sum = 0
for i=1 to lenB(str)
sum=sum+ascB( midB(str,i,1) )
next
str2NumB = sum
end function