怎么判断登录用户是否管理员？

<SCRIPT   FOR="DeleteButton"   EVENT="onClick"   LANGUAGE="VBScript">   
  Dim   TheForm   
  Set   TheForm   =   Document.forms("Productfm")   
        
                                if   判断用户是否管理员     then   
  MsgBox   "你不能删除当前记录!",48,"警告"   
  else   
          Dim   MyVar   
  MyVar   =   MsgBox   ("你确认要删除选中的销售记录么？",52,   "确认删除")   
  if   MyVar   =   6   then   
        TheForm.act.value="del"   
  TheForm.submit()   
  end   if   
  end   if   
        </SCRIPT>   
   
   
  这是一个删除响应函数，我要限制只有管理员才能删除，该怎么办？   
   
  判断用户是否管理员，这条件该怎么写？   
  谢谢！