请问在ASP中如何判断一个数字的二进制形式里某一位是0还是1

[CokeStar]

比如6这个数，我想判断第二位是否是1，如何作？

[micher_yan]

dim str
str=cint(num)
if len(str)>2 then
if left(right(len(str)-1),1)<>"1" then
response.write "不是1"
else
response.write "是1"
end if
else
response.write "不是2位数"
end if

[sdliubo]

看看這個
http://community.csdn.net/Expert/topic/3377/3377078.xml?temp=.1677057

[lienzhu]

function get(Num,Pos)
get=(Num And (2 ^ (Pos - 1))) / (2 ^ (Pos - 1))
end function
response.write get(6,2)

[lienzhu]

忘了get是关键字
改

<%
function getNum(Num,Pos)
getNum=(Num And (2 ^ (Pos - 1))) / (2 ^ (Pos - 1))
end function
response.write getNum(6,2)

%>

[kingkingxy]

<input type="radio" <%if list_record("checked")=true then response.Write "CHECKED" end if%> value="1" name="checked" ID="radio" <%if list_record("checked")=true then response.write "checked" end if%>1>
是
<input type="radio" <%if list_record("checked")=false then response.Write "CHECKED" end if%> value="0" name="checked" ID="radio" <%if list_record("checked")=false then response.write "checked" end if%>1>
否</td>