<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
%>