asp课堂----更改读写权限值的实现

<input type="checkbox" <%call IsChecked(getWriteRight(p))%>>读权限
<input type="checkbox" <%call IsChecked(getReadRight(p))%>>写权限
<%
p=0
p=setWriteRight(p)
p=setReadRight(p)
p=cancelReadRight(p)
'p=cancelWriteRight(p)
call print(p)

function setReadRight(p)
setReadRight=p or 1
end function

function setWriteRight(p)
setWriteRight=p or 2
end function

function getReadRight(p)
getReadRight=p
end function

function getWriteRight(p)
getWriteRight=p
end function
function cancelWriteRight(p)
cancelWriteRight=p and 1
end function

function cancelReadRight(p)
cancelReadRight=p and 2
end function
 
sub isChecked(p)
if(p=1 or p=2) then
 m="checked"
else
 m="unchecked"
response.write m
end if
end sub

sub print(p)
response.write "</p>"&"权限值是"&p
end sub
%>