<script language="vb" runat="server">
function tobinary(n as integer) as string
dim temp as string
dim shangshu as integer=n
while(shangshu<>0)
temp=temp+(shangshu mod 2).tostring()
shangshu=shangshu/2
end while
return temp
end function
</script>
<%=tobinary(13)%>
谢谢,我知道结果应该翻转,可是就是不对,不知道哪里错了