<script Language=Vbs>
Function convertstr(str)
 On Error Resume Next
 dempStr=0
 For I=1 To Len(str)
   tempStr=tempStr+(2^(I-1))*CInt(Mid(str,I,1))
 Next
 convertstr=tempstr
 If Err Then
   convertstr=Err.Description
 End If
End Function
window.alert(convertstr("101"))
</script>